📄 mainpage.frm
字号:
Picture = "MainPage.frx":4BE69
Top = 10560
Width = 480
End
Begin VB.Label labTime
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 495
Left = 13560
TabIndex = 14
Top = 720
Width = 1335
End
Begin VB.Image imgRecord
Height = 585
Left = 200
Top = 10900
Width = 600
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 375
Left = 240
TabIndex = 13
Top = 10440
Width = 4650
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
DragMode = 1 'Automatic
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 315
Left = 2280
TabIndex = 12
Top = 11280
Width = 3735
End
Begin VB.Image imgJian
Height = 375
Left = 13650
MouseIcon = "MainPage.frx":4CDD5
MousePointer = 99 'Custom
Top = 9110
Width = 1095
End
Begin VB.Image imgAdd
Height = 375
Left = 14755
MouseIcon = "MainPage.frx":4D0DF
MousePointer = 99 'Custom
Top = 9098
Width = 375
End
Begin VB.Image imgPicture
Height = 375
Left = 13560
MouseIcon = "MainPage.frx":4D3E9
MousePointer = 99 'Custom
Picture = "MainPage.frx":4D6F3
Top = 3120
Width = 1320
End
Begin VB.Image imgStartRecord
Height = 375
Left = 13560
MouseIcon = "MainPage.frx":4F172
MousePointer = 99 'Custom
Picture = "MainPage.frx":4F47C
Top = 1440
Width = 1320
End
Begin VB.Image imgCapPicture
Height = 375
Left = 13560
MouseIcon = "MainPage.frx":51093
MousePointer = 99 'Custom
Picture = "MainPage.frx":5139D
Top = 3840
Width = 1320
End
Begin VB.Image imgReplay
Height = 375
Left = 13560
MouseIcon = "MainPage.frx":52715
MousePointer = 99 'Custom
Picture = "MainPage.frx":52A1F
Top = 2280
Width = 1320
End
Begin VB.Image imgSetPara
Height = 375
Left = 13560
MouseIcon = "MainPage.frx":54565
MousePointer = 99 'Custom
Picture = "MainPage.frx":5486F
Top = 4680
Width = 1320
End
Begin VB.Image YuntaiDongzuo1
Height = 375
Index = 0
Left = 14720
MouseIcon = "MainPage.frx":55B8C
MousePointer = 99 'Custom
Top = 7910
Width = 375
End
Begin VB.Image YuntaiDongzuo1
Height = 375
Index = 1
Left = 14280
MouseIcon = "MainPage.frx":55E96
MousePointer = 99 'Custom
Top = 7920
Width = 495
End
Begin VB.Image YuntaiDongzuo1
Height = 375
Index = 2
Left = 14710
MouseIcon = "MainPage.frx":561A0
MousePointer = 99 'Custom
Top = 8300
Width = 375
End
Begin VB.Image YuntaiDongzuo1
Height = 375
Index = 3
Left = 13945
MouseIcon = "MainPage.frx":564AA
MousePointer = 99 'Custom
Top = 8350
Width = 615
End
Begin VB.Image YuntaiDongzuo1
Height = 375
Index = 4
Left = 14710
MouseIcon = "MainPage.frx":567B4
MousePointer = 99 'Custom
Top = 8690
Width = 375
End
Begin VB.Image YuntaiDongzuo1
Height = 375
Index = 5
Left = 13680
MouseIcon = "MainPage.frx":56ABE
MousePointer = 99 'Custom
Top = 8760
Width = 975
End
Begin VB.Image imageSound
Height = 255
Left = 13150
Top = 9050
Width = 255
End
Begin VB.Image YuntaiDongZuo
Height = 495
Index = 3
Left = 14500
MouseIcon = "MainPage.frx":56DC8
MousePointer = 99 'Custom
Top = 6640
Width = 495
End
Begin VB.Image YuntaiDongZuo
Height = 495
Index = 2
Left = 13480
MouseIcon = "MainPage.frx":570D2
MousePointer = 99 'Custom
Top = 6640
Width = 495
End
Begin VB.Image YuntaiDongZuo
Height = 495
Index = 1
Left = 14010
MouseIcon = "MainPage.frx":573DC
MousePointer = 99 'Custom
Top = 7100
Width = 495
End
Begin VB.Image YuntaiDongZuo
Height = 495
Index = 0
Left = 14010
MouseIcon = "MainPage.frx":576E6
MousePointer = 99 'Custom
Top = 6230
Width = 495
End
Begin VB.Label LabInterval
Caption = "2"
Height = 375
Left = 600
TabIndex = 10
Top = 11880
Width = 255
End
Begin VB.Label Label7
Caption = "循环间隔"
Height = 375
Left = -240
TabIndex = 9
Top = 11880
Width = 855
End
Begin VB.Label labCurDate
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 495
Left = 13560
TabIndex = 3
Top = 240
Width = 1695
End
End
Attribute VB_Name = "MainPage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 用于控制整个视频的显示区域和小视频窗体的定位
Const L_W = 13000
Const L_H = 10350
Const Shift_L = 15
Const Shift_T = 15
Const DelayTime = 100
Dim bHaveLargeWindow As Boolean ' 当前是否大窗体显示
Dim nShowType As Integer ' 1:画面，4：4画面，9：9画面,16:16 画面
Dim nCurLargeWindowIndex As Integer ' 切换显示时，当前大窗口显示的索引
Const gNumberOfSlots = 64
Const Max_Slots = 64 '最大通道数
Dim Volume As Long
Dim OldFile(0 To 15) As String
Dim NewFile(0 To 15) As String
Dim flag(0 To 4) As Boolean
Dim flag1 As Boolean
Dim flag2 As Boolean
Dim flag3 As Boolean
Dim flag4 As Boolean
Dim flag8 As Boolean
Dim flag5 As Boolean
Dim flag7 As Boolean
Dim flag9 As Boolean
Dim flag10 As Boolean
Dim iTotalChannel As Long '总通道数
Dim iServerNum As Integer '服务器个数
Dim strServerIP(16) As String
'----------------改变云台调节速度-----------
Dim YunTaiSpeed As String
'云台的自动控制
'Private Sub chkAuto_Click()
'
'On Error GoTo err:
' If CurrentNum = -1 Then
' MsgBox "请先选择需要调节的通道"
' End If
'
' If chkAuto.Value = vbChecked Then
' If CurrentNum < 10 Then
' - "0" & Channel(CurrentNum, 1) & "11"
' ElseIf CurrentNum >= 10 Then
' Winsockclient.SendData Channel(CurrentNum, 1) & "11"
' End If
' ElseIf chkAuto.Value = vbUnchecked Then
' If CurrentNum < 10 Then
' Winsockclient.SendData "0" & Channel(CurrentNum, 1) & "04"
' ElseIf CurrentNum >= 10 Then
' Winsockclient.SendData Channel(CurrentNum, 1) & "04"
' End If
'
' End If
' Exit Sub
'
'err:
' MsgBox err.Description
'
'End Sub
'
'刷新按钮
Private Sub Image1_Click()
GetPlayPara
flag9 = False
End Sub
'间隔时间减
Private Sub imgDel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgDel.Picture = LoadPicture(App.Path & "\res\xiao.jpg")
If SwitchInterval >= 1 Then
SwitchInterval = SwitchInterval - 1
labRecord.Caption = SwitchInterval
End If
End Sub
Private Sub imgDel_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgDel.Picture = LoadPicture()
End Sub
'弹出报警功能
Private Sub imgEvents_Click()
Load frmEvents
frmEvents.Show
End Sub
Private Sub imgEvents_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With imgEvents
If X < 50 Or X > .Width - 50 Or Y < 50 Or Y > .Height - 50 Then
.Picture = LoadPicture("")
Else
.Picture = LoadPicture(App.Path + "\res\events.jpg")
End If
End With
End Sub
'退出按钮
Private Sub imgExit_Click()
Winsockclient.Close
Unload Me
End Sub
'间隔时间加
Private Sub imgJia_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgJia.Picture = LoadPicture(App.Path & "\res\da.jpg")
SwitchInterval = SwitchInterval + 1
labRecord.Caption = SwitchInterval
End Sub
Private Sub imgJia_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgJia.Picture = LoadPicture()
End Sub
'抓图按钮
Private Sub imgCapPicture_Click()
On Error GoTo err:
Dim i As Integer
Dim whichday As String
Dim whichtime As String
Dim h As Boolean
Dim iRemotechannel As Integer
iRemotechannel = Channel(CurrentNum, 1)
DriveName = frmSetPara.Combo2.Text
whichday = Format(Now, "yyyy-mm-dd")
whichtime = Format(Now, "hh-mm-ss")
h = Cli_ClientSetCapPicCallBack(stockhandle(CurrentNum), DriveName & ":\\picture\\S" & ServerNum & "N" & CurrentNum + 1 & "F" & whichday & "H" & whichtime & ".jpg")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -