📄 frmmain.frm
字号:
Caption = "主界面"
Height = 255
Left = 2520
MouseIcon = "FrmMain.frx":12A86
MousePointer = 99 'Custom
TabIndex = 40
Top = 30
Width = 975
End
Begin VB.Line Line5
BorderColor = &H00404040&
X1 = 3480
X2 = 3480
Y1 = 270
Y2 = -120
End
Begin VB.Image Image1
Height = 675
Left = 615
Picture = "FrmMain.frx":12D90
Stretch = -1 'True
Top = -15
Width = 1830
End
Begin VB.Label LblATCSupport
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "AT指令集"
Height = 255
Left = 3480
MouseIcon = "FrmMain.frx":13EEC
MousePointer = 99 'Custom
TabIndex = 28
Top = 30
Width = 1815
End
Begin VB.Image Image5
Height = 735
Left = 0
Picture = "FrmMain.frx":141F6
Top = -30
Width = 690
End
Begin VB.Label LblMinimize
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "最小化"
Height = 255
Left = 6240
MouseIcon = "FrmMain.frx":147CA
MousePointer = 99 'Custom
TabIndex = 24
Top = 30
Width = 1095
End
Begin VB.Line Line1
BorderColor = &H00404040&
X1 = 6240
X2 = 6240
Y1 = 270
Y2 = -120
End
Begin VB.Line Line6
BorderColor = &H00404040&
X1 = 5280
X2 = 5280
Y1 = 270
Y2 = -120
End
Begin VB.Label LblAbout
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "关于"
Height = 255
Left = 5280
MouseIcon = "FrmMain.frx":14AD4
MousePointer = 99 'Custom
TabIndex = 18
Top = 30
Width = 975
End
Begin VB.Line Line3
BorderColor = &H00404040&
X1 = 7320
X2 = 7320
Y1 = 270
Y2 = -120
End
Begin VB.Label LblExit
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "退出"
Height = 255
Left = 7350
MouseIcon = "FrmMain.frx":14DDE
MousePointer = 99 'Custom
TabIndex = 15
Top = 30
Width = 975
End
Begin VB.Shape ShpMenu
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
BorderColor = &H00000000&
Height = 420
Left = 2520
Shape = 4 'Rounded Rectangle
Top = -120
Width = 5805
End
Begin VB.Label LblVesion
BackStyle = 0 'Transparent
Caption = "Version 1.00"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 8440
TabIndex = 14
Top = 40
Width = 1335
End
Begin VB.Label LblDesc
BackStyle = 0 'Transparent
Caption = "AT指令测试系统 for 西门子移动设备"
ForeColor = &H00FFFFFF&
Height = 375
Left = 6180
TabIndex = 7
Top = 420
Width = 4530
End
End
Begin VB.PictureBox PicSShot
Appearance = 0 'Flat
BackColor = &H00996666&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 0
ScaleHeight = 255
ScaleWidth = 2580
TabIndex = 5
Top = 4240
Width = 2580
Begin VB.Label LblSShot
BackStyle = 0 'Transparent
Caption = "照片"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 12
Top = 20
Width = 1335
End
End
Begin VB.PictureBox PicSelectPonsel
Appearance = 0 'Flat
BackColor = &H00996666&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 0
ScaleHeight = 255
ScaleWidth = 2580
TabIndex = 4
Top = 740
Width = 2580
Begin VB.Label LblSPonsel
BackStyle = 0 'Transparent
Caption = "选择"
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 11
Top = 20
Width = 1335
End
End
Begin VB.TextBox TxtTestATC
Appearance = 0 'Flat
BackColor = &H00996666&
BorderStyle = 0 'None
ForeColor = &H00FFFFFF&
Height = 2235
Left = 2640
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 3
Text = "FrmMain.frx":150E8
Top = 4920
Width = 7220
End
Begin VB.ComboBox CmbCom
BackColor = &H00996666&
ForeColor = &H00FFFFFF&
Height = 300
Left = 2640
TabIndex = 2
Text = "Com1"
ToolTipText = "通讯端口选择"
Top = 4560
Width = 900
End
Begin VB.ComboBox CmbSetings
BackColor = &H00996666&
ForeColor = &H00FFFFFF&
Height = 300
Left = 3600
TabIndex = 1
Text = "115200,n,8,1"
Top = 4560
Width = 1455
End
Begin MSComctlLib.TreeView TVSelectPonsel
Height = 3135
Left = 15
TabIndex = 0
Top = 1080
Width = 2535
_ExtentX = 4471
_ExtentY = 5530
_Version = 393217
Indentation = 0
LabelEdit = 1
LineStyle = 1
Style = 7
HotTracking = -1 'True
SingleSel = -1 'True
ImageList = "ImgLst1"
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList ImgLst1
Left = 120
Top = 6360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":15131
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":15A0D
Key = ""
EndProperty
EndProperty
End
Begin MSCommLib.MSComm MSCTestCom
Left = 120
Top = 4800
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin RichTextLib.RichTextBox RtbListATC
Height = 3255
Left = 2640
TabIndex = 17
TabStop = 0 'False
Top = 1005
Visible = 0 'False
Width = 7215
_ExtentX = 12726
_ExtentY = 5741
_Version = 393217
BorderStyle = 0
ScrollBars = 3
Appearance = 0
RightMargin = 99999
TextRTF = $"FrmMain.frx":17DF1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image ImgLoadSShot
Height = 2550
Left = 440
Top = 4600
Width = 1710
End
Begin VB.Label Status
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "状态或者错误信息 :"
ForeColor = &H00000000&
Height = 255
Left = 2640
TabIndex = 29
Top = 7200
Width = 7215
End
Begin VB.Line Line8
X1 = 0
X2 = 9880
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -