Link Search Menu Expand Document

Create Colored QR Code - VBScript and VB6

QR Code SDK sample in VBScript and VB6 demonstrating ‘Create Colored QR Code’

' 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

' 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

Download Source Code (.zip)

Return to the previous page Explore QR Code SDK