设备的开启与操作: 开启设备

程序窗体如图所示，"Open Device" 按钮下方的区域用于显示现场视频画面。

通过Devices集合，程序首先在ListBox List1里列出系统中所有视频捕捉设备的名称。 .Devices.Count 是所找到设备的数目，Devices(i) 返回第i台设备的信息。 本例中，该信息就是指设备名称。

Private Sub Form_Load()
    For i = 1 To ICImagingControl1.Devices.Count
        List1.AddItem ICImagingControl1.Devices(i).Name
    Next i
End Sub

Private Sub btnClose_Click()
    Unload Me
End Sub

当用户点击 "Open Device" 按钮后，程序停止视频数据流(.LiveStop)，从List1.Text中返回所选设备的名称。 而后通过.LiveStart显示这台设备传来的图像数据流：

Private Sub btnOpenDevice_Click()

    If ICImagingControl1.LiveVideoRunning Then
        ICImagingControl1.LiveStop
    End If

    ICImagingControl1.Device = List1.Text

    ICImagingControl1.LiveStart
End Sub