ISDBDevice::ActiveDeviceList

CoClass SDBDevice, Interface ISDBDevice

Property Get ActiveDeviceList(containID As String) As ISDBDeviceList

Parameters

Name	Type	Description
containID	String	Specifies the string that must be in each device ID in the list of devices

Property description

Returns the list of devices connected to the computer as SDBDeviceList

Example

Option Explicit
 
Dim UI  : Set UI = SDB.UI
 
Sub OnStartUp()
    Dim mnuTest
    Set mnuTest = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0)
    mnuTest.Caption = SDB.Localize("Sync Now Playing to Galaxy Nexus")
    mnuTest.OnClickFunc = "SDBOnClick"
    mnuTest.UseScript = Script.ScriptPath    
End Sub
   
Sub SDBOnClick(Item)   
  Dim DeviceHandle : DeviceHandle = -1
  Dim Devices : Set Devices = SDB.Device.ActiveDeviceList("VID_04E8&PID_6860")
  Dim i : i = 0 
  For i = 0 To Devices.Count-1
	   If Devices.DeviceHandle(i) <> -1 Then
		   DeviceHandle = Devices.DeviceHandle(i)
	   End If
  Next
  
  SDB.Device.StartSynch DeviceHandle, SDB.Player.CurrentSongList
End Sub