?? frmplaypara.frm
字號(hào):
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPlayPara
Caption = "視頻選擇"
ClientHeight = 5985
ClientLeft = 60
ClientTop = 345
ClientWidth = 4965
Icon = "frmPlayPara.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 5985
ScaleWidth = 4965
StartUpPosition = 2 'CenterScreen
Begin MSComctlLib.ListView ListPlayPara
Height = 6015
Left = 0
TabIndex = 0
Top = 0
Width = 5000
_ExtentX = 8811
_ExtentY = 10610
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = 16777215
BackColor = 8421376
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Key = "Date"
Text = "編號(hào)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Key = "Segment"
Text = "安裝地點(diǎn)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "通道號(hào)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "IP地址"
Object.Width = 3528
EndProperty
End
End
Attribute VB_Name = "frmPlayPara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ListPlayPara_DblClick()
GetPlayPara1
Unload Me
End Sub
Public Sub GetPlayPara1()
On Error Resume Next
Dim i As Integer
Dim j As Integer
Dim IniFileName As String
Dim k As Integer
Dim ip As String
Cli_Stop stockhandle(CurrentNum)
Channel(CurrentNum, 0) = Trim$(ListPlayPara.SelectedItem.SubItems(3))
Channel(CurrentNum, 1) = Trim(ListPlayPara.SelectedItem.SubItems(2))
stockhandle(CurrentNum) = Cli_PlaySoft(MainPage.PicVideo(CurrentNum).hwnd, Channel(CurrentNum, 1), m_linktype, Channel(CurrentNum, 0), UserName, UserPassword, 1)
If Num = 4 Then
MainPage.Show4Windows
ElseIf Num = 9 Then
MainPage.Show9Windows
Else
MainPage.Show16Windows
End If
PlayCount = PlayCount + 1
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -