📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form FrmMain
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "DIYASICONZ"
ClientHeight = 7770
ClientLeft = -90
ClientTop = -870
ClientWidth = 10440
LinkTopic = "Form1"
ScaleHeight = 7770
ScaleWidth = 10440
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox PICTAsk
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 6630
Left = 7770
ScaleHeight = 6630
ScaleWidth = 2670
TabIndex = 2
Top = 930
Width = 2670
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关于"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 11
Left = 660
MouseIcon = "FrmMain.frx":0000
MousePointer = 99 'Custom
TabIndex = 21
Top = 5760
Width = 360
End
Begin VB.Line Line6
BorderColor = &H00F0E6DB&
X1 = 60
X2 = 2985
Y1 = 5550
Y2 = 5550
End
Begin VB.Line Line3
BorderColor = &H00FEAF93&
X1 = 60
X2 = 2970
Y1 = 5535
Y2 = 5535
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "通讯录..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 7
Left = 615
MouseIcon = "FrmMain.frx":0152
MousePointer = 99 'Custom
TabIndex = 20
Top = 3780
Width = 720
End
Begin VB.Image ImgIco8
Height = 240
Left = 300
Picture = "FrmMain.frx":02A4
Top = 3765
Width = 195
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电话簿 "
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 105
TabIndex = 19
Top = 4095
Width = 615
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "通讯录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 105
TabIndex = 18
Top = 3405
Width = 555
End
Begin VB.Line Line4
BorderColor = &H00FEAF93&
X1 = 60
X2 = 2970
Y1 = 3615
Y2 = 3615
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读取手机信息"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 0
Left = 615
MouseIcon = "FrmMain.frx":0566
MousePointer = 99 'Custom
TabIndex = 17
Top = 675
Width = 1080
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时间同步"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 1
Left = 615
MouseIcon = "FrmMain.frx":06B8
MousePointer = 99 'Custom
TabIndex = 16
Top = 1050
Width = 720
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "参数设置"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 2
Left = 615
MouseIcon = "FrmMain.frx":080A
MousePointer = 99 'Custom
TabIndex = 15
Top = 1425
Width = 720
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "自动检测..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 3
Left = 615
MouseIcon = "FrmMain.frx":095C
MousePointer = 99 'Custom
TabIndex = 14
Top = 1770
Width = 900
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "修改信息"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 10
Left = 615
MouseIcon = "FrmMain.frx":0AAE
MousePointer = 99 'Custom
TabIndex = 13
Top = 5115
Width = 720
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "增加信息..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 9
Left = 615
MouseIcon = "FrmMain.frx":0C00
MousePointer = 99 'Custom
TabIndex = 12
Top = 4755
Width = 900
End
Begin VB.Image ImgIco12
Height = 240
Left = 195
Picture = "FrmMain.frx":0D52
Top = 5730
Width = 210
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读取电话簿..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 8
Left = 615
MouseIcon = "FrmMain.frx":1054
MousePointer = 99 'Custom
TabIndex = 11
Top = 4410
Width = 1080
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "新建短消息"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 6
Left = 615
MouseIcon = "FrmMain.frx":11A6
MousePointer = 99 'Custom
TabIndex = 10
Top = 3105
Width = 900
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "SIM 卡"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 5
Left = 615
MouseIcon = "FrmMain.frx":12F8
MousePointer = 99 'Custom
TabIndex = 9
Top = 2715
Width = 495
End
Begin VB.Image ImgIco3
Height = 240
Left = 255
Picture = "FrmMain.frx":144A
Top = 1395
Width = 240
End
Begin VB.Image ImgIco2
Height = 240
Left = 255
Picture = "FrmMain.frx":17D4
Top = 1035
Width = 240
End
Begin VB.Image ImgIco1
Height = 240
Left = 255
Picture = "FrmMain.frx":1B5E
Top = 645
Width = 240
End
Begin VB.Label LblCap
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "手机"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 4
Left = 615
MouseIcon = "FrmMain.frx":20E8
MousePointer = 99 'Custom
TabIndex = 8
Top = 2340
Width = 360
End
Begin VB.Image ImgIco4
Height = 240
Left = 300
Picture = "FrmMain.frx":223A
Top = 1755
Width = 240
End
Begin VB.Image ImgIco11
Height = 240
Left = 270
Picture = "FrmMain.frx":27C4
Top = 5100
Width = 255
End
Begin VB.Image ImgIco10
Height = 240
Left = 270
Picture = "FrmMain.frx":2B46
Top = 4725
Width = 240
End
Begin VB.Image ImgIco9
Height = 270
Left = 270
Picture = "FrmMain.frx":2E88
Top = 4350
Width = 240
End
Begin VB.Image ImgIco7
Height = 240
Left = 255
Picture = "FrmMain.frx":322A
Top = 3060
Width = 240
End
Begin VB.Image ImgIco6
Height = 240
Left = 255
Picture = "FrmMain.frx":35B4
Top = 2685
Width = 240
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -