Filter
Top Products
A-4 Programmer’s Manual
' Set ScannerMode (Scanner is on until T/O or successful
' scan)
CONTROL.ScannerMode = CONTROL.eSCANMODE.SOM_COMPATIBLE
' Set DataMode (application receives data is by the WM_CHAR
' standard method.)
CONTROL.DataMode = CONTROL.eDataMode.DRM_WMCHAR
CONTROL.SendScanStatus = False
' Don't Send Scan Status Message
CONTROL.DisableAllCodes()
' Disable All barcodes
'************************************************************
'* Enable UPCA Barcodes only
'************************************************************
Dim UPC As New Ultra.Scan.UPCEAN
' Instantiate UPCEAN class
UPC.EnableUPCA = True ' Enable UPCA
UPC.XmitUPCACD = True ' Xmit UPCA C/D
UPC.XmitUPCAPre =
Ultra.Scan.UPCEAN.eXMITUPCPREAMBLE.XUP_SYSCHAR
' Ignores UPCA + 2, UPCA +5, EAN8 + 2, EAN8 +5, EAN13 +2 &
' EAN13 + 5 Symbologies
UPC.Supplemental = UPC.eSupplemental.USM_IGNORE
' --Save Changes to the Scanner Configuration which builds a
' new Ultra.cfg
CONTROL.CommitChanges()
' --Set focus to txtUPC text box
txtUPC.Focus()
End Sub