📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F85233B2-B49F-11D2-BD06-EB39B7A2BD6C}#2.0#0"; "EasyScroll.ocx"
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash85.ocx"
Begin VB.Form frmMain
BorderStyle = 4 'Fixed ToolWindow
Caption = "主界面"
ClientHeight = 14955
ClientLeft = 45
ClientTop = 120
ClientWidth = 19110
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
NegotiateMenus = 0 'False
ScaleHeight = 14955
ScaleMode = 0 'User
ScaleWidth = 19110
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin EasyScroll_ActiveX_Control.EasyScroll EasyScroll1
DragMode = 1 'Automatic
Height = 420
Left = 18720
Top = 14280
Width = 420
_ExtentX = 741
_ExtentY = 741
End
Begin VB.PictureBox Picture7
BorderStyle = 0 'None
Height = 495
Left = 0
ScaleHeight = 495
ScaleWidth = 960
TabIndex = 45
Top = 1560
Width = 965
End
Begin VB.PictureBox Picture6
BorderStyle = 0 'None
Height = 495
Left = 2290
ScaleHeight = 495
ScaleWidth = 840
TabIndex = 44
Top = 1560
Width = 833
End
Begin VB.PictureBox Picture5
BorderStyle = 0 'None
Height = 495
Left = 11250
ScaleHeight = 495
ScaleWidth = 1275
TabIndex = 43
Top = 1560
Width = 1275
End
Begin VB.PictureBox Picture4
BorderStyle = 0 'None
Height = 615
Left = 9015
ScaleHeight = 615
ScaleWidth = 945
TabIndex = 42
Top = 1560
Width = 950
End
Begin VB.Timer Timer1
Left = 9240
Top = 1080
End
Begin VB.PictureBox Picture3
AutoSize = -1 'True
Height = 1200
Left = 9960
Picture = "frmMain.frx":482C2
ScaleHeight = 1140
ScaleWidth = 1230
TabIndex = 33
Top = 840
Width = 1290
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 1020
Left = 960
Picture = "frmMain.frx":4CCA4
ScaleHeight = 960
ScaleWidth = 1275
TabIndex = 32
Top = 1020
Width = 1335
End
Begin VB.PictureBox Picture2
AutoSize = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 9765
Left = 12480
Picture = "frmMain.frx":50CE6
ScaleHeight = 9705
ScaleWidth = 6165
TabIndex = 28
Top = 4200
Width = 6225
End
Begin MSCommLib.MSComm MSComm1
Index = 1
Left = 6600
Top = 7800
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 3
DTREnable = -1 'True
RThreshold = 1
BaudRate = 4800
StopBits = 2
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 0
Left = 6000
Top = 7800
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 4
DTREnable = -1 'True
RThreshold = 1
ParitySetting = 1
InputMode = 1
End
Begin VB.Frame Frame2
Caption = "试验操作"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3615
Left = 240
TabIndex = 2
Top = 2400
Width = 11895
Begin VB.ListBox List2
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2010
Index = 3
ItemData = "frmMain.frx":658C9
Left = 5640
List = "frmMain.frx":658CB
TabIndex = 47
Top = 1080
Width = 975
End
Begin VB.ListBox List2
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2010
Index = 1
ItemData = "frmMain.frx":658CD
Left = 1440
List = "frmMain.frx":658CF
TabIndex = 38
Top = 1080
Width = 2735
End
Begin VB.ListBox List2
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2010
Index = 0
ItemData = "frmMain.frx":658D1
Left = 240
List = "frmMain.frx":658D3
TabIndex = 34
Top = 1080
Width = 1180
End
Begin VB.CommandButton Command10
Caption = "退出试验"
Height = 615
Left = 9600
TabIndex = 31
Top = 2520
Width = 2055
End
Begin VB.CommandButton Command8
Caption = "清除查询结果"
Height = 615
Left = 7200
TabIndex = 26
Top = 2520
Width = 2055
End
Begin VB.CommandButton Command7
Caption = "查询未完成实验"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 7200
TabIndex = 25
Top = 840
Width = 2055
End
Begin VB.ListBox List2
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2010
Index = 2
ItemData = "frmMain.frx":658D5
Left = 4200
List = "frmMain.frx":658D7
TabIndex = 24
Top = 1080
Width = 1425
End
Begin VB.CommandButton Command6
Caption = "继续上次试验"
Height = 615
Left = 7200
TabIndex = 23
Top = 1680
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "试验类型选择"
Height = 615
Left = 9600
TabIndex = 4
Top = 1680
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "车型选择"
Height = 615
Left = 9600
TabIndex = 3
Top = 840
Width = 2055
End
Begin VB.Image Image4
Height = 360
Left = 240
Picture = "frmMain.frx":658D9
Top = 3120
Width = 3105
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "待测品"
Height = 240
Left = 5760
TabIndex = 48
Top = 840
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "当前车型：未选择车型"
Height = 240
Left = 7200
TabIndex = 39
Top = 360
Width = 2400
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "试验员"
Height = 240
Left = 4560
TabIndex = 37
Top = 840
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "被测变压器所属车型"
Height = 240
Left = 1680
TabIndex = 36
Top = 840
Width = 2160
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "试验日期"
Height = 240
Left = 360
TabIndex = 35
Top = 840
Width = 960
End
Begin VB.Label Label2
Caption = "未完成的试验： "
Height = 255
Left = 240
TabIndex = 20
Top = 480
Width = 1935
End
Begin VB.Label Label1
Height = 375
Left = 4080
TabIndex = 5
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame1
Caption = "过往数据操作"
BeginProperty Font
Name = "MS Sans Serif"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -