設備的開啟與操作: 開啟設備

程序窗體如圖所示，"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