?? formbjss.frm
字號(hào):
VERSION 5.00
Begin VB.Form FormBjSs
BorderStyle = 1 'Fixed Single
Caption = "實(shí)時(shí)報(bào)警"
ClientHeight = 7155
ClientLeft = 1470
ClientTop = 2235
ClientWidth = 12255
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7155
ScaleWidth = 12255
Begin VB.Timer TimerMain
Interval = 1000
Left = 5160
Top = 3480
End
Begin VB.Image imagBJ
Height = 405
Index = 2
Left = 6720
Top = 3480
Visible = 0 'False
Width = 405
End
Begin VB.Image imagBJ
Height = 405
Index = 1
Left = 6240
Top = 3480
Visible = 0 'False
Width = 405
End
Begin VB.Line Line3
BorderColor = &H80000005&
X1 = 12120
X2 = 12120
Y1 = 120
Y2 = 6960
End
Begin VB.Line Line5
BorderColor = &H80000003&
X1 = 120
X2 = 12120
Y1 = 120
Y2 = 120
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 120
X2 = 12120
Y1 = 6960
Y2 = 6960
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 1
X1 = 105
X2 = 105
Y1 = 120
Y2 = 6960
End
Begin VB.Image imageBJ
Height = 690
Index = 0
Left = 720
Top = 840
Width = 1275
End
Begin VB.Image imagBJ
Height = 405
Index = 0
Left = 5760
Top = 3480
Visible = 0 'False
Width = 405
End
Begin VB.Label LabeBj
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "汽包水位上報(bào)"
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 = 0
Left = 720
TabIndex = 0
Top = 1680
Visible = 0 'False
Width = 1275
End
Begin VB.Shape Shape1
BackColor = &H00C00000&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 6855
Left = 120
Top = 120
Width = 12015
End
End
Attribute VB_Name = "FormBjSs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FlagBj(25), NewBJNum, FlagNum
Private Sub Form_Deactivate()
TimerMain.Enabled = False
Unload Me
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
NewBJNum = BJNum
Imagbj(0).Picture = LoadPicture(bmpdir & "newbj0.bmp")
Imagbj(1).Picture = LoadPicture(bmpdir & "newbj1.bmp")
Imagbj(2).Picture = LoadPicture(bmpdir & "newbj2.bmp")
'===========2002-3-16=========
col1 = 5 - 1 '5列
row1 = 4 - 1 '3行
Rowhei = 2.2 * imageBJ(0).Height
colwidth = 1.8 * imageBJ(0).Width
'=============================================
For ii% = 0 To row1 '列
For jj% = 1 To col1 '行
k1% = (col1 + 1) * ii% + jj%
Load imageBJ(k1%)
imageBJ(k1%).Top = imageBJ(k1% - 1).Top '
imageBJ(k1%).Left = imageBJ(k1% - 1).Left + colwidth
imageBJ(k1%).ZOrder 0
'====================
Load LabeBj(k1%) '單位
LabeBj(k1%).Top = LabeBj(k1% - 1).Top
LabeBj(k1%).Left = LabeBj(k1% - 1).Left + colwidth
LabeBj(k1%).ZOrder 0
Next
'---------------------
If ii% >= row1 Then Exit For
k1% = (col1 + 1) * ii% + jj%
Load imageBJ(k1%)
imageBJ(k1%).ZOrder 0
imageBJ(k1%).Top = imageBJ((col1 + 1) * ii%).Top + Rowhei '變量名字
imageBJ(k1%).Left = imageBJ((col1 + 1) * ii%).Left ' + ColWidth
'====================
Load LabeBj(k1%) 'LabeBj
LabeBj(k1%).ZOrder 0
LabeBj(k1%).Top = LabeBj((col1 + 1) * ii%).Top + Rowhei '變量名字
LabeBj(k1%).Left = LabeBj((col1 + 1) * ii%).Left '+ ColWidth
Next
'---------------------------------------------------
For i% = 0 To NewBJNum ' 個(gè)報(bào)警
LabeBj(i%).Caption = DI_Nam(BJsunx(i%))
LabeBj(i%).Visible = True
imageBJ(i%).Visible = True
imageBJ(i%).Picture = Imagbj(2).Picture
FlagBj(i%) = 2
Next
Me.Height = 7560
TimerMain_Timer
End Sub
Private Sub TimerMain_Timer()
'============報(bào)警處理=======================
FlagNum = (FlagNum + 1) Mod 2
For ij% = 0 To NewBJNum
If PvtDI(BJsunx(ij%)) = 1 Then
FlagBj(ij%) = FlagNum
imageBJ(ij%).Picture = Imagbj(FlagNum).Picture
Else
If FlagBj(ij%) <> 2 Then
FlagBj(ij%) = 2
imageBJ(ij%).Picture = Imagbj(2).Picture
End If
End If
Next
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -