📄 zkhm.frm
字号:
VERSION 5.00
Begin VB.Form zkhmfrm
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5880
ClientLeft = 84
ClientTop = 1428
ClientWidth = 7380
ControlBox = 0 'False
FillColor = &H00008000&
ForeColor = &H80000001&
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
PaletteMode = 2 'Custom
ScaleHeight = 5880
ScaleWidth = 7380
ShowInTaskbar = 0 'False
Begin VB.Frame Frame2
Caption = "开度设定"
Height = 550
Index = 2
Left = 5160
TabIndex = 37
ToolTipText = "按上、下箭头增加或减少阀门开度，或直接输入阀门开度值，按回车生效"
Top = 4840
Width = 972
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000000&
Height = 300
Index = 2
Left = 120
TabIndex = 38
Text = "0"
Top = 200
Width = 612
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "％"
Height = 180
Index = 5
Left = 720
TabIndex = 41
Top = 360
Width = 180
End
End
Begin VB.Frame Frame2
Caption = "开度设定"
Height = 550
Index = 1
Left = 5160
TabIndex = 35
ToolTipText = "按上、下箭头增加或减少阀门开度，或直接输入阀门开度值，按回车生效"
Top = 3050
Width = 972
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000000&
Height = 300
Index = 1
Left = 120
TabIndex = 36
Text = "0"
Top = 200
Width = 612
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "％"
Height = 180
Index = 4
Left = 720
TabIndex = 40
Top = 360
Width = 180
End
End
Begin VB.CommandButton Command2
BackColor = &H00C0C0C0&
Caption = "开始&1"
Height = 312
Index = 0
Left = 6276
MaskColor = &H00FFFFFF&
MouseIcon = "zkhm.frx":0000
MousePointer = 99 'Custom
TabIndex = 32
ToolTipText = "单击此按钮，将开始新的反应"
Top = 1320
Width = 660
End
Begin VB.CommandButton Command2
Caption = "开始&2"
Height = 312
Index = 1
Left = 6276
MouseIcon = "zkhm.frx":0152
MousePointer = 99 'Custom
TabIndex = 0
ToolTipText = "单击此按钮，将开始新的反应"
Top = 3168
Width = 660
End
Begin VB.CommandButton Command2
Caption = "开始&3"
Height = 312
Index = 2
Left = 6276
MouseIcon = "zkhm.frx":02A4
MousePointer = 99 'Custom
TabIndex = 1
ToolTipText = "单击此按钮，将开始新的反应"
Top = 4920
Width = 660
End
Begin VB.Timer Timer1
Interval = 1000
Left = 4236
Top = 2736
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Height = 276
Index = 2
Left = 6072
Locked = -1 'True
TabIndex = 26
TabStop = 0 'False
Top = 4302
Width = 996
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 276
Index = 2
Left = 6072
Locked = -1 'True
TabIndex = 25
TabStop = 0 'False
Top = 4005
Width = 996
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Height = 276
Index = 2
Left = 6072
Locked = -1 'True
TabIndex = 24
TabStop = 0 'False
Top = 3708
Width = 876
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Height = 276
Index = 1
Left = 6072
Locked = -1 'True
TabIndex = 20
TabStop = 0 'False
Top = 2532
Width = 996
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 276
Index = 1
Left = 6072
Locked = -1 'True
TabIndex = 19
TabStop = 0 'False
Top = 2244
Width = 996
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Height = 276
Index = 1
Left = 6072
Locked = -1 'True
TabIndex = 18
TabStop = 0 'False
Top = 1956
Width = 876
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Height = 264
Index = 0
Left = 6072
Locked = -1 'True
TabIndex = 14
TabStop = 0 'False
Top = 710
Width = 996
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 264
Index = 0
Left = 6072
Locked = -1 'True
TabIndex = 13
TabStop = 0 'False
Top = 421
Width = 996
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Height = 264
Index = 0
Left = 6072
Locked = -1 'True
TabIndex = 12
TabStop = 0 'False
Top = 132
Width = 876
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00000000&
Height = 1344
Index = 2
Left = 888
ScaleHeight = 108
ScaleMode = 3 'Pixel
ScaleWidth = 329
TabIndex = 6
TabStop = 0 'False
Top = 3744
Width = 3996
Begin VB.Line LineSheDing
BorderColor = &H00E0E0E0&
BorderStyle = 2 'Dash
Index = 2
Visible = 0 'False
X1 = 0
X2 = 330
Y1 = 30
Y2 = 30
End
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00000000&
Height = 1344
Index = 1
Left = 888
ScaleHeight = 108
ScaleMode = 3 'Pixel
ScaleWidth = 329
TabIndex = 4
TabStop = 0 'False
Top = 1932
Width = 3996
Begin VB.Line LineSheDing
BorderColor = &H00E0E0E0&
BorderStyle = 2 'Dash
Index = 1
Visible = 0 'False
X1 = 0
X2 = 330
Y1 = 30
Y2 = 30
End
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00000000&
FillStyle = 0 'Solid
ForeColor = &H0000FF00&
Height = 1344
Index = 0
Left = 888
ScaleHeight = 108
ScaleMode = 3 'Pixel
ScaleWidth = 329
TabIndex = 2
TabStop = 0 'False
Top = 120
Width = 3996
Begin VB.Line LineSheDing
BorderColor = &H00E0E0E0&
BorderStyle = 2 'Dash
Index = 0
Visible = 0 'False
X1 = 0
X2 = 330
Y1 = 30
Y2 = 30
End
End
Begin VB.Frame Frame2
Caption = "开度设定"
Height = 550
Index = 0
Left = 5160
TabIndex = 33
ToolTipText = "按上、下箭头增加或减少阀门开度，或直接输入阀门开度值，按回车生效"
Top = 1250
Width = 972
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000000&
Height = 300
Index = 0
Left = 120
TabIndex = 34
Text = "0"
Top = 200
Width = 612
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "％"
Height = 180
Index = 3
Left = 720
TabIndex = 39
Top = 300
Width = 180
End
End
Begin VB.Label lblDaoJiShi
BackStyle = 0 'Transparent
Caption = "x"
ForeColor = &H8000000D&
Height = 180
Index = 2
Left = 6264
TabIndex = 44
Top = 4620
Width = 492
End
Begin VB.Label lblDaoJiShi
Caption = "离结束还有 Kg"
Height = 180
Index = 5
Left = 5208
TabIndex = 47
Top = 4620
Width = 2052
End
Begin VB.Label lblDaoJiShi
BackStyle = 0 'Transparent
Caption = "x"
ForeColor = &H8000000D&
Height = 180
Index = 1
Left = 6264
TabIndex = 43
Top = 2844
Width = 492
End
Begin VB.Label lblDaoJiShi
Caption = "离结束还有 Kg"
Height = 180
Index = 4
Left = 5208
TabIndex = 46
Top = 2840
Width = 2052
End
Begin VB.Label lblDaoJiShi
BackStyle = 0 'Transparent
Caption = "x"
ForeColor = &H8000000D&
Height = 180
Index = 0
Left = 6264
TabIndex = 42
Top = 1020
Width = 492
End
Begin VB.Label lblDaoJiShi
Caption = "离结束还有 Kg"
Height = 180
Index = 3
Left = 5208
TabIndex = 45
Top = 1020
Width = 2052
End
Begin VB.Line Line3H
Index = 0
X1 = 888
X2 = 888
Y1 = 5088
Y2 = 5238
End
Begin VB.Line Line3V
Index = 0
X1 = 738
X2 = 888
Y1 = 3744
Y2 = 3744
End
Begin VB.Line Line2H
Index = 0
X1 = 888
X2 = 888
Y1 = 3276
Y2 = 3426
End
Begin VB.Line Line2V
Index = 0
X1 = 738
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -