Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As CaptureCtrlForm = New CaptureCtrlForm()
Public Sub CountResetExample()
Try
' reference the form capture control
Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
' set a video device first, you should use your video device name here
If capturectrl.VideoDevices("Logitech") Is Nothing Then
Throw New Exception("No Logitech video device available")
End If
capturectrl.VideoDevices("Logitech").Selected = True
' reference the video capture subtype collection
Dim stypes As CaptureSubTypes = capturectrl.VideoCaptureSubTypes
' get count of subtypes
Dim cnt As Integer = stypes.Count
' get the current capture subtype before enumeration loop
Dim before As CaptureSubType = TryCast(stypes.Current, CaptureSubType)
' enumerate them and break on master volume
For Each cs As CaptureSubType In stypes
If cs.Name = Leadtools.Multimedia.Constants.MEDIASUBTYPE_RGB24 Then
Exit For
End If
Next cs
' get the current capture subtype now
Dim now As CaptureSubType = TryCast(stypes.Current, CaptureSubType)
' if they are different reset the collection
If Not now Is before Then
stypes.Reset()
End If
' set the result to what we expect
_result = (stypes.Current Is before)
Catch e1 As Exception
_result = False
End Try
End Sub
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public void CountResetExample()
{
try
{
// reference the form capture control
CaptureCtrl capturectrl = _form.CaptureCtrl;
// set a video device first. use your video device's name here
if (capturectrl.VideoDevices["Logitech"] == null)
throw new Exception("No Logitech video device available");
capturectrl.VideoDevices["Logitech"].Selected = true;
// reference the video capture subtype collection
CaptureSubTypes stypes = capturectrl.VideoCaptureSubTypes;
// get count of subtypes
int cnt = stypes.Count;
// get the current capture subtype before enumeration loop
CaptureSubType before = stypes.Current as CaptureSubType;
// enumerate them and break on master volume
foreach (CaptureSubType cs in stypes)
{
if (cs.Name == Constants.MEDIASUBTYPE_RGB24)
break;
}
// get the current capture subtype now
CaptureSubType now = stypes.Current as CaptureSubType;
// if they are different reset the collection
if (now != before)
stypes.Reset();
// set the result to what we expect
_result = (stypes.Current == before);
}
catch (Exception)
{
_result = false;
}
}