📄 frm_writedata.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_writedata
BackColor = &H00C0E0FF&
Caption = "写记录"
ClientHeight = 2490
ClientLeft = 45
ClientTop = 345
ClientWidth = 7290
Icon = "Frm_writedata.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 2490
ScaleWidth = 7290
WindowState = 2 'Maximized
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Index = 65
Left = 6420
MaxLength = 6
TabIndex = 316
Top = 6120
Width = 1128
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "反向累计总时间"
Height = 204
Index = 18
Left = 4695
TabIndex = 315
Top = 6120
Width = 192
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "最近反向起始时间"
Height = 228
Index = 17
Left = 516
TabIndex = 314
Top = 6120
Width = 180
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 276
Index = 67
Left = 9585
MaxLength = 8
TabIndex = 313
Top = 6120
Width = 1320
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "脉冲累计数"
Height = 204
Index = 21
Left = 8055
TabIndex = 312
Top = 6120
Width = 168
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 264
Index = 69
Left = 2895
MaxLength = 2
TabIndex = 311
Top = 6105
Width = 288
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Index = 68
Left = 2385
MaxLength = 2
TabIndex = 310
Top = 6090
Width = 288
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 264
Index = 71
Left = 3990
MaxLength = 2
TabIndex = 309
Top = 6105
Width = 288
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Index = 70
Left = 3435
MaxLength = 2
TabIndex = 308
Top = 6090
Width = 288
End
Begin VB.Frame Frame3
BackColor = &H00C0E0FF&
Height = 585
Left = 765
TabIndex = 305
Top = 705
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 = 306
Text = "000000000000"
Top = 195
Width = 1815
End
Begin VB.Label Label5
BackColor = &H00C0E0FF&
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 = 307
Top = 240
Width = 1095
End
End
Begin VB.Frame Frame1
BackColor = &H00C0E0FF&
Height = 600
Left = 765
TabIndex = 298
Top = 690
Visible = 0 'False
Width = 5220
Begin VB.TextBox Text6
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 = 4065
MaxLength = 6
TabIndex = 301
Text = "000000"
ToolTipText = "输入0到9之间的数字，共6位"
Top = 195
Width = 975
End
Begin VB.ComboBox Combo2
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_writedata.frx":0442
Left = 2820
List = "Frm_writedata.frx":046C
Style = 2 'Dropdown List
TabIndex = 300
Top = 195
Width = 630
End
Begin VB.ComboBox Combo1
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_writedata.frx":04A0
Left = 1155
List = "Frm_writedata.frx":052A
Style = 2 'Dropdown List
TabIndex = 299
ToolTipText = "选择一位字母或数字"
Top = 195
Width = 555
End
Begin VB.Label Label4
BackColor = &H00C0E0FF&
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 = 304
Top = 270
Width = 510
End
Begin VB.Label Label2
BackColor = &H00C0E0FF&
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 = 303
Top = 270
Width = 1035
End
Begin VB.Label Label3
BackColor = &H00C0E0FF&
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 = 302
Top = 270
Width = 1125
End
End
Begin VB.Frame Frame2
BackColor = &H00C0E0FF&
Height = 570
Left = 780
TabIndex = 295
Top = 135
Width = 5220
Begin VB.OptionButton Option2
BackColor = &H00C0E0FF&
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 = 297
Top = 210
Width = 1860
End
Begin VB.OptionButton Option1
BackColor = &H00C0E0FF&
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 = 296
Top = 210
Value = -1 'True
Width = 1884
End
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 360
Top = 7620
End
Begin VB.CommandButton clr_select
BackColor = &H00E0E0E0&
Caption = "取消选择"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 840
Left = 8190
Picture = "Frm_writedata.frx":059B
Style = 1 'Graphical
TabIndex = 294
Top = 375
Width = 924
End
Begin VB.CommandButton all_select
BackColor = &H00E0E0E0&
Caption = "全部选择"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 840
Left = 9270
Picture = "Frm_writedata.frx":09DD
Style = 1 'Graphical
TabIndex = 293
Top = 375
Width = 924
End
Begin VB.CommandButton Com_cancel
BackColor = &H00C0C0C0&
Caption = "停止发送"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 840
Left = 10320
MaskColor = &H00E0E0E0&
Picture = "Frm_writedata.frx":0E1F
Style = 1 'Graphical
TabIndex = 292
Top = 360
Visible = 0 'False
Width = 936
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Index = 74
Left = 3435
MaxLength = 2
TabIndex = 288
Top = 6472
Width = 288
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 264
Index = 75
Left = 3990
MaxLength = 2
TabIndex = 287
Top = 6475
Width = 288
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
Index = 72
Left = 2400
MaxLength = 2
TabIndex = 286
Top = 6472
Width = 288
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -