📄 frmmain.frm
字号:
VERSION 5.00
Object = "{EDD1739A-C3C2-4667-9EAB-815CFF863481}#1.0#0"; "xpcurve.dll"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Object = "{2C68D6B6-59A4-4832-ADB6-1E82FE149E67}#77.1#0"; "OptionCurve.ocx"
Object = "{27F55C85-DB1E-11D5-993B-005022205D82}#1.0#0"; "prgress.ocx"
Object = "{80A7185A-84B9-49D2-A806-2FB8EFB52FB3}#3.3#0"; "DCSSync.ocx"
Begin VB.Form frmMain
BackColor = &H80000004&
BorderStyle = 0 'None
ClientHeight = 11205
ClientLeft = 105
ClientTop = 105
ClientWidth = 15330
ControlBox = 0 'False
Icon = "frmMain.frx":0000
LinkMode = 1 'Source
LinkTopic = "CSYF"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 11205
ScaleWidth = 15330
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.PictureBox picFace
Height = 9075
Index = 6
Left = 0
ScaleHeight = 9015
ScaleWidth = 12825
TabIndex = 42
ToolTipText = "系统温度趋势图"
Top = 1800
Width = 12885
Begin OptCurve.OptionCurve OptionCurveTemper
Height = 375
Index = 0
Left = 480
TabIndex = 119
Top = 8640
Width = 2520
_ExtentX = 4445
_ExtentY = 661
BackValue = "00"
GiveValue = "00"
State = "01#:"
Size = 13
End
Begin VB.CommandButton cmd_Up
Caption = "上一页"
Height = 375
Index = 0
Left = 3240
TabIndex = 112
Top = 8640
Width = 975
End
Begin VB.CommandButton cmd_Down
Caption = "下一页"
Height = 375
Index = 0
Left = 4560
TabIndex = 111
Top = 8640
Width = 975
End
Begin VB.Label Label_SYS
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "系统温度趋势"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 360
Index = 2
Left = 5565
TabIndex = 44
Top = 45
Width = 1890
End
Begin XPCURVELibCtl.OnCurve CurveTemper
Height = 8130
Index = 0
Left = 0
OleObjectBlob = "frmMain.frx":08CA
TabIndex = 43
Top = 480
Width = 12660
End
End
Begin VB.PictureBox picFace
Height = 9450
Index = 4
Left = 13005
ScaleHeight = 9390
ScaleWidth = 2310
TabIndex = 29
ToolTipText = "信号LED显示"
Top = 1800
Width = 2370
Begin VB.PictureBox picFace_led
Height = 9400
Left = 0
ScaleHeight = 9345
ScaleWidth = 3945
TabIndex = 99
Top = 0
Width = 4000
Begin OptCurve.LED LED
Height = 615
Index = 0
Left = 0
TabIndex = 128
Top = 0
Width = 1140
_ExtentX = 2011
_ExtentY = 1085
BackColor = 8454016
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Female = 1
End
Begin VB.HScrollBar HScroll_led
Height = 345
LargeChange = 1170
Left = 0
Max = 1170
SmallChange = 1170
TabIndex = 100
Top = 9000
Visible = 0 'False
Width = 2295
End
End
End
Begin VB.PictureBox picFace
BackColor = &H00E0E0E0&
Height = 9075
Index = 0
Left = 0
ScaleHeight = 9015
ScaleWidth = 12705
TabIndex = 21
ToolTipText = "单炉趋势图"
Top = 1800
Width = 12765
Begin OptCurve.UserData UserData
Height = 315
Index = 0
Left = 360
TabIndex = 124
Top = 0
Width = 3000
_ExtentX = 5292
_ExtentY = 556
End
Begin OptCurve.Switch swtStart
Height = 705
Index = 0
Left = 0
TabIndex = 123
Top = 2280
Width = 375
_ExtentX = 661
_ExtentY = 1244
Size = 1
End
Begin OptCurve.OptionCurve OptionCurve
Height = 705
Index = 0
Left = 360
TabIndex = 117
Top = 2280
Width = 4395
_ExtentX = 7752
_ExtentY = 1244
BackValue = "00"
GiveValue = "00"
State = "01#:"
End
Begin VB.CommandButton cmd_Other
BackColor = &H00C0C0C0&
Caption = "其 他"
Height = 705
Index = 0
Left = 5700
Style = 1 'Graphical
TabIndex = 105
ToolTipText = "其他功能"
Top = 2280
UseMaskColor = -1 'True
Visible = 0 'False
Width = 270
End
Begin VB.Label Label_star
BackColor = &H00808080&
Height = 225
Index = 0
Left = 5760
TabIndex = 164
Top = 30
Visible = 0 'False
Width = 225
End
Begin VB.Label Label_shihuo
BackColor = &H00808080&
Height = 225
Index = 0
Left = 5400
TabIndex = 163
Top = 30
Visible = 0 'False
Width = 225
End
Begin VB.Label Label_xiahui
BackColor = &H00808080&
Height = 225
Index = 0
Left = 5040
TabIndex = 162
Top = 30
Visible = 0 'False
Width = 225
End
Begin XPCURVELibCtl.OnCurve curStove
Height = 2295
Index = 0
Left = 0
OleObjectBlob = "frmMain.frx":098C
TabIndex = 25
ToolTipText = "单炉操作请双击曲面画面"
Top = 0
Width = 6060
End
End
Begin VB.PictureBox picFace
Height = 9075
Index = 3
Left = 0
ScaleHeight = 9015
ScaleWidth = 11745
TabIndex = 18
ToolTipText = "系统全貌"
Top = 1800
Width = 11805
Begin VB.Frame Frame2
Caption = "阀检连锁设置"
Height = 7890
Index = 3
Left = 2520
TabIndex = 56
Top = 900
Width = 2000
Begin VB.TextBox CountAll
Enabled = 0 'False
Height = 270
Left = 1320
TabIndex = 97
Text = "2"
Top = 2190
Width = 375
End
Begin VB.CheckBox Check_FJ
Caption = "停炉"
Enabled = 0 'False
Height = 255
Index = 14
Left = 840
TabIndex = 94
Top = 7560
Visible = 0 'False
Width = 670
End
Begin VB.CheckBox Check_FJ
Caption = "停炉"
Enabled = 0 'False
Height = 255
Index = 13
Left = 840
TabIndex = 85
Top = 7200
Visible = 0 'False
Width = 670
End
Begin VB.CheckBox Check_FJ
Caption = "停炉"
Enabled = 0 'False
Height = 255
Index = 12
Left = 840
TabIndex = 84
Top = 6840
Visible = 0 'False
Width = 670
End
Begin VB.CheckBox Check_FJ
Caption = "停炉"
Enabled = 0 'False
Height = 255
Index = 11
Left = 840
TabIndex = 71
Top = 6480
Visible = 0 'False
Width = 670
End
Begin VB.CheckBox Check_FJ
Caption = "停炉"
Enabled = 0 'False
Height = 255
Index = 10
Left = 840
TabIndex = 70
Top = 6120
Visible = 0 'False
Width = 670
End
Begin VB.CheckBox Check_FJ
Caption = "停炉"
Enabled = 0 'False
Height = 255
Index = 9
Left = 840
TabIndex = 69
Top = 5760
Visible = 0 'False
Width = 670
End
Begin VB.CheckBox Check_FJ
Caption = "停炉"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -