📄 frmmain.frm
字号:
Top = 630
Visible = 0 'False
Width = 2940
_ExtentX = 5186
_ExtentY = 3678
Style = 1
CellWidth = 26.857
CellHeight = 19.333
End
Begin MSComctlLib.ListView LVthing
Height = 915
Left = 0
TabIndex = 17
Top = 630
Visible = 0 'False
Width = 6810
_ExtentX = 12012
_ExtentY = 1614
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 1
NumItems = 0
End
Begin VB.Frame frameCalendar
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 600
Left = 0
TabIndex = 13
Top = 0
Visible = 0 'False
Width = 9825
Begin VB.Label lblCalendarView
BackColor = &H00808080&
Caption = "计划"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 465
Left = 8640
TabIndex = 16
Top = 90
Width = 915
End
Begin VB.Label lblDate
BackColor = &H00808080&
Caption = "2003年12月25日"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 1845
TabIndex = 15
Top = 180
Width = 1815
End
Begin VB.Label lblWeekday
BackColor = &H00808080&
Caption = "星期四"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 855
TabIndex = 14
Top = 180
Width = 1005
End
Begin VB.Image Image1
Height = 480
Left = 180
Picture = "frmMain.frx":5CCC
Top = 45
Width = 480
End
End
Begin MSComctlLib.ListView LVlinkman
DragIcon = "frmMain.frx":6596
Height = 915
Left = 4455
TabIndex = 1
Top = 1620
Visible = 0 'False
Width = 1095
_ExtentX = 1931
_ExtentY = 1614
View = 3
Arrange = 2
LabelEdit = 1
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
_Version = 393217
Icons = "ImageList32"
SmallIcons = "ImageList16"
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 0
NumItems = 0
End
Begin TabDlg.SSTab SSTab1
Height = 5685
Left = 405
TabIndex = 22
Top = 1620
Width = 7815
_ExtentX = 13785
_ExtentY = 10028
_Version = 393216
Style = 1
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "常用信息"
TabPicture(0) = "frmMain.frx":69D8
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label40"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label9"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label7"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label6"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label3"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label12"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label11"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label8"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label10"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label5"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label4"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label2"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Label1"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtCall"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "txtOffice"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txtSection"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtCompanyFax"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtPosition"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "txtAnnex"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "txtEmail"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "txtHandlePhone"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "txtHomePhone"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "txtCompanyPhone"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "txtCompanyName(0)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "cboSex"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "txtPersonalName"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).ControlCount= 26
TabCaption(1) = "单位/业务"
TabPicture(1) = "frmMain.frx":69F4
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "txtCompanyName(1)"
Tab(1).Control(1)= "cboCompanyCity"
Tab(1).Control(2)= "txtCompanyPostalCode"
Tab(1).Control(3)= "txtCompanyAddress"
Tab(1).Control(4)= "txtCompanyWeb"
Tab(1).Control(5)= "cboCompanyMunicipality"
Tab(1).Control(6)= "cboCompanyCountry"
Tab(1).Control(7)= "LVpage"
Tab(1).Control(8)= "Label13"
Tab(1).Control(9)= "Label14"
Tab(1).Control(10)= "Label15"
Tab(1).Control(11)= "Label16"
Tab(1).Control(12)= "Label17"
Tab(1).Control(13)= "Label18"
Tab(1).Control(14)= "Label19"
Tab(1).Control(15)= "Label20"
Tab(1).ControlCount= 16
TabCaption(2) = "个人/家庭"
TabPicture(2) = "frmMain.frx":6A10
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "txtNickName"
Tab(2).Control(1)= "cboProperty"
Tab(2).Control(2)= "cboConstellation"
Tab(2).Control(3)= "txtLike"
Tab(2).Control(4)= "txtStrongsuit"
Tab(2).Control(5)= "txtPersonalWeb"
Tab(2).Control(6)= "txtQQ"
Tab(2).Control(7)= "txtICQ"
Tab(2).Control(8)= "txtHomeFax"
Tab(2).Control(9)= "cboHomeCountry"
Tab(2).Control(10)= "cboHomeMunicipality"
Tab(2).Control(11)= "cboHomeCity"
Tab(2).Control(12)= "txtHomePostalCode"
Tab(2).Control(13)= "txtMate"
Tab(2).Control(14)= "txtFamilyMember"
Tab(2).Control(15)= "ChkBirthday"
Tab(2).Control(16)= "txtHomeAddress"
Tab(2).Control(17)= "txtBirthday"
Tab(2).Control(18)= "Label21"
Tab(2).Control(19)= "Label22"
Tab(2).Control(20)= "Label23"
Tab(2).Control(21)= "Label24"
Tab(2).Control(22)= "Label25"
Tab(2).Control(23)= "Label26"
Tab(2).Control(24)= "Label27"
Tab(2).Control(25)= "Label28"
Tab(2).Control(26)= "Label29"
Tab(2).Control(27)= "Label30"
Tab(2).Control(28)= "Label31"
Tab(2).Control(29)= "Label32"
Tab(2).Control(30)= "Label33"
Tab(2).Control(31)= "Label35"
Tab(2).Control(32)= "Label36"
Tab(2).Control(33)= "Label37"
Tab(2).Control(34)= "Label38"
Tab(2).ControlCount= 35
TabCaption(3) = "照片"
TabPicture(3) = "frmMain.frx":6A2C
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "cmdAddPhoto"
Tab(3).Control(1)= "cmdDelPhoto"
Tab(3).Control(2)= "cmdPrevPhoto"
Tab(3).Control(3)= "cmdNextPhoto"
Tab(3).Control(4)= "txtPhotoAnnex"
Tab(3).Control(5)= "frameDisplayPhoto"
Tab(3).Control(6)= "Label39"
Tab(3).ControlCount= 7
Begin VB.CommandButton cmdAddPhoto
Caption = "增加照片"
Height = 285
Left = -74370
TabIndex = 66
Top = 765
Width = 1095
End
Begin VB.CommandButton cmdDelPhoto
Caption = "删除照片"
Height = 285
Left = -73110
TabIndex = 65
Top = 765
Width = 1095
End
Begin VB.CommandButton cmdPrevPhoto
Caption = "上一张"
Height = 285
Left = -71820
TabIndex = 64
Top = 765
Width = 1095
End
Begin VB.CommandButton cmdNextPhoto
Caption = "下一张"
Height = 285
Left = -70545
TabIndex = 63
Top = 765
Width = 1095
End
Begin VB.TextBox txtPhotoAnnex
Height = 285
Left = -73290
TabIndex = 62
Top = 1215
Width = 7710
End
Begin VB.Frame frameDisplayPhoto
Caption = "照片"
Height = 5145
Left = -74370
TabIndex = 61
Top = 1665
Width = 8790
Begin MSComctlLib.ImageList ImageListPhoto
Left = 7560
Top = 405
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin VB.Image ImgPhoto
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 3780
Left = 1755
Top = 810
Visible = 0 'False
Width = 5250
End
End
Begin VB.TextBox txtNickName
Height = 285
Left = -72885
TabIndex = 60
Top = 810
Width = 2355
End
Begin VB.ComboBox cboProperty
Height = 315
ItemData = "frmMain.frx":6A48
Left = -72885
List = "frmMain.frx":6A52
TabIndex = 59
Top = 1335
Width = 1095
End
Begin VB.ComboBox cboConstellation
Height = 315
Left = -68610
TabIndex = 58
Top = 1335
Width = 1410
End
Begin VB.TextBox txtLike
Height = 285
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -