📄 mainfrm.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form MainForm
Appearance = 0 'Flat
BackColor = &H8000000A&
BorderStyle = 1 'Fixed Single
ClientHeight = 10530
ClientLeft = 270
ClientTop = 705
ClientWidth = 15000
ControlBox = 0 'False
ForeColor = &H80000008&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 10530
ScaleWidth = 15000
WhatsThisHelp = -1 'True
WindowState = 2 'Maximized
Begin MSCommLib.MSComm MSComm1
Left = 7440
Top = 3840
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 2000
Left = 2160
Top = 4200
End
Begin VB.Timer Timer4
Interval = 500
Left = 2640
Top = 4200
End
Begin VB.CommandButton Command1
BackColor = &H00FFFF80&
Caption = "3#蒸汽锅炉"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 2
Left = 3840
Style = 1 'Graphical
TabIndex = 42
Top = 9840
Width = 1695
End
Begin VB.CommandButton Commands
BackColor = &H0000FF00&
Caption = "水处理回路"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
Style = 1 'Graphical
TabIndex = 41
Top = 9840
Width = 1695
End
Begin VB.CommandButton Command1
BackColor = &H00FF80FF&
Caption = "1#蒸汽锅炉"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 465
Style = 1 'Graphical
TabIndex = 40
Top = 9840
Width = 1695
End
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Caption = "2#蒸汽锅炉"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 2160
Style = 1 'Graphical
TabIndex = 39
Top = 9840
Width = 1695
End
Begin VB.Timer TimerDI
Interval = 500
Left = 4200
Top = 720
End
Begin VB.Timer datacj
Interval = 1000
Left = 4680
Top = 720
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 450
Left = 0
TabIndex = 0
Top = 10080
Width = 15000
_ExtentX = 26458
_ExtentY = 794
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 6
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4410
MinWidth = 4410
Text = "2002-07-30"
TextSave = "2002-07-30"
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4410
MinWidth = 4410
Text = "11:32:12"
TextSave = "11:32:12"
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4410
MinWidth = 4410
Text = "3#给水"
TextSave = "3#给水"
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4410
MinWidth = 4410
Text = "引风"
TextSave = "引风"
Object.Tag = ""
EndProperty
BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4410
MinWidth = 4410
Text = "鼓风"
TextSave = "鼓风"
Object.Tag = ""
EndProperty
BeginProperty Panel6 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4410
MinWidth = 4410
Text = "炉排"
TextSave = "炉排"
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2175
Left = 12000
TabIndex = 1
Top = 120
Visible = 0 'False
Width = 2655
_ExtentX = 4683
_ExtentY = 3836
_Version = 393216
Rows = 32
Cols = 3
BackColorBkg = 16711935
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSWinsockLib.Winsock tcpserver
Left = 3000
Top = 4200
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "kg"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 17
Left = 10470
TabIndex = 38
Top = 5670
Width = 210
End
Begin VB.Label pcl813
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0080FF80&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 17
Left = 9720
TabIndex = 37
Top = 5640
Width = 720
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "kg"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 16
Left = 2790
TabIndex = 36
Top = 990
Width = 210
End
Begin VB.Label pcl813
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0080FF80&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 16
Left = 2040
TabIndex = 35
Top = 960
Width = 720
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "kg"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 15
Left = 9030
TabIndex = 34
Top = 7110
Width = 210
End
Begin VB.Label pcl813
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0080FF80&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 15
Left = 8280
TabIndex = 33
Top = 7080
Width = 720
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "kg"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Index = 14
Left = 5550
TabIndex = 32
Top = 5070
Width = 210
End
Begin VB.Label pcl813
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0080FF80&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -