📄 通讯录.frm
字号:
Caption = "按分类查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3360
TabIndex = 66
Top = 1560
Width = 1455
End
Begin VB.OptionButton optEmail
Caption = "按电子邮件查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3360
TabIndex = 61
Top = 3000
Width = 1815
End
Begin VB.CommandButton Command1
Caption = "开始查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3720
TabIndex = 60
Top = 4320
Width = 1335
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 3120
TabIndex = 58
Text = "Text1"
Top = 3960
Width = 2415
End
Begin VB.OptionButton optSmallTel
Caption = "按手机号码查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3360
TabIndex = 57
Top = 2520
Width = 1815
End
Begin VB.OptionButton optTel
Caption = "按电话号码查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3360
TabIndex = 56
Top = 2040
Width = 1815
End
Begin VB.OptionButton optName
Caption = "按姓名查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3360
TabIndex = 54
Top = 1080
Width = 1455
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "请在下面输入关键字"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3360
TabIndex = 59
Top = 3720
Width = 1935
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "通讯录查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3000
TabIndex = 55
Top = 360
Width = 2535
End
End
Begin VB.PictureBox picAdd
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 5775
Left = 240
ScaleHeight = 5775
ScaleWidth = 8295
TabIndex = 16
Top = 600
Width = 8295
Begin VB.ComboBox Combo1
Height = 300
Left = 3600
TabIndex = 63
Text = "Combo1"
Top = 960
Width = 2415
End
Begin VB.CommandButton cmdAdd
Caption = "添加"
Height = 375
Left = 4440
TabIndex = 33
Top = 4800
Width = 1095
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 375
Left = 2760
TabIndex = 32
Top = 4800
Width = 1095
End
Begin VB.TextBox txtAdd
Height = 270
Index = 6
Left = 3600
TabIndex = 30
Top = 4440
Width = 2415
End
Begin VB.TextBox txtAdd
Height = 270
Index = 5
Left = 3600
TabIndex = 29
Top = 3945
Width = 2415
End
Begin VB.TextBox txtAdd
Height = 270
Index = 4
Left = 3600
TabIndex = 28
Top = 3435
Width = 2415
End
Begin VB.TextBox txtAdd
Height = 270
Index = 3
Left = 3600
TabIndex = 27
Top = 2940
Width = 2415
End
Begin VB.TextBox txtAdd
Height = 270
Index = 2
Left = 3600
TabIndex = 26
Top = 2445
Width = 2415
End
Begin VB.TextBox txtAdd
Height = 270
Index = 1
Left = 3600
TabIndex = 25
Top = 1935
Width = 2415
End
Begin VB.TextBox txtAdd
Height = 270
Index = 0
Left = 3600
TabIndex = 24
Top = 1440
Width = 2415
End
Begin VB.Label lblAdd
BackStyle = 0 'Transparent
Caption = "类 别："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 2280
TabIndex = 62
Top = 960
Width = 1095
End
Begin VB.Label lblAddTitle
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "添加通讯录"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2280
TabIndex = 31
Top = 360
Width = 3735
End
Begin VB.Label lblAdd
BackStyle = 0 'Transparent
Caption = "备 注："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 2280
TabIndex = 23
Top = 4440
Width = 1095
End
Begin VB.Label lblAdd
BackStyle = 0 'Transparent
Caption = "电子邮件："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 2280
TabIndex = 22
Top = 3945
Width = 1095
End
Begin VB.Label lblAdd
BackStyle = 0 'Transparent
Caption = "手机号码："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 2280
TabIndex = 21
Top = 3435
Width = 1095
End
Begin VB.Label lblAdd
BackStyle = 0 'Transparent
Caption = "电话号码："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 2280
TabIndex = 20
Top = 2940
Width = 1095
End
Begin VB.Label lblAdd
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -