Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As ConvertCtrlForm = New ConvertCtrlForm()
Public Sub CopyToExample()
' reference the form convert control
Dim convertctrl As ConvertCtrl = _form.ConvertCtrl
Dim devices As TargetDevices = convertctrl.TargetDevices
Try
' allocate a new array for the copied video devices
Dim copiedDevices As TargetDevice() = New TargetDevice(devices.Count - 1) {}
' copy them
devices.CopyTo(copiedDevices, 0)
' set the result to what we expect
_result = (copiedDevices.Length = devices.Count)
Catch e1 As Exception
_result = False
End Try
End Sub
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public ConvertCtrlForm _form = new ConvertCtrlForm();
public void CopyToExample()
{
// reference the form convert control
ConvertCtrl convertctrl = _form.ConvertCtrl;
TargetDevices devices = convertctrl.TargetDevices;
try
{
// allocate a new array for the copied video devices
TargetDevice[] copiedDevices = new TargetDevice[devices.Count];
// copy them
devices.CopyTo(copiedDevices, 0);
// set the result to what we expect
_result = (copiedDevices.Length == devices.Count);
}
catch (Exception)
{
_result = false;
}
}