📄 frmbaojing.frm
字号:
VERSION 5.00
Begin VB.Form baojingfrm
BackColor = &H80000000&
BorderStyle = 1 'Fixed Single
ClientHeight = 1116
ClientLeft = 12
ClientTop = 192
ClientWidth = 9504
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 93
ScaleMode = 3 'Pixel
ScaleWidth = 792
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 132
Index = 5
Left = 8196
ScaleHeight = 108
ScaleWidth = 348
TabIndex = 17
Top = 840
Width = 372
End
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 132
Index = 0
Left = 7080
ScaleHeight = 108
ScaleWidth = 348
TabIndex = 11
Top = 372
Width = 372
End
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 132
Index = 1
Left = 7080
ScaleHeight = 108
ScaleWidth = 348
TabIndex = 10
Top = 600
Width = 372
End
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 132
Index = 2
Left = 7080
ScaleHeight = 108
ScaleWidth = 348
TabIndex = 9
Top = 852
Width = 372
End
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 132
Index = 3
Left = 8196
ScaleHeight = 108
ScaleWidth = 348
TabIndex = 8
Top = 372
Width = 372
End
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 132
Index = 4
Left = 8196
ScaleHeight = 108
ScaleWidth = 348
TabIndex = 7
Top = 600
Width = 372
End
Begin VB.ListBox List1
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 768
ItemData = "frmBaoJing.frx":0000
Left = 2184
List = "frmBaoJing.frx":0002
TabIndex = 2
TabStop = 0 'False
Top = 264
Width = 4536
End
Begin VB.Timer Timer1
Interval = 1000
Left = 1620
Top = 144
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 264
Left = 1032
Locked = -1 'True
TabIndex = 1
Top = 678
Width = 816
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "釜温设定值"
BeginProperty Font
Name = "宋体"
Size = 6.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 144
Left = 8580
TabIndex = 18
Top = 840
Width = 660
WordWrap = -1 'True
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "反应釜温度"
BeginProperty Font
Name = "宋体"
Size = 6.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 144
Left = 7452
TabIndex = 16
Top = 372
Width = 660
WordWrap = -1 'True
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "计量罐液位"
BeginProperty Font
Name = "宋体"
Size = 6.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 132
Left = 7464
TabIndex = 15
Top = 600
Width = 660
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "一甲胺流量"
BeginProperty Font
Name = "宋体"
Size = 6.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 120
Left = 7464
TabIndex = 14
Top = 852
Width = 672
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "投料阀开度"
BeginProperty Font
Name = "宋体"
Size = 6.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 156
Left = 8592
TabIndex = 13
Top = 360
Width = 732
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "冷却盐水温度"
BeginProperty Font
Name = "宋体"
Size = 6.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 132
Left = 8580
TabIndex = 12
Top = 600
Width = 852
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "图 例"
BeginProperty Font
Name = "黑体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 7800
TabIndex = 6
Top = 120
Width = 660
WordWrap = -1 'True
End
Begin VB.Label Label10
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "冷却水温度"
ForeColor = &H80000007&
Height = 180
Left = 96
TabIndex = 5
Top = 720
Width = 888
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "℃"
Height = 252
Left = 1872
TabIndex = 4
Top = 702
Width = 252
End
Begin VB.Image Image3
BorderStyle = 1 'Fixed Single
Height = 1056
Left = 6900
Top = 24
Width = 2580
End
Begin VB.Image Image2
BorderStyle = 1 'Fixed Single
Height = 1056
Left = 2124
Top = 24
Width = 4740
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1056
Left = 24
Top = 24
Width = 2064
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报 警 窗 口"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 240
Left = 3960
TabIndex = 3
Top = 12
Width = 1416
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "显示时间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007&
Height = 456
Left = 180
TabIndex = 0
Top = 120
Width = 1776
End
End
Attribute VB_Name = "baojingfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private i As Integer
Private mvarlqysWenDu As Single
Private Sub Form_Load()
Width = Screen.Width
'*********************
'为图例赋颜色值
'*********************
pic(0).BackColor = QBColor(fyfWenDu_Color)
pic(1).BackColor = QBColor(jlgYeWei_Color)
pic(2).BackColor = QBColor(yjaLiuLiang_Color)
pic(3).BackColor = QBColor(tlfaKaiDu_Color)
pic(4).BackColor = QBColor(lqysWenDu_Color)
pic(5).BackColor = fyfWenDuSheDing_Color
'*********************
'初始化List1
'*********************
With List1
.List(0) = " 时间 变量名 报警类型"
.List(1) = ""
.List(2) = ""
.List(3) = ""
End With
End Sub
Private Sub MMControl1_Done(NotifyCode As Integer)
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now(), "yyyy年mm月dd日 hh:mm:ss")
End Sub
'*********************
'属性：冷却盐水温度
'*********************
Public Property Let lqysWenDu(ByVal vData As Single)
mvarlqysWenDu = vData
Text1.Text = Format(CStr(vData), "0.00")
End Property
Public Property Get lqysWenDu() As Single
lqysWenDu = mvarlqysWenDu
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -