識別設備: 讀取設備序列號

每台設備都有它自己的序列號，使之與其它設備區分開來。 下面的代碼就演示瞭如何讀取一台設備的序列號。

程序如圖所示：

首先，程序在列錶框lstDevices中列出系統中所有設備的名稱（如右圖所示）。 該列表由Devices集合提供。 .Devices.Count返回找到設備的數目，Devices(i)返回的是第i個設備的名稱：

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

當用戶選擇列表中的一台設備後，程序將讀取這台設備(selectedDevice)。 而後使用GetSerialNumber讀取這台設備的序列號，將其賦予文檔顯示區txtSerial。

Private Sub lstDevices_Click()

    Dim selectedDevice As Device
    Set selectedDevice = ICImagingControl1.Devices(lstDevices.ListIndex + 1)

    Dim serial As String
    If selectedDevice.GetSerialNumber(serial) Then
        txtSerial.Text = serial
    Else
        txtSerial.Text = "No serial number"
    End If

End Sub

需要注意的是，不是所有的設備都允許程序讀取它的序列號。 所以程序需要檢查GetSerialNumber的返回值是否為空。