识别设备: 读取设备序列号

每台设备都有它自己的序列号，使之与其它设备区分开来。 下面的代码就演示了如何读取一台设备的序列号。

程序如图所示：

首先，程序在列表框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的返回值是否为空。