Program.vb
Imports System.Diagnostics Imports System.Text Imports Bytescout.BarCode Class Program Friend Shared Sub Main(args As String()) ' Create Barcode component instance Using barcode As New Barcode() barcode.RegistrationName = "demo" barcode.RegistrationKey = "demo" ' Set barcode type barcode.Symbology = SymbologyType.QRCode ' Sample byte array to use as value Dim byteArray As Byte() = New Byte() {0, 10, 11, 12, 13, 14, 15, &HFF} ' Set value by converting byte array to string barcode.Value = Encoding.Default.GetString(byteArray) ' Save barcode image barcode.SaveImage("result.png") ' Open output image in default associated application Process.Start("result.png") End Using End Sub End Class
Click here to get your Free Trial version of the SDK
also available as: