📄 frmmain.frm
字号:
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 = "Screen Shot"
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 = "Select Ponsel"
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 = 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":C07E
Top = 4920
Width = 7220
End
Begin VB.ComboBox CmbCom
BackColor = &H00996666&
ForeColor = &H00FFFFFF&
Height = 315
Left = 2640
TabIndex = 2
Text = "Com1"
ToolTipText = "Com Port selection"
Top = 4560
Width = 900
End
Begin VB.ComboBox CmbSetings
BackColor = &H00996666&
ForeColor = &H00FFFFFF&
Height = 315
Left = 3600
TabIndex = 1
Text = "19200,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":C134
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":CA10
Key = ""
EndProperty
EndProperty
End
Begin MSCommLib.MSComm MSCTestCom
Left = 120
Top = 4800
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 2
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
Enabled = -1 'True
ScrollBars = 3
Appearance = 0
RightMargin = 99999
TextRTF = $"FrmMain.frx":EDF4
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 = "Status event or error message :"
ForeColor = &H00000000&
Height = 255
Left = 2640
TabIndex = 29
Top = 7200
Width = 7215
End
Begin VB.Line Line8
X1 = 0
X2 = 9880
Y1 = 7620
Y2 = 7620
End
Begin VB.Line Line7
X1 = 9855
X2 = 9855
Y1 = 0
Y2 = 7800
End
Begin VB.Line Line4
X1 = 0
X2 = 9960
Y1 = 0
Y2 = 0
End
Begin VB.Line Line2
X1 = 0
X2 = 0
Y1 = 7800
Y2 = 0
End
Begin VB.Label LblPClose
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Port Close"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
MouseIcon = "FrmMain.frx":F06A
MousePointer = 99 'Custom
TabIndex = 25
Top = 4605
Visible = 0 'False
Width = 1215
End
Begin VB.Label LblTLT
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Time Load Text: 0 ms"
ForeColor = &H00000000&
Height = 255
Left = 7440
TabIndex = 23
Top = 4310
Width = 2295
End
Begin VB.Label LblDesc2
BackStyle = 0 'Transparent
Caption = "Description"
Height = 255
Left = 6000
TabIndex = 21
Top = 4310
Width = 1095
End
Begin VB.Label LblATC
BackStyle = 0 'Transparent
Caption = "AT+Command"
Height = 255
Left = 4440
TabIndex = 20
Top = 4310
Width = 1215
End
Begin VB.Label LblSA
BackStyle = 0 'Transparent
Caption = "Access Status "
Height = 255
Left = 2880
TabIndex = 19
Top = 4310
Width = 1215
End
Begin VB.Shape ShpDesc
BackColor = &H0000C000&
BackStyle = 1 'Opaque
BorderColor = &H0000C000&
Height = 150
Left = 5760
Top = 4340
Width = 135
End
Begin VB.Shape ShpATC
BackColor = &H000000FF&
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
FillColor = &H000000FF&
Height = 150
Left = 4200
Top = 4340
Width = 135
End
Begin VB.Shape ShpSA
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderColor = &H00FF0000&
FillColor = &H00FF0000&
Height = 150
Left = 2640
Top = 4340
Width = 135
End
Begin VB.Label LblInfoPonsel
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "138139.com"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 240
TabIndex = 16
Top = 7200
Width = 1185
End
Begin VB.Shape Shape15
BackColor = &H00996666&
BackStyle = 1 'Opaque
BorderColor = &H00996666&
Height = 300
Left = 120
Shape = 4 'Rounded Rectangle
Top = 7200
Width = 2385
End
Begin VB.Label LblSend
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Send"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 8760
MouseIcon = "FrmMain.frx":F374
MousePointer = 99 'Custom
TabIndex = 9
Top = 4605
Width = 975
End
Begin VB.Label LblPOpen
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Port Open "
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
MouseIcon = "FrmMain.frx":F67E
MousePointer = 99 'Custom
TabIndex = 8
Top = 4605
Width = 1215
End
Begin VB.Shape ShpSend
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
BorderColor = &H00000000&
Height = 300
Left = 8760
Shape = 4 'Rounded Rectangle
Top = 4560
Width = 1005
End
Begin VB.Shape ShpPO
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
BorderColor = &H00000000&
Height = 300
Left = 5160
Shape = 4 'Rounded Rectangle
Top = 4560
Width = 1215
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'http://www.138139.com
Dim nATC1, nATC2, nATC3, nATC4, nATC5, nATC6, nATC7, nATC8, nATC9, nATC10, nATC11, nATC12, nATC13 As Node
Dim sFile As String
Dim bCancelFlag As Boolean
Dim DoEv
Dim StringCommand$
Dim EventMessage$
Dim ErrorMessage$
Dim iLoadComPort As Integer
Dim iGetComPort As Integer
Dim iGetDevice As Integer
Dim i As Long
Private Sub Form_Load()
Call Load_Com_port
Call Nodes
TVSelectPonsel.Refresh
End Sub
Private Sub Nodes()
TVSelectPonsel.Nodes.Clear
Set nATC1 = TVSelectPonsel.Nodes.Add(, , "nATC1", "AT+Command For...", 1)
Set nATC2 = TVSelectPonsel.Nodes.Add(, , "nATC2", "C45", 2)
Set nATC3 = TVSelectPonsel.Nodes.Add(, , "nATC3", "C35i-A", 2)
Set nATC4 = TVSelectPonsel.Nodes.Add(, , "nATC4", "C35i-B", 2)
Set nATC5 = TVSelectPonsel.Nodes.Add(, , "nATC5", "G400m", 2)
Set nATC6 = TVSelectPonsel.Nodes.Add(, , "nATC6", "M35i", 2)
Set nATC7 = TVSelectPonsel.Nodes.Add(, , "nATC7", "ME45", 2)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -