Module1.vb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | Imports Bytescout.BarCode Module Module1 Sub Main() ' Create and activate QRCode instance Using barcode As New QRCode() barcode.RegistrationName = "demo" barcode.RegistrationKey = "demo" ' Set barcode value barcode.Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890" ' Uncomment if you don't need margins 'barcode.Margins = New Margins(0, 0, 0, 0) 'barcode.DrawQuietZones = False ' Save barcode image to file barcode.SaveImage( "result.png" ) End Using ' Open the image in default image viewer (for demo purpose) Process.Start( "result.png" ) End Sub End Module |
Click here to get your Free Trial version of the SDK
also available as: