Important Update
VB 6 generate and read barcode tutorial shows sample source codes for generating and reading barcodes with Visual Basic 6.
First of all, let’s see how to generate a barcode with ByteScout Barcode SDK with VBScript.
You can generate barcode with our BarCode Generator SDK in VB6 like this:
Set bc = CreateObject("Bytescout.BarCode.Barcode")
' set symbology to Code39
bc.Symbology = 1 ' 1 = Code39 symbology type
' set barcode value to encode
bc.Value = "012345"
bc.SaveImage "Code39.png"
Set bc = Nothing
The output of the above program is as below:
In order to use Bytescout barcode generation with VBScript, make sure you have “ActiveX” components installed. These components can be installed from the ByteScout SDK installation path. For example, in my machine, these SDKs are installed at “C:\Program Files\Bytescout BarCode Generator SDK“. In order to install ActiveX components, simply navigate to the “ActiveX” folder inside, and click on the “InstallAsActiveX.bat” file.
Now moving to code, though it is self-explanatory let’s review important snippets.
Set bc = CreateObject("Bytescout.BarCode.Barcode")
We are creating a barcode generator instance and saving it in a variable named “bc“. We are using this code for demo purposes hence not passing any registration name and key, which will have a watermark in the generated output. In production, we should configure the registration name and key. We can do this by setting the properties “RegistrationName” and “RegistrationKey” like the following.
bc.RegistrationName = "demo" bc.RegistrationKey = "demo"
bc.Symbology = 1 ' 1 = Code39 symbology type
ByteScout Barcode SDK supports almost all types of barcode generation. Based on our requirement we can set the “Symbology” property with barcode type and generate barcode in that type.
We can provide barcode value by setting the “Value” property.
bc.Value = "012345"
Barcode output can be obtained by setting the output file name to “SaveImage” method.
bc.SaveImage "Code39.png"
That’s all about generating a barcode. Now let’s review reading the barcode with ByteScout Barcode Reader.
And you can read barcode from an image in VB6 using BarCode Reader SDK:
Set bc = CreateObject("Bytescout.BarCodeReader.Reader")
' Set barcode type to find
bc.BarcodeTypesToFind.Code39 = True
bc.ReadFromFile "Code39.png"
For i = 0 To bc.FoundCount - 1
Msgbox "Found barcode on page #" & CStr(bc.GetFoundBarcodePage(i)) & " with type " & Cstr(bc.GetFoundBarcodeType(i)) & " and value " & bc.GetFoundBarcodeValue(i)
Next
Set bc = Nothing
The output of the above program is as below:
In order to use ByteScout Barcode Reader with VBScript, make sure you have “ActiveX” components installed. These components can be installed from the ByteScout SDK installation path. For example, in my machine, these SDKs are installed at “C:\Program Files\Bytescout BarCode Reader SDK“. In order to install ActiveX components, simply navigate to the “ActiveX” folder inside, and click on the “InstallAsActiveX.bat” file.
Now let’s review important parts of code.
Set bc = CreateObject("Bytescout.BarCodeReader.Reader")
We are creating a barcode reader instance and saving it in a variable named “bc“. We are using this code for demo purposes hence not passing any registration name and key, which might have a watermark in the generated code output, also slower to process. In production, we should configure the registration name and key. We can do this by setting the properties “RegistrationName” and “RegistrationKey” like the following.
bc.RegistrationName = "demo" bc.RegistrationKey = "demo"
' Set barcode type to find bc.BarcodeTypesToFind.Code39 = True
ByteScout Barcode Reader SDK supports almost all types of barcodes. Based on our requirement we can set the “BarcodeTypesToFind” property with barcode type. If this property is not provided, it’ll automatically try to detect all possible barcode types and give output. In the cases when we already know the barcode type, it’s advised to always provide barcode type to have an improved reading operation. We can also further provide properties such as page no. to read from as well as a specific region on-page to read barcode from.
We can use the method ReadFromFile to pass the input file to read the barcode.
bc.ReadFromFile "Code39.png"
ByteScout Barcode Reader SDK provides methods/properties to get result related fields. For example property “FoundCount” contains no barcodes found. Properties such as “GetFoundBarcodeType” and “GetFoundBarcodeValue” contains found barcode type and value respectively.
For i = 0 To bc.FoundCount - 1 Msgbox "Found barcode on page #" & CStr(bc.GetFoundBarcodePage(i)) & " with type " & Cstr(bc.GetFoundBarcodeType(i)) & " and value " & bc.GetFoundBarcodeValue(i) Next
That’s how we can read barcode values using ByteScout Barcode Reader SDK.
Here is the demo of how to read barcode:
Thank you for reading!