frmplaypara.frm

来自「用vb实现在线考试系统」· FRM 代码 · 共 105 行

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            =   "编号"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Key             =   "Segment"
         Text            =   "安装地点"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "通道号"
         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