Link Search Menu Expand Document

Encode Unicode Value to QR Code - VBScript and VB6

QR Code SDK sample in VBScript and VB6 demonstrating ‘Encode Unicode Value to QR Code’

��' Create and activate QRCode instance

Set barcode = CreateObject("Bytescout.BarCode.QRCode")

barcode.RegistrationName = "demo"

barcode.RegistrationKey = "demo"

' Set barcode value

barcode.Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890"

' Set the character encoding to UTF-16

barcode.SetCharacterEncoding "utf-16"

' Set Unicode barcode value

barcode.Value = "�e,g"

' Show barcode caption (optional)

barcode.DrawCaption = True

' 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