Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As PlayCtrlForm = New PlayCtrlForm()
Public Sub ClearExample()
' reference the play control
Dim playctrl As PlayCtrl = _form.PlayCtrl
Try
' get the available video processors
Dim allProcs As VideoProcessors = playctrl.VideoProcessors
' get the selected video processors
Dim selprocs As VideoProcessors = playctrl.SelectedVideoProcessors
' add the Dizzy video processor to the selected video
' processors collection
selprocs.Add(allProcs.EFXDizzy)
' get the current count of selected processors
Dim n As Integer = selprocs.Count
' clear the collection
selprocs.Clear()
' get the count again
Dim m As Integer = selprocs.Count
' set the result to what we expect
_result = (n > m AndAlso m = 0)
Catch e1 As Exception
_result = False
End Try
End Sub
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public PlayCtrlForm _form = new PlayCtrlForm();
public void ClearExample()
{
// reference the play control
PlayCtrl playctrl = _form.PlayCtrl;
try
{
// get the available video processors
VideoProcessors allProcs = playctrl.VideoProcessors;
// get the selected video processors
VideoProcessors selprocs = playctrl.SelectedVideoProcessors;
// add the Dizzy video processor to the selected video
// processors collection
selprocs.Add(allProcs.EFXDizzy);
// get the current count of selected processors
int n = selprocs.Count;
// clear the collection
selprocs.Clear();
// get the count again
int m = selprocs.Count;
// set the result to what we expect
_result = (n > m && m == 0);
}
catch (Exception)
{
_result = false;
}
}