📄 form1.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 6330
ClientLeft = 0
ClientTop = 0
ClientWidth = 10905
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6330
ScaleWidth = 10905
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command8
Caption = "Command2"
Height = 375
Left = 3030
TabIndex = 50
Top = 4290
Visible = 0 'False
Width = 615
End
Begin VB.Timer Timer6
Enabled = 0 'False
Interval = 1000
Left = 2400
Top = 5640
End
Begin VB.CheckBox Check2
Caption = "485模块状态"
Height = 255
Left = 360
TabIndex = 38
Top = 5520
Visible = 0 'False
Width = 1455
End
Begin VB.Frame Frame2
Caption = "485模块状态"
Height = 4095
Left = 1920
TabIndex = 37
Top = 5760
Visible = 0 'False
Width = 5055
Begin VB.TextBox Txt485
Height = 1455
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 49
Top = 2400
Width = 4575
End
Begin VB.CommandButton Commandr
Caption = "读短消息"
Height = 375
Left = 2040
TabIndex = 47
Top = 1800
Width = 1095
End
Begin VB.CommandButton Cmdtz
Caption = "退出"
Height = 375
Left = 3600
TabIndex = 46
Top = 1800
Width = 1095
End
Begin VB.CommandButton Cmbfs
Caption = "发送"
Height = 375
Left = 600
TabIndex = 45
Top = 1800
Width = 975
End
Begin VB.ComboBox Cmbyg
Height = 300
ItemData = "Form1.frx":0000
Left = 1800
List = "Form1.frx":000A
TabIndex = 44
Top = 1320
Width = 1215
End
Begin VB.ComboBox Cmbbdz
Height = 300
ItemData = "Form1.frx":0016
Left = 1800
List = "Form1.frx":0032
TabIndex = 42
Top = 840
Width = 1215
End
Begin VB.TextBox Txtsjhm
Height = 375
Left = 1800
TabIndex = 40
Top = 240
Width = 2895
End
Begin VB.Label Label12
Caption = "是否有功：-"
Height = 255
Left = 840
TabIndex = 43
Top = 1320
Width = 975
End
Begin VB.Label Label11
Caption = "表地址："
Height = 375
Left = 960
TabIndex = 41
Top = 840
Width = 1695
End
Begin VB.Label Label10
Caption = "接收方手机号码："
Height = 375
Left = 240
TabIndex = 39
Top = 360
Width = 1815
End
End
Begin VB.Timer Timer5
Enabled = 0 'False
Interval = 3000
Left = 3000
Top = 4680
End
Begin VB.ComboBox Cmbcom
Height = 276
ItemData = "Form1.frx":004E
Left = 1248
List = "Form1.frx":0058
TabIndex = 35
Text = "1"
Top = 4968
Width = 540
End
Begin VB.Timer Timer1
Interval = 400
Left = 0
Top = 0
End
Begin VB.Timer Timer2
Interval = 400
Left = 0
Top = 600
End
Begin VB.Timer Timer3
Interval = 200
Left = 720
Top = 0
End
Begin VB.Timer Timer4
Interval = 200
Left = 480
Top = 600
End
Begin VB.CheckBox Check1
BackColor = &H00E0E0E0&
Caption = "文本方式"
Height = 255
Left = 2760
TabIndex = 15
Top = 2640
Visible = 0 'False
Width = 1215
End
Begin VB.Frame Frame1
BackColor = &H00800000&
BorderStyle = 0 'None
Height = 3615
Left = 432
TabIndex = 8
Top = 1752
Width = 2175
Begin VB.CommandButton QuitButton
Caption = "Quit"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1536
TabIndex = 31
Top = 3240
Width = 495
End
Begin VB.CommandButton cmd2
Caption = "2"
Height = 255
Left = 816
TabIndex = 30
Top = 1800
Width = 495
End
Begin VB.CommandButton cmd3
Caption = "3"
Height = 255
Left = 1536
TabIndex = 29
Top = 1800
Width = 495
End
Begin VB.CommandButton cmd4
Caption = "4"
Height = 255
Left = 96
TabIndex = 28
Top = 2160
Width = 495
End
Begin VB.CommandButton cmd5
Caption = "5"
Height = 255
Left = 816
TabIndex = 27
Top = 2160
Width = 495
End
Begin VB.CommandButton cmd7
Caption = "7"
Height = 255
Left = 96
TabIndex = 26
Top = 2520
Width = 495
End
Begin VB.CommandButton cmd8
Caption = "8"
Height = 255
Left = 816
TabIndex = 25
Top = 2520
Width = 495
End
Begin VB.CommandButton cmdastrik
Caption = "*"
Height = 255
Left = 96
TabIndex = 24
Top = 2880
Width = 495
End
Begin VB.CommandButton cmdhash
Caption = "#"
Height = 255
Left = 1536
TabIndex = 23
Top = 2880
Width = 495
End
Begin VB.CommandButton cmd9
Caption = "9"
Height = 255
Left = 1536
TabIndex = 22
Top = 2520
Width = 495
End
Begin VB.CommandButton cmd6
Caption = "6"
Height = 255
Left = 1536
TabIndex = 21
Top = 2160
Width = 495
End
Begin VB.CommandButton cmdno
Caption = "&No"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1296
TabIndex = 20
Top = 1440
Width = 735
End
Begin VB.CommandButton cmdclear
Caption = "C"
Height = 255
Left = 936
TabIndex = 19
Top = 1440
Width = 255
End
Begin VB.CommandButton cmd0
Caption = "0"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 816
TabIndex = 18
Top = 2880
Width = 495
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "About"
BeginProperty Font
Name = "Arial"
Size = 6
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 96
TabIndex = 17
Top = 3240
Width = 495
End
Begin VB.CommandButton cmd1
Caption = "1"
Height = 255
Left = 120
TabIndex = 11
Top = 1800
Width = 495
End
Begin VB.CommandButton cmddial
Caption = "&Yes"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 10
Top = 1440
Width = 735
End
Begin VB.TextBox dial_num
Alignment = 2 'Center
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -