Leadtools.Multimedia Namespace > CaptureCtrl Class : ScaleTop Property |
'Declaration Public Overridable Property ScaleTop As Single
'Usage Dim instance As CaptureCtrl Dim value As Single instance.ScaleTop = value value = instance.ScaleTop
public virtual float ScaleTop {get; set;}
Imports Leadtools Imports Leadtools.Multimedia Imports LeadtoolsMultimediaExamples.Fixtures Public _result As Boolean = False Public _form As CaptureCtrlForm = New CaptureCtrlForm() Public _capturectrl As CaptureCtrl Public Sub ScaleTopExample() ' reference the capture control _capturectrl = _form.CaptureCtrl ' output file Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_ScaleTopExample.avi") Try ' set the source video device, select using your device name here If _capturectrl.VideoDevices("USB") Is Nothing Then Throw New Exception("No USB video device available") End If _capturectrl.VideoDevices("USB").Selected = True ' select a video compressor _capturectrl.VideoCompressors.Mpeg4.Selected = True ' set the target output file _capturectrl.TargetFile = outFile If _capturectrl.IsModeAvailable(CaptureMode.Video) Then ' subscribe to the started event AddHandler _capturectrl.Started, AddressOf CaptureCtrl_Started ' set the scale top _capturectrl.ScaleTop = 100 ' start capture _capturectrl.StartCapture(CaptureMode.Video) ' get the scale top Dim Top As Single = _capturectrl.ScaleTop ' set the result to what we expect _result = (Top = 100) End If Catch e1 As Exception _result = False End Try ' we'll loop on the state and pump messages for this example. ' but you should not need to if running from a Windows Forms application. Do While _capturectrl.State = CaptureState.Running Application.DoEvents() Loop End Sub Private Sub CaptureCtrl_Started(ByVal sender As Object, ByVal e As EventArgs) ' stop the capture (we don't need a complete capture for this example) _capturectrl.StopCapture() End Sub Public NotInheritable Class LEAD_VARS Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media" End Class
using Leadtools; using Leadtools.Multimedia; using LeadtoolsMultimediaExamples.Fixtures; public bool _result = false; public CaptureCtrlForm _form = new CaptureCtrlForm(); // capture control CaptureCtrl capturectrl; // output file string outFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_ScaleTopExample.avi"); public void ScaleTopExample() { // reference the capture control capturectrl = _form.CaptureCtrl; try { // set the source video device, select using your device name here if (capturectrl.VideoDevices["USB"] == null) { throw new Exception("No USB video device available"); } capturectrl.VideoDevices["USB"].Selected = true; // select a video compressor capturectrl.VideoCompressors.Mpeg4.Selected = true; // set the target output file capturectrl.TargetFile = outFile; if (capturectrl.IsModeAvailable(CaptureMode.Video)) { // subscribe to the started event capturectrl.Started += CaptureCtrl_Started; // set the scale top capturectrl.ScaleTop = 100; // start capture capturectrl.StartCapture(CaptureMode.Video); // get the scale top float Top = capturectrl.ScaleTop; // set the result to what we expect _result = (Top == 100); } } catch (COMException) { _result = false; } catch (Exception) { _result = false; } } void CaptureCtrl_Started(object sender, EventArgs e) { // stop the capture (we do not need a complete capture for this example) capturectrl.StopCapture(); } static class LEAD_VARS { public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media"; }