ByteScout QR Code SDK – VBScript and VB6 – Create Colored QR Code

Home
/
Articles
/
ByteScout QR Code SDK – VBScript and VB6 – Create Colored QR Code

printable version:
ByteScout-QR-Code-VBScript-and-VB6-Create-Colored-QR-Code.pdf

How to create colored QR code in VBScript and VB6 using ByteScout QR Code

The tutorial shows how to create colored QR code in VBScript and VB6

The coding tutorials are designed to help you test the features without need to write your own code. What is ByteScout QR Code? It is the SDK for QR Code barcode generation. This SDK provides full set of features to control output barcodes quality, encoding, size, features. You may change output zize, set an image to be embedded into QR Code barcode generated. Includes special features to encode contact card, URL, phone and other information into QR Code barcode. Can run in batch barcode generation mode. It can help you to create colored QR code in your VBScript and VB6 application.

The SDK samples like this one below explain how to quickly make your application do create colored QR code in VBScript and VB6 with the help of ByteScout QR Code. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. This basic programming language sample code for VBScript and VB6 will do the whole work for you to create colored QR code.

Trial version of ByteScout QR Code can be downloaded for free from our website. It also includes source code samples for VBScript and VB6 and other programming languages.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

ColoredQRCode.vbs

      ' Create and activate QRCode instance
Set barcode = CreateObject("Bytescout.BarCode.QRCode")
barcode.RegistrationName = "demo"
barcode.RegistrationKey = "demo"

' Set background color
barcode.SetBackColor 255, 255, 0
' Set foreground color
barcode.SetForeColor 255, 0, 0

' Set barcode value
barcode.Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890"

' Save barcode image to file
barcode.SaveImage("result.png")

' Open the image in default image viewer (for demo purpose)
Set shell = CreateObject("WScript.Shell")
shell.Run "result.png", 1, false
Set shell = Nothing

Set barcode = Nothing