Filter
Top Products
Sample Applications A-17
' Form1
Me.ClientSize = New System.Drawing.Size(242, 272)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.label3)
Me.Controls.Add(Me.txtScanLength)
Me.Controls.Add(Me.txtScanType)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.txtScanData)
Me.Text = "Scan & Print Sample"
End Sub
Public Shared Sub Main()
Application.Run(New Form1)
End Sub
#End Region
'************************************************************
'* Form1_Load Event
'* Form Load Event - Enable Barcode Symbologies
'* Initialize Text Fields & Set Focus
'************************************************************
Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
' --Display Status to user
lblStatus.Text = "Please Wait..."
' --Change Cursor to Hour Glass
Cursor.Current = Cursors.WaitCursor
' --Refresh the Screen
Me.Refresh()
'************************************************************
' Setup Scanner Configuration Programatically
'************************************************************
' CONTROL
Dim Scanner As New Ultra.Scan.Control
' Set ScannerMode (Scanner is on until T/O or successful scan)
Scanner.ScannerMode = Scanner.eSCANMODE.SOM_COMPATIBLE
'Set DataMode (Application receives data from the scanner)
Scanner.DataMode = Scanner.eDataMode.DRM_SMSCANCHAR