📄 frmdlother.frm
字号:
VERSION 5.00
Object = "{EDD1739A-C3C2-4667-9EAB-815CFF863481}#1.0#0"; "XPCURVE.DLL"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{2C68D6B6-59A4-4832-ADB6-1E82FE149E67}#71.0#0"; "OptionCurve.ocx"
Begin VB.Form frmDlOther
BorderStyle = 3 'Fixed Dialog
Caption = "单炉其他操作"
ClientHeight = 8715
ClientLeft = 0
ClientTop = 2130
ClientWidth = 12930
FillStyle = 0 'Solid
Icon = "frmDlOther.frx":0000
LinkTopic = "FormOther"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8715
ScaleWidth = 12930
ShowInTaskbar = 0 'False
Begin OptCurve.Switch ctlSwitch1
Height = 735
Left = 7680
TabIndex = 74
Top = 5160
Width = 495
_ExtentX = 873
_ExtentY = 1296
Enableden = 0 'False
End
Begin VB.Frame Frame5
Caption = "自动加煤"
Height = 1335
Left = 11310
TabIndex = 53
Top = 6045
Width = 1440
Begin VB.CommandButton cmdAutoAddCoal
BackColor = &H0000FF00&
Caption = "自动加煤"
Height = 510
Left = 210
Style = 1 'Graphical
TabIndex = 54
Top = 405
Width = 1020
End
End
Begin VB.Frame Frame4
Caption = "其它"
Height = 1035
Left = 6510
TabIndex = 49
Top = 7530
Width = 6255
Begin VB.CommandButton cmdClearXiahui
Caption = "清除下灰"
Height = 495
Left = 3240
TabIndex = 52
Top = 315
Width = 1380
End
Begin VB.CommandButton cmdClose
Caption = "返 回"
Default = -1 'True
Height = 495
Left = 4785
TabIndex = 12
Top = 315
Width = 1215
End
Begin VB.CommandButton CmdStartHS
Caption = "启动热回收"
Height = 495
Left = 270
Style = 1 'Graphical
TabIndex = 51
Top = 315
Width = 1365
End
Begin VB.CommandButton cmdSecurityStop
Caption = "安全停炉"
Height = 495
Left = 1845
Style = 1 'Graphical
TabIndex = 50
Top = 315
Width = 1215
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 13770
Top = 5955
End
Begin VB.Timer TimerSingle
Interval = 1000
Left = 7200
Top = 4935
End
Begin VB.Frame Frame3
Caption = "制惰"
Height = 1350
Left = 9885
TabIndex = 21
Top = 6060
Width = 1320
Begin VB.CommandButton CmdOpenStove
Caption = "开炉"
Enabled = 0 'False
Height = 495
Left = 1440
TabIndex = 23
Top = 345
Width = 735
End
Begin VB.CommandButton CmdStartCrazy
Caption = "制惰"
Enabled = 0 'False
Height = 495
Left = 195
Style = 1 'Graphical
TabIndex = 22
Top = 405
Width = 840
End
End
Begin VB.Frame Frame2
Caption = "炉条机控制"
Height = 1365
Left = 6480
TabIndex = 16
Top = 6045
Width = 3240
Begin VB.CommandButton cmdFirstStart
Caption = "初始化"
Height = 420
Left = 2070
TabIndex = 61
Top = 840
Width = 990
End
Begin VB.CommandButton cmdStopABB
Caption = "停止"
Height = 435
Left = 1110
TabIndex = 60
Top = 825
Width = 825
End
Begin VB.CommandButton cmdStartABB
Caption = "启动"
Height = 435
Left = 225
TabIndex = 58
Top = 825
Width = 765
End
Begin VB.CommandButton Command_Speed
Caption = "调节"
Height = 375
Left = 2205
TabIndex = 20
Top = 330
Width = 840
End
Begin MSComCtl2.UpDown UpDown_Speed
Height = 375
Left = 1950
TabIndex = 19
Top = 345
Width = 240
_ExtentX = 423
_ExtentY = 661
_Version = 393216
Max = 1800
Enabled = -1 'True
End
Begin VB.TextBox Text_Speed
Height = 375
Left = 1110
TabIndex = 18
Text = "0"
Top = 315
Width = 870
End
Begin VB.CheckBox Check_Speed
Caption = "自动"
Height = 375
Left = 240
TabIndex = 17
Top = 315
Width = 735
End
End
Begin VB.Frame Frame1
Caption = "单炉阀门操作"
Height = 2550
Left = 120
TabIndex = 0
Top = 6030
Width = 6015
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 0
Left = 240
TabIndex = 62
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin VB.TextBox txtAddCoalCount
Height = 270
Left = 5160
TabIndex = 29
Text = "1"
Top = 1770
Width = 495
End
Begin VB.TextBox txtAddCoalTime
Height = 270
Left = 5160
TabIndex = 26
Text = "3"
Top = 2040
Width = 495
End
Begin VB.CommandButton cmdJNYL
Caption = "加氮养炉"
Height = 495
Left = 240
Style = 1 'Graphical
TabIndex = 25
Top = 1845
UseMaskColor = -1 'True
Width = 975
End
Begin VB.CommandButton cmdAddCoal
Caption = "手动加煤"
Height = 495
Left = 3630
Style = 1 'Graphical
TabIndex = 24
Top = 1845
Width = 1095
End
Begin VB.CommandButton cmdQSC
Caption = "全上吹"
Height = 495
Left = 2400
Style = 1 'Graphical
TabIndex = 14
TabStop = 0 'False
Top = 1845
Width = 1095
End
Begin VB.CommandButton cmdSCFK
Caption = "上吹放空"
Height = 495
Left = 1305
Style = 1 'Graphical
TabIndex = 15
Top = 1845
Width = 975
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 1
Left = 720
TabIndex = 63
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 2
Left = 1200
TabIndex = 64
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 3
Left = 1680
TabIndex = 65
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 4
Left = 2160
TabIndex = 66
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 5
Left = 2640
TabIndex = 67
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 6
Left = 3120
TabIndex = 68
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 7
Left = 3600
TabIndex = 69
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 8
Left = 4080
TabIndex = 70
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
Height = 615
Index = 9
Left = 4560
TabIndex = 71
Top = 600
Width = 375
_ExtentX = 661
_ExtentY = 1085
Enableden = 0 'False
Hint = -1 'True
End
Begin OptCurve.Switch ctlSwitch
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -