📄 广播设置.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_gbcommand
BackColor = &H00E0E0E0&
Caption = "广播设置"
ClientHeight = 6930
ClientLeft = 60
ClientTop = 345
ClientWidth = 9585
FillColor = &H00404040&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404080&
Icon = "广播设置.frx":0000
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 6930
ScaleWidth = 9585
WindowState = 2 'Maximized
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 10
Left = 5865
Top = 6195
End
Begin VB.Frame Frame4
BackColor = &H00E0E0E0&
Height = 780
Left = 792
TabIndex = 42
Top = 5844
Width = 4635
Begin VB.PictureBox Picture1
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
FillStyle = 7 'Diagonal Cross
Height = 420
Left = 144
Picture = "广播设置.frx":044A
ScaleHeight = 420
ScaleWidth = 480
TabIndex = 44
Top = 228
Width = 480
End
Begin VB.Label Label9
BackColor = &H00E0E0E0&
Caption = "除广播校时功能外，其余功能仅用于485通讯口连接单表的场合！"
ForeColor = &H000000FF&
Height = 450
Left = 825
TabIndex = 43
Top = 210
Width = 3630
End
End
Begin VB.Frame Frame3
BackColor = &H00E0E0E0&
ForeColor = &H00400040&
Height = 1548
Left = 960
TabIndex = 31
Top = 3036
Width = 3990
Begin VB.TextBox Text11
ForeColor = &H00400040&
Height = 324
Left = 180
Locked = -1 'True
TabIndex = 41
Top = 240
Width = 1600
End
Begin VB.CommandButton Command3
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 288
Left = 1860
TabIndex = 34
ToolTipText = "当前电表时间"
Top = 465
Width = 300
End
Begin VB.TextBox Text10
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404080&
Height = 300
Left = 180
Locked = -1 'True
MaxLength = 8
TabIndex = 33
Top = 1092
Width = 1600
End
Begin VB.TextBox Text9
ForeColor = &H00400040&
Height = 330
Left = 180
Locked = -1 'True
TabIndex = 32
Top = 600
Width = 1600
End
Begin VB.CommandButton Command4
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 288
Left = 1860
TabIndex = 35
ToolTipText = "当前电表校时状态"
Top = 1104
Width = 288
End
Begin VB.Label Label10
BackColor = &H00E0E0E0&
Caption = "读电表当前时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400040&
Height = 225
Left = 2205
TabIndex = 38
Top = 510
Width = 1500
End
Begin VB.Label Label16
BackColor = &H00E0E0E0&
Caption = "读校时允许/禁止位"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400040&
Height = 315
Left = 2190
TabIndex = 37
Top = 1155
Width = 1755
End
End
Begin VB.Frame Frame2
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 2964
Left = 5700
TabIndex = 22
Top = 732
Width = 3348
Begin VB.TextBox Text7
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 330
IMEMode = 1 'ON
Left = 1908
MaxLength = 6
TabIndex = 28
Text = "000000"
ToolTipText = "输入0到9之间的数字，共6位"
Top = 1404
Width = 984
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 360
ItemData = "广播设置.frx":088C
Left = 2232
List = "广播设置.frx":0916
Style = 2 'Dropdown List
TabIndex = 27
Top = 672
Width = 672
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 360
ItemData = "广播设置.frx":0986
Left = 2232
List = "广播设置.frx":09D4
Style = 2 'Dropdown List
TabIndex = 26
Top = 1020
Width = 672
End
Begin VB.OptionButton Option1
BackColor = &H00E0E0E0&
Caption = "江苏形式表号"
ForeColor = &H00800080&
Height = 240
Left = 204
TabIndex = 25
Top = 300
Value = -1 'True
Width = 1932
End
Begin VB.OptionButton Option2
BackColor = &H00E0E0E0&
Caption = "通用形式表号"
ForeColor = &H00800080&
Height = 240
Left = 204
TabIndex = 24
Top = 2112
Width = 2028
End
Begin VB.TextBox Text8
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 330
IMEMode = 1 'ON
Left = 1200
MaxLength = 12
TabIndex = 23
Text = "000000000000"
ToolTipText = "输入0到9之间的数字，共6位"
Top = 2424
Width = 1845
End
Begin VB.Label Label18
BackColor = &H00E0E0E0&
Caption = "表号"
ForeColor = &H00800080&
Height = 240
Left = 540
TabIndex = 40
Top = 2490
Width = 660
End
Begin VB.Label Label17
BackColor = &H00E0E0E0&
Caption = "表 号:"
ForeColor = &H00800080&
Height = 240
Left = 468
TabIndex = 39
Top = 1440
Width = 1104
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 36
X2 = 3348
Y1 = 1944
Y2 = 1944
End
Begin VB.Line Line1
X1 = 0
X2 = 3324
Y1 = 1920
Y2 = 1920
End
Begin VB.Label Label7
BackColor = &H00E0E0E0&
Caption = "厂商代码:"
ForeColor = &H00800080&
Height = 228
Left = 492
TabIndex = 30
Top = 696
Width = 1068
End
Begin VB.Label Label8
BackColor = &H00E0E0E0&
Caption = "出厂年份"
ForeColor = &H00800080&
Height = 240
Left = 468
TabIndex = 29
Top = 1080
Width = 1788
End
End
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1284
Left = 960
TabIndex = 9
Top = 708
Width = 3990
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
ForeColor = &H00800080&
Height = 330
Left = 360
Locked = -1 'True
MaxLength = 2
TabIndex = 15
Text = "t3"
Top = 780
Width = 780
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
ForeColor = &H00800080&
Height = 330
Left = 2680
Locked = -1 'True
MaxLength = 2
TabIndex = 14
Text = "t4"
Top = 300
Width = 570
End
Begin VB.TextBox Text5
Alignment = 1 'Right Justify
ForeColor = &H00800080&
Height = 330
Left = 1600
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -