Selecting ltmmConvertCtrl Object Target Devices Example for Visual Basic
The following example shows how to enumerate and select ltmmConvertCtrl object target devices.
Sub EnumerateTargetDevices(TargetDevices As ltmmTargetDevices, List As ListBox)
' Build the devices list box
Dim Selected As Long
Selected = -1
List.Clear
For i = 0 To (TargetDevices.Count - 1)
List.AddItem TargetDevices.Item (i).FriendlyName
List.ItemData(List.NewIndex) = i
If TargetDevices.Item(i).Selected Then
Selected = i
End If
Next
' highlight the current selection
For i = 0 To (List.ListCount - 1)
If List.ItemData(i) = Selected Then
List.Selected(i) = True
End If
Next
End Sub
Sub RefreshTargetDevices(TargetDevices As ltmmTargetDevices, List As ListBox)
Dim Selected As Long
Dim SelectedName As String
' save the currently selected device's name
Selected = TargetDevices.Selection
If Selected >= 0 Then
SelectedName = TargetDevices.Item (Selected).Name
End If
' refresh the device collection
TargetDevices.Refresh
' if there was a previously selected device, reselect it
If Selected >= 0 Then
TargetDevices.Selection = TargetDevices.Find (SelectedName)
End If
' rebuild the listbox
EnumerateTargetDevices TargetDevices, List
End Sub
Sub SelectTargetDevice(TargetDevices As ltmmTargetDevices, List As ListBox)
' select the highlighted device
TargetDevices.Selection = List.ItemData(List.ListIndex)
End Sub
Private Sub cmdTargetRefresh_Click()
' refresh target devices
RefreshTargetDevices ltmmConvertCtrl1.TargetDevices, lstTargetDevices
End Sub
Private Sub Form_Load()
' build the target device list
EnumerateTargetDevices ltmmConvertCtrl1.TargetDevices, lstTargetDevices
End Sub
Private Sub lstTargetDevices_Click()
' select the target device
SelectTargetDevice ltmmConvertCtrl1.TargetDevices, lstTargetDevices
End Sub