Private Sub LoadScanners(c As ComboBox, cID As ComboBox)
Dim deviceName As
String = ""
c.Items.Clear()
Dim deviceManager As New
WIA.DeviceManager
'Recorre
la lista de disositivos y añadimos el nombre en combobox y el id en un segundo
combobox
For
Each info As WIA.DeviceInfo In deviceManager.DeviceInfos
Dim deviceID As
String = info.DeviceID
If info.Type = WIA.WiaDeviceType.ScannerDeviceType Then
For Each
p As WIA.Property In info.Properties
If p.Name = "Name" Then
deviceName = DirectCast(p, WIA.IProperty).Value.ToString()
c.Items.Add(deviceName)
cID.Items.Add(deviceID)
End If
Next
End If
Next
End Sub
