📄 frm_data.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_readdata
BackColor = &H00FFC0C0&
Caption = "读电量"
ClientHeight = 7545
ClientLeft = 135
ClientTop = 420
ClientWidth = 11430
Icon = "frm_data.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9303.611
ScaleMode = 0 'User
ScaleWidth = 17079.98
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 8280
Top = 6600
End
Begin VB.Frame Frame2
BackColor = &H00FFC0C0&
Height = 570
Left = 2040
TabIndex = 164
Top = 240
Visible = 0 'False
Width = 5220
Begin VB.OptionButton Option1
BackColor = &H00FFC0C0&
Caption = "江苏表号形式"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 264
Left = 300
TabIndex = 166
Top = 210
Value = -1 'True
Width = 1884
End
Begin VB.OptionButton Option2
BackColor = &H00FFC0C0&
Caption = "一般表号形式"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 276
Left = 2505
TabIndex = 165
Top = 210
Width = 1860
End
End
Begin VB.Frame Frame1
BackColor = &H00FFC0C0&
Height = 600
Left = 2040
TabIndex = 157
Top = 765
Visible = 0 'False
Width = 5220
Begin VB.ComboBox Combo3
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 345
ItemData = "frm_data.frx":0442
Left = 1155
List = "frm_data.frx":04CC
Style = 2 'Dropdown List
TabIndex = 160
ToolTipText = "选择一位字母或数字"
Top = 195
Width = 555
End
Begin VB.ComboBox Combo4
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 345
ItemData = "frm_data.frx":053D
Left = 2820
List = "frm_data.frx":0567
Style = 2 'Dropdown List
TabIndex = 159
Top = 195
Width = 630
End
Begin VB.TextBox Text0
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 330
IMEMode = 1 'ON
Left = 4080
MaxLength = 6
TabIndex = 158
Text = "000000"
ToolTipText = "输入0到9之间的数字，共6位"
Top = 195
Width = 975
End
Begin VB.Label Label3
BackColor = &H00FFC0C0&
Caption = "出厂年份"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 1830
TabIndex = 163
Top = 270
Width = 1125
End
Begin VB.Label Label2
BackColor = &H00FFC0C0&
Caption = "厂商代码"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 165
TabIndex = 162
Top = 270
Width = 1035
End
Begin VB.Label Label4
BackColor = &H00FFC0C0&
Caption = "表号"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 3600
TabIndex = 161
Top = 270
Width = 510
End
End
Begin VB.Frame Frame3
BackColor = &H00FFC0C0&
Height = 585
Left = 2130
TabIndex = 154
Top = 795
Visible = 0 'False
Width = 4050
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 288
Left = 1620
MaxLength = 12
TabIndex = 155
Text = "000000000000"
Top = 195
Width = 1815
End
Begin VB.Label Label5
BackColor = &H00FFC0C0&
Caption = "表 号"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 420
TabIndex = 156
Top = 240
Width = 1095
End
End
Begin VB.OptionButton Option3
BackColor = &H00FFC0C0&
Caption = "指定表号读"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 345
TabIndex = 153
Top = 480
Width = 1650
End
Begin VB.OptionButton Option4
BackColor = &H00FFC0C0&
Caption = "通用表号读"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 345
TabIndex = 152
Top = 900
Value = -1 'True
Width = 1575
End
Begin VB.TextBox Text1
Height = 204
Index = 1
Left = 1872
Locked = -1 'True
MaxLength = 9
TabIndex = 84
Top = 1872
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 2
Left = 1872
Locked = -1 'True
MaxLength = 9
TabIndex = 83
Top = 2088
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 3
Left = 1872
Locked = -1 'True
MaxLength = 9
TabIndex = 82
Top = 2304
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 4
Left = 1872
Locked = -1 'True
MaxLength = 9
TabIndex = 81
Top = 2520
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 5
Left = 4515
Locked = -1 'True
MaxLength = 9
TabIndex = 80
Top = 1860
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 6
Left = 4515
Locked = -1 'True
MaxLength = 9
TabIndex = 79
Top = 2076
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 7
Left = 4515
Locked = -1 'True
MaxLength = 9
TabIndex = 78
Top = 2292
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 8
Left = 4515
Locked = -1 'True
MaxLength = 9
TabIndex = 77
Top = 2508
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 9
Left = 7176
Locked = -1 'True
MaxLength = 9
TabIndex = 76
Top = 1860
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 10
Left = 7176
Locked = -1 'True
MaxLength = 9
TabIndex = 75
Top = 2076
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 11
Left = 7176
Locked = -1 'True
MaxLength = 9
TabIndex = 74
Top = 2280
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 12
Left = 7176
Locked = -1 'True
MaxLength = 9
TabIndex = 73
Top = 2508
Width = 948
End
Begin VB.TextBox Text1
Height = 204
Index = 13
Left = 9828
Locked = -1 'True
MaxLength = 9
TabIndex = 72
Top = 1860
Width = 948
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -