vbsample.frm
来自「短信息开发的vb程序」· FRM 代码 · 共 510 行 · 第 1/2 页
FRM
510 行
VERSION 5.00
Object = "{09F92902-7848-11D5-A115-8255D1E8E06A}#1.0#0"; "SMSCOM.OCX"
Begin VB.Form Form1
Caption = "Smscom 例子"
ClientHeight = 8685
ClientLeft = 60
ClientTop = 345
ClientWidth = 13020
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 8685
ScaleWidth = 13020
StartUpPosition = 3 'Windows Default
Begin SMSCOMLib.Smscom Smscom1
Left = 5880
Top = 600
_Version = 65536
_ExtentX = 450
_ExtentY = 53
_StockProps = 0
End
Begin VB.ComboBox szType
Height = 300
ItemData = "VBSAMPLE.frx":0000
Left = 2400
List = "VBSAMPLE.frx":0016
TabIndex = 31
Text = "0"
Top = 2160
Width = 1695
End
Begin VB.ComboBox Port
Height = 300
ItemData = "VBSAMPLE.frx":002C
Left = 2400
List = "VBSAMPLE.frx":0048
TabIndex = 30
Text = "1"
Top = 720
Width = 1215
End
Begin VB.TextBox SerialNo
Height = 375
Left = 9960
TabIndex = 28
Top = 5040
Width = 2055
End
Begin VB.TextBox IMEI
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 9960
TabIndex = 26
Top = 4320
Width = 2055
End
Begin VB.CommandButton Command6
Caption = "注册"
Height = 375
Left = 11520
TabIndex = 24
Top = 6120
Width = 975
End
Begin VB.CommandButton Command5
Caption = "发AT命令"
Height = 375
Left = 11400
TabIndex = 23
Top = 2880
Width = 975
End
Begin VB.CommandButton Command4
Caption = "删除短信"
Height = 375
Left = 11400
TabIndex = 22
Top = 1440
Width = 975
End
Begin VB.TextBox Loc
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 9840
TabIndex = 21
Text = "1"
Top = 1440
Width = 975
End
Begin VB.CommandButton Command3
Caption = "关闭设备"
Height = 375
Left = 4680
TabIndex = 18
Top = 1800
Width = 1335
End
Begin VB.TextBox DateTime
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 17
Top = 7680
Width = 1695
End
Begin VB.TextBox inMessage
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 2400
TabIndex = 15
Top = 6720
Width = 4575
End
Begin VB.TextBox Sender
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 13
Top = 6120
Width = 1695
End
Begin VB.TextBox ID
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 11
Top = 6120
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "发送"
Height = 375
Left = 4680
TabIndex = 9
Top = 3240
Width = 1335
End
Begin VB.TextBox outMessage
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 2400
TabIndex = 8
Top = 4080
Width = 4575
End
Begin VB.TextBox Phone
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 6
Top = 3240
Width = 1695
End
Begin VB.TextBox Baud
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 3
Text = "9600"
Top = 1320
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "初始化设备"
Height = 375
Left = 4680
TabIndex = 1
Top = 960
Width = 1335
End
Begin VB.Label Label14
Caption = "接收信息栏"
Height = 255
Left = 960
TabIndex = 29
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?