infoma.frm
来自「功能强大的个人工作通讯录」· FRM 代码 · 共 2,184 行 · 第 1/5 页
FRM
2,184 行
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form infoma
BackColor = &H80000013&
Caption = "联系人资料"
ClientHeight = 10140
ClientLeft = 60
ClientTop = 750
ClientWidth = 19080
Icon = "infoma.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 10140
ScaleWidth = 19080
Begin MSComDlg.CommonDialog comd1
Left = 14310
Top = 315
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox Picture2
BackColor = &H00FFC0C0&
Height = 3480
Left = 435
ScaleHeight = 3420
ScaleWidth = 2475
TabIndex = 66
Top = 405
Width = 2535
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
FillColor = &H00C0FFFF&
ForeColor = &H80000008&
Height = 3176
Left = 105
ScaleHeight = 3150
ScaleWidth = 2235
TabIndex = 67
Top = 135
Width = 2269
End
End
Begin VB.Timer Timer1
Left = 17565
Top = 8400
End
Begin VB.Frame getWay
BackColor = &H00FF8080&
BorderStyle = 0 'None
Height = 3480
Left = 765
TabIndex = 59
Top = 5295
Visible = 0 'False
Width = 5415
Begin VB.CheckBox Check1
BackColor = &H00FF8080&
Caption = "截图时不隐藏本窗口"
Height = 390
Left = 2895
TabIndex = 68
Top = 870
Width = 2295
End
Begin VB.CommandButton cmdHide
Caption = "退出"
Height = 540
Left = 3450
TabIndex = 65
Top = 2625
Width = 1320
End
Begin VB.CommandButton Command1
Caption = "从剪贴板获得"
Height = 645
Left = 375
TabIndex = 64
Top = 2550
Width = 1935
End
Begin VB.CommandButton loadP
Caption = "从本地电脑导入"
Height = 690
Left = 390
TabIndex = 62
Top = 750
Width = 1935
End
Begin VB.CommandButton GetP
Caption = "从当前屏幕截图"
Height = 645
Left = 375
TabIndex = 61
Top = 1665
Width = 1935
End
Begin VB.CommandButton cmdSaveP
Caption = "保存"
Height = 495
Left = 3450
TabIndex = 60
Top = 1995
Width = 1320
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
FillColor = &H00FF0000&
Height = 3255
Left = 150
Top = 120
Width = 5100
End
Begin VB.Label Label19
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "你可以通过以下方式添加联系人的相片："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 390
TabIndex = 63
Top = 255
Width = 4590
End
End
Begin VB.CommandButton LabEdit
Caption = "修改"
Height = 360
Left = 2070
TabIndex = 58
Top = 4035
Width = 585
End
Begin VB.CommandButton LabDEL
Caption = "删除"
Height = 360
Left = 1260
TabIndex = 57
Top = 4035
Width = 585
End
Begin VB.CommandButton labAdd
Caption = "添加"
Height = 360
Left = 435
TabIndex = 56
Top = 4035
Width = 585
End
Begin VB.Frame Frame1
BackColor = &H80000013&
Height = 3750
Left = 360
TabIndex = 55
Top = 225
Width = 2700
End
Begin VB.Frame FrameDW
BackColor = &H00FFC0C0&
Caption = "定位记录"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4020
Left = 13515
TabIndex = 44
Top = 1215
Visible = 0 'False
Width = 4470
Begin VB.CommandButton cmdGO
Caption = "定位"
Height = 480
Left = 3300
TabIndex = 53
Top = 2580
Width = 885
End
Begin VB.CommandButton cmdSearchXM
Caption = "搜索"
Height = 420
Left = 3270
TabIndex = 52
Top = 1080
Width = 960
End
Begin VB.CommandButton cmdExitF
Caption = "隐藏"
Height = 465
Left = 3315
TabIndex = 51
Top = 3300
Width = 930
End
Begin VB.CommandButton cmdSearchBH
Caption = "定位"
Height = 420
Left = 3240
TabIndex = 50
Top = 390
Width = 990
End
Begin VB.ComboBox ComboXM
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1440
TabIndex = 47
Top = 1110
Width = 1635
End
Begin VB.ListBox List3
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1740
Left = 255
TabIndex = 46
Top = 2055
Width = 2850
End
Begin VB.ComboBox ComboBH
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1410
TabIndex = 45
Text = "1"
Top = 405
Width = 1695
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "请先搜索,再选中列表框的项目定位,或双击项目"
Height = 270
Left = 255
TabIndex = 54
Top = 1680
Width = 4020
End
Begin VB.Label Label17
BackColor = &H00FFC0C0&
Caption = "2、按姓名："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 270
TabIndex = 49
Top = 1185
Width = 1230
End
Begin VB.Label Label12
BackColor = &H00FFC0C0&
Caption = "1、按编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 255
TabIndex = 48
Top = 495
Width = 1350
End
End
Begin VB.CommandButton cmd_CZ
Caption = "查找"
Height = 420
Left = 10755
TabIndex = 41
ToolTipText = "按条件和关键字查找来往记录"
Top = 8160
Width = 2685
End
Begin VB.CommandButton cmdDW
Caption = "定位"
Height = 450
Left = 12690
TabIndex = 40
ToolTipText = "定位查看联系人信息"
Top = 5250
Width = 840
End
Begin VB.CommandButton cmdPre
Caption = "上一个"
Height = 450
Left = 10272
TabIndex = 39
ToolTipText = "浏览上一个联系人信息"
Top = 5265
Width = 840
End
Begin VB.CommandButton cmdEdit
Caption = "修改"
Height = 450
Left = 7854
TabIndex = 8
ToolTipText = "点击文本编辑修改文本后按此按钮保存修改"
Top = 5265
Width = 840
End
Begin VB.CommandButton cmdDelete
BackColor = &H00FFC0C0&
Caption = "删除此人"
Height = 450
Left = 6390
MaskColor = &H00C0C0FF&
TabIndex = 7
ToolTipText = "删除当前联系人"
Top = 5280
Width = 1095
End
Begin VB.CommandButton cmdAddHistory
Caption = "添加来往记录"
Height = 420
Left = 10755
TabIndex = 6
ToolTipText = "为当前联系人添加来往记录"
Top = 8940
Width = 2685
End
Begin VB.CommandButton cmdADDnew
Caption = "新增"
Height = 450
Left = 9063
TabIndex = 5
ToolTipText = "新增一个联系人"
Top = 5265
Width = 840
End
Begin VB.CommandButton cmdNext
Caption = "下一个"
Height = 450
Left = 11481
TabIndex = 4
ToolTipText = "浏览下一个联系人信息"
Top = 5265
Width = 840
End
Begin VB.TextBox keyword
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 11370
TabIndex = 3
Top = 7470
Width = 2070
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 11370
TabIndex = 2
Text = "所有项目"
Top = 6855
Width = 2085
End
Begin VB.ListBox List1
Appearance = 0 'Flat
ForeColor = &H00000000&
Height = 930
Left = 4620
TabIndex = 1
Top = 1935
Visible = 0 'False
Width = 2085
End
Begin VB.ListBox List2
Appearance = 0 'Flat
ForeColor = &H00000000&
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?