📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmMain
BackColor = &H00C0C000&
BorderStyle = 1 'Fixed Single
Caption = "矿井提升机综合后备保护仪"
ClientHeight = 7590
ClientLeft = 1935
ClientTop = 2415
ClientWidth = 11490
FillColor = &H0000C000&
ForeColor = &H000000C0&
LinkTopic = "Form1"
MaxButton = 0 'False
NegotiateMenus = 0 'False
ScaleHeight = 506
ScaleMode = 3 'Pixel
ScaleWidth = 766
StartUpPosition = 1 '所有者中心
Begin VB.CheckBox chkAlwaysShow
Height = 180
Left = 360
Style = 1 'Graphical
TabIndex = 79
Top = 2640
Width = 255
End
Begin VB.Timer timerKey
Left = 4680
Top = 7920
End
Begin VB.CommandButton cmdKey2
Caption = "串口键盘"
Height = 255
Left = 5160
TabIndex = 77
Top = 8040
Width = 855
End
Begin VB.PictureBox picKey
DragMode = 1 'Automatic
DrawStyle = 6 'Inside Solid
Height = 1575
Left = 8880
ScaleHeight = 1515
ScaleWidth = 1515
TabIndex = 60
Top = 1200
Visible = 0 'False
Width = 1575
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "S"
Height = 375
Index = 15
Left = 1110
Style = 1 'Graphical
TabIndex = 76
TabStop = 0 'False
Top = 30
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "L"
Height = 375
Index = 14
Left = 1110
Style = 1 'Graphical
TabIndex = 75
TabStop = 0 'False
Top = 390
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "C"
Height = 375
Index = 13
Left = 1110
Style = 1 'Graphical
TabIndex = 74
TabStop = 0 'False
Top = 750
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "En"
Height = 375
Index = 12
Left = 1110
Style = 1 'Graphical
TabIndex = 73
TabStop = 0 'False
Top = 1110
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "<"
Height = 375
Index = 11
Left = 390
Style = 1 'Graphical
TabIndex = 72
TabStop = 0 'False
Top = 1110
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = ">"
Height = 375
Index = 10
Left = 750
Style = 1 'Graphical
TabIndex = 71
TabStop = 0 'False
Top = 1110
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "0"
Height = 375
Index = 0
Left = 30
Style = 1 'Graphical
TabIndex = 70
TabStop = 0 'False
Top = 1110
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "3"
Height = 375
Index = 3
Left = 750
Style = 1 'Graphical
TabIndex = 69
TabStop = 0 'False
Top = 750
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "2"
Height = 375
Index = 2
Left = 390
Style = 1 'Graphical
TabIndex = 68
TabStop = 0 'False
Top = 750
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "1"
Height = 375
Index = 1
Left = 30
Style = 1 'Graphical
TabIndex = 67
TabStop = 0 'False
Top = 750
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "6"
Height = 375
Index = 6
Left = 750
Style = 1 'Graphical
TabIndex = 66
TabStop = 0 'False
Top = 390
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "5"
Height = 375
Index = 5
Left = 390
Style = 1 'Graphical
TabIndex = 65
TabStop = 0 'False
Top = 390
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "4"
Height = 375
Index = 4
Left = 30
Style = 1 'Graphical
TabIndex = 64
TabStop = 0 'False
Top = 390
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "9"
Height = 375
Index = 9
Left = 750
Style = 1 'Graphical
TabIndex = 63
TabStop = 0 'False
Top = 30
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "8"
Height = 375
Index = 8
Left = 390
Style = 1 'Graphical
TabIndex = 62
TabStop = 0 'False
Top = 30
Width = 375
End
Begin VB.CommandButton cmdKey
Appearance = 0 'Flat
Caption = "7"
Height = 375
Index = 7
Left = 30
Style = 1 'Graphical
TabIndex = 61
TabStop = 0 'False
Top = 30
Width = 375
End
End
Begin VB.CheckBox chkAutoRefresh
Caption = "定时刷新数据"
Height = 375
Left = 9480
TabIndex = 57
TabStop = 0 'False
Top = 7080
Value = 1 'Checked
Width = 1455
End
Begin VB.HScrollBar HSpicXR
Height = 255
LargeChange = 5
Left = 8400
Max = 30
SmallChange = 5
TabIndex = 52
TabStop = 0 'False
Top = 3240
Value = 30
Visible = 0 'False
Width = 495
End
Begin VB.HScrollBar HSpicXscale
Height = 255
LargeChange = 10
Left = 840
Max = 2000
Min = 50
TabIndex = 51
TabStop = 0 'False
Top = 3240
Value = 200
Visible = 0 'False
Width = 7575
End
Begin VB.VScrollBar VSpicYDN
Height = 375
LargeChange = 5
Left = 120
Max = 30
SmallChange = 5
TabIndex = 50
TabStop = 0 'False
Top = 6720
Value = 20
Visible = 0 'False
Width = 255
End
Begin VB.VScrollBar VSpicYscale
Height = 2895
Left = 120
Max = 26
Min = 1
TabIndex = 49
TabStop = 0 'False
Top = 3840
Value = 5
Visible = 0 'False
Width = 255
End
Begin VB.HScrollBar HSpicXL
Height = 255
LargeChange = 5
Left = 360
Max = 30
SmallChange = 5
TabIndex = 48
TabStop = 0 'False
Top = 3240
Value = 5
Visible = 0 'False
Width = 495
End
Begin VB.VScrollBar VSpicYUP
Height = 375
LargeChange = 5
Left = 120
Max = 30
SmallChange = 5
TabIndex = 47
TabStop = 0 'False
Top = 3480
Value = 25
Visible = 0 'False
Width = 255
End
Begin VB.CommandButton cmdRefresh
BackColor = &H00C0C000&
Caption = "刷新"
Height = 255
Left = 5400
Style = 1 'Graphical
TabIndex = 46
TabStop = 0 'False
Top = 7200
Width = 615
End
Begin VB.CheckBox chkTrack
Caption = "轨迹"
Height = 255
Left = 4200
TabIndex = 45
TabStop = 0 'False
Top = 7200
Value = 1 'Checked
Width = 735
End
Begin VB.CheckBox chkLineRefY
Caption = "Y参考线"
Height = 255
Left = 3240
TabIndex = 44
TabStop = 0 'False
Top = 7200
Value = 1 'Checked
Width = 975
End
Begin VB.CheckBox chkLineRefX
Caption = "X参考线"
Height = 255
Left = 2280
TabIndex = 43
Top = 7200
Value = 1 'Checked
Width = 975
End
Begin VB.CheckBox chkDraw
Caption = "右方"
Height = 180
Index = 1
Left = 1560
TabIndex = 42
TabStop = 0 'False
Top = 7200
Width = 735
End
Begin VB.Timer TimerComR
Left = 480
Top = 7680
End
Begin VB.CommandButton cmdOpenCom
BackColor = &H00C0C000&
Caption = "连接"
Height = 375
Left = 10200
Style = 1 'Graphical
TabIndex = 29
TabStop = 0 'False
Top = 360
Width = 735
End
Begin VB.CheckBox chkDraw
Caption = "左方"
Height = 180
Index = 0
Left = 840
TabIndex = 23
TabStop = 0 'False
Top = 7200
Width = 735
End
Begin VB.PictureBox PicCmd
BackColor = &H00C0C000&
Height = 3855
Left = 9120
ScaleHeight = 3795
ScaleWidth = 2115
TabIndex = 22
Top = 3240
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -