Filter
Top Products
Sample Applications A-3
' Form1
Me.ClientSize = New System.Drawing.Size(242, 272)
Me.Controls.Add(Me.btnClear)
Me.Controls.Add(Me.btnEnter)
Me.Controls.Add(Me.txtUPC)
Me.Controls.Add(Me.lblScanEnterData)
Me.Text = "Demo"
End Sub
Public Shared Sub Main()
Application.Run(New Form1)
End Sub
#End Region
'************************************************************
'* Form1_Load Event
'* Description:
'* Set App Name & Version
'* Enable/Disable Barcode Symbologies & Commit Changes(save
'* to ultra.cfg)
'************************************************************
Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
' ---Set Application Name & Version Info
Dim rVersion As New Ultra.Version
' Instantiate Version class
rVersion.AppName = "Demo VB"
' Application Name
rVersion.AppVersion = "1.0"
' Application Version
' Setup Scanner Configuration Programatically
Dim GENERAL As New Ultra.Scan.General
GENERAL.Postamble = "\n\r"
' Append CR -- Auto-Enter
' CONTROL
Dim CONTROL As New Ultra.Scan.Control
' Set TriggerMode (Activate scanner on trigger press/release)
CONTROL.TriggerMode = CONTROL.eTriggerMode.TM_SCAN