📄 frmevents.frm
字号:
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 17
Left = 0
Picture = "frmEvents.frx":6292D
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 16
Left = 0
Picture = "frmEvents.frx":65474
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 15
Left = 0
Picture = "frmEvents.frx":67FBB
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 14
Left = 0
Picture = "frmEvents.frx":6AB02
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 13
Left = 0
Picture = "frmEvents.frx":6D649
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 12
Left = 0
Picture = "frmEvents.frx":70190
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 11
Left = 0
Picture = "frmEvents.frx":72CD7
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 10
Left = 0
Picture = "frmEvents.frx":7581E
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 9
Left = 0
Picture = "frmEvents.frx":78365
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 8
Left = 0
Picture = "frmEvents.frx":7AEAC
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 7
Left = 0
Picture = "frmEvents.frx":7D9F3
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 6
Left = 0
Picture = "frmEvents.frx":8053A
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 5
Left = 0
Picture = "frmEvents.frx":83081
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 4
Left = 0
Picture = "frmEvents.frx":85BC8
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 3
Left = 0
Picture = "frmEvents.frx":8870F
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 2
Left = 0
Picture = "frmEvents.frx":8B256
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgTance
Height = 315
Index = 0
Left = 0
Picture = "frmEvents.frx":8DD9D
Stretch = -1 'True
Top = 0
Width = 315
End
Begin VB.Image imgChannel
Height = 255
Index = 15
Left = 0
Picture = "frmEvents.frx":908E4
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 14
Left = 0
Picture = "frmEvents.frx":9168F
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 13
Left = 0
Picture = "frmEvents.frx":9243A
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 12
Left = 0
Picture = "frmEvents.frx":931E5
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 11
Left = 0
Picture = "frmEvents.frx":93F90
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 10
Left = 0
Picture = "frmEvents.frx":94D3B
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 9
Left = 0
Picture = "frmEvents.frx":95AE6
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 8
Left = 0
Picture = "frmEvents.frx":96891
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 7
Left = 0
Picture = "frmEvents.frx":9763C
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 6
Left = 0
Picture = "frmEvents.frx":983E7
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 5
Left = 0
Picture = "frmEvents.frx":99192
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 4
Left = 0
Picture = "frmEvents.frx":99F3D
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 3
Left = 0
Picture = "frmEvents.frx":9ACE8
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 2
Left = 0
Picture = "frmEvents.frx":9BA93
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgChannel
Height = 255
Index = 1
Left = 0
Picture = "frmEvents.frx":9C83E
Stretch = -1 'True
Top = 0
Width = 495
End
Begin VB.Image imgTance
Height = 315
Index = 1
Left = 720
Picture = "frmEvents.frx":9D5E9
Stretch = -1 'True
Top = 720
Width = 315
End
Begin VB.Image imgChannel
Height = 255
Index = 0
Left = 360
Picture = "frmEvents.frx":A0130
Stretch = -1 'True
Top = 120
Width = 495
End
Begin VB.Image imgMap
Height = 8550
Left = 0
Stretch = -1 'True
Top = 0
Width = 11640
End
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "报警前端机地图"
Height = 195
Left = 1440
TabIndex = 4
Top = 7800
Width = 1980
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "前端机位置图"
Height = 195
Left = 360
TabIndex = 3
Top = 2640
Width = 1080
End
End
End
Attribute VB_Name = "frmEvents"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strKey As String
Dim strSection(16) As String
Dim ServerName(16) As String
Dim iServerNo As Integer '对应服务器号
Dim iTimer3Count As Integer 'timer3的计数个数
Dim bBaojingHandle As Boolean '是否解除报警
'报警卡的设置
Dim outflag(16)
Dim i As Integer
Dim dat As Integer
Private Sub cmdChangeSize_Click()
'On Error Resume Next
If cmdChangeSize.Caption = "放大显示" Then
Dim iX As Integer
Dim iY As Integer
SpecifyIni App.Path + "\map\Map0.ini"
' strbgFilename = ReadString("总图设置", "pic1", 100)
imgMap.Picture = LoadPicture(App.Path + "\map\Server0.bmp")
imgServer1(0).Visible = False
For i = 1 To 16
iX = ReadInt(ServerName(i), "X1")
iY = ReadInt(ServerName(i), "Y1")
If iX > 0 Or iY > 0 Then
imgServer1(i).Visible = True
imgServer1(i).Move iX, iY
imgServer1(i).ToolTipText = "第" & i & "服务器"
Else
imgServer1(i).Visible = False
End If
imgChannel(i - 1).Visible = False
Next i
For i = 0 To imgTance.Count - 1
imgTance(i).Visible = False
Next i
cmdChangeSize.Caption = "恢复显示"
Label3.Caption = "放大显示前端机位置图"
Else
ShowMap iServerNo, 1
cmdChangeSize.Caption = "放大显示"
Label3.Caption = "报警前端机地图"
End If
End Sub
Private Sub cmdClearEvents_Click()
' 清空原有记录
Open App.Path + "\报警日志.txt" For Output As #1
Do While Not EOF(1)
Print #1, ""
Loop
Close #1
End Sub
Private Sub cmdHandle_Click()
BaojingHandle (1)
End Sub
Private Sub BaojingHandle(ByVal iType As Integer)
If bBaojingHandle = True Then Exit Sub
If iType = 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -