📄 smsmainfrm.frm
字号:
ForeColor = &H80000008&
Height = 375
Left = 3120
TabIndex = 8
Top = 2400
Value = 1 'Checked
Width = 1455
End
Begin VB.Label Label16
BackColor = &H00FFFFFF&
Caption = "短信内容:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 41
Top = 780
Width = 1335
End
Begin VB.Label Label5
BackColor = &H00FFFFFF&
Caption = "接收手机号码:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 12
Top = 360
Width = 1335
End
Begin VB.Label Label4
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "0"
BeginProperty Font
Name = "Tahoma"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00A27E66&
Height = 375
Left = 3600
TabIndex = 11
Top = 360
Width = 1095
End
End
Begin VB.Timer Timer1
Interval = 5000
Left = 255
Top = 5670
End
Begin MSCommLib.MSComm SMS
Left = 120
Top = 6120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Frame Frame4
BackColor = &H00FFFFFF&
Caption = "选项"
ForeColor = &H00A27E66&
Height = 1335
Left = 6240
TabIndex = 17
Top = 600
Width = 2055
Begin VB.CommandButton Command3
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "关于"
Height = 375
Left = 240
Style = 1 'Graphical
TabIndex = 19
Top = 840
Width = 1575
End
Begin VB.CommandButton Command2
BackColor = &H00FFFFFF&
Caption = "设置"
Height = 375
Left = 240
Style = 1 'Graphical
TabIndex = 18
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "发送信息"
ForeColor = &H00A27E66&
Height = 2415
Left = 1200
TabIndex = 14
Top = 3600
Width = 7215
Begin MSFlexGridLib.MSFlexGrid SMSgrid
Height = 1935
Left = 120
TabIndex = 21
Top = 360
Width = 6975
_ExtentX = 12303
_ExtentY = 3413
_Version = 393216
Rows = 10
Cols = 4
FixedCols = 0
ForeColor = 8421504
BackColorFixed = 10649190
ForeColorFixed = 16777215
ForeColorSel = 16777215
BackColorBkg = 16777215
GridColor = 10649190
GridColorFixed = 4210752
FocusRect = 0
SelectionMode = 1
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
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "信息类型"
ForeColor = &H00A27E66&
Height = 1455
Left = 6240
TabIndex = 4
Top = 2040
Width = 2055
Begin VB.OptionButton Option3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "动感闪讯"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 16
Top = 960
Width = 1215
End
Begin VB.OptionButton Option2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "立现闪讯"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 6
Top = 600
Width = 1215
End
Begin VB.OptionButton Option1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "正常"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 5
Top = 240
Value = -1 'True
Width = 1215
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00A27E66&
BorderStyle = 0 'None
FillColor = &H00A27E66&
ForeColor = &H00FFFFFF&
Height = 135
Left = 7560
ScaleHeight = 135
ScaleWidth = 135
TabIndex = 3
Top = 120
Width = 135
End
Begin VB.Label Label13
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00A27E66&
Caption = "v1.0"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 600
TabIndex = 35
Top = 6480
Width = 615
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 5880
Left = 1080
TabIndex = 15
Top = 480
Width = 255
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H00A27E66&
Caption = "Designed by Jim"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 6795
TabIndex = 20
Top = 6465
Width = 1200
End
Begin VB.Line Line13
X1 = 0
X2 = 8520
Y1 = 0
Y2 = 0
End
Begin VB.Line Line12
X1 = 0
X2 = 8520
Y1 = 6810
Y2 = 6810
End
Begin VB.Line Line11
X1 = 8520
X2 = 8520
Y1 = 0
Y2 = 6840
End
Begin VB.Line Line6
X1 = 0
X2 = 0
Y1 = 0
Y2 = 6840
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = 7560
X2 = 7680
Y1 = 255
Y2 = 255
End
Begin VB.Label Label3
BackColor = &H00A27E66&
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 7800
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -