GreatManuals.com
Huge Collections of Software Manuals and Knowledgebase

Visual Basic Using OCX

Barcode Recognition with Visual Basic

Barcode Recognition Software

The Softek Barcode Toolkit is an application programmers toolkit which reads barcodes from image files and bitmaps - with a choice of 3 types of interface: DLL, OCX and COM.

It's simple - cut and paste the code and start reading barcodes!

Rem Turn off recognition for any types of barcode you don't want to read

SoftekBarcode1.ReadEAN13 = 0
SoftekBarcode1.ReadEAN8 = 0
SoftekBarcode1.ReadUPCA = 0
SoftekBarcode1.ReadCode25 = 0
SoftekBarcode1.ReadPatchCodes = 0
SoftekBarcode1.ReadCode128 = 0

Rem Turn on recognition for the types of barcode you do want to read - in this scase code 39
SoftekBarcode1.ReadCode39 = 1

Rem If you want to read more than one barcode then set Multiple Read to 1
Rem Setting MutlipleRead to 0 will make the recognition faster
SoftekBarcode1.MultipleRead = 1

Rem Noise reduction takes lomger but can make it possible to read some difficult barcodes
Rem When using noise reduction a typical value is 10 - the smaller the value the more effect it has.
Rem A zero value turns off noise reduction
SoftekBarcode1.NoiseReduction = 0

Rem On multi page TIF files you can restrict your search to a particular page
Rem A value of zero will search every page.
SoftekBarcode1.PageNo = 0

Rem You may need to set a small quiet zone if your barcodes are close to text and pictures in the image.
Rem A value of zero uses the default.
SoftekBarcode1.QuietZoneSize = 0

Rem LineJump controls the frequency at which scan lines in an image are sampled.
Rem The default is 9 - decrease this for difficult barcodes.
SoftekBarcode1.LineJump = 1

Rem You can restrict your search to a particular area of the image if you wish.
Rem SoftekBarcode1.SetScanRect(TopLeftX, TopLeftY, BottomRightX, BottomRightY, 0)

Rem Set the direction that the barcode reader should scan for barcodes
Rem The value is a mask where 1 = Left to Right, 2 = Top to Bottom, 3 = Right To Left, 4 = Bottom to Top
SoftekBarcode1.ScanDirection = 15

n = SoftekBarcode1.ScanBarCode(strImageFilePath)

Rem Or read the barcode from an image in a PictureBox
n = SoftekBarcode1.ScanBarCodeFromBitmap(Picture1)

If (n > 0) Then
For i = 1 To n
b = SoftekBarcode1.GetBarString(i)
MsgBox (b)
Next i
Else
If (n = 0) Then
MsgBox ("No barcode found on image")
Else
MsgBox ("Error reading image")
End If
End If