Every ByteScout tool contains example VB.NET source codes that you can find here or in the folder with installed ByteScout product. ByteScout Barcode SDK helps with QR code with image in VB.NET. ByteScout Barcode SDK is the robost SDK that generates high quality barcode images and pdf. Can generate all popular types of barcodes from QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix to more exotic barcode types. Fully customizable fonts, colors, print sizes. Includes special functions to ensure output quality, and tools for adding barcodes to new or existing pdf files and images.
You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. VB.NET sample code is all you need: copy and paste the code to your VB.NET application’s code editor, add a reference to ByteScout Barcode SDK (if you haven’t added yet) and you are ready to go! Enjoy writing a code with ready-to-use sample VB.NET codes to implement QR code with image using ByteScout Barcode SDK.
Our website provides free trial version of ByteScout Barcode SDK. It comes along with all these source code samples with the goal to help you with your VB.NET application implementation.
Imports Bytescout.BarCode Module Module1 Sub Main() Dim decorationImageFile As String = ".\logo.png" Dim outputFile As String = ".\barcode.png" Dim barcodeValue As String = "1234567890 abcdefghijklmnopqrstuvwxyz 1234567890 abcdefghijklmnopqrstuvwxyz" ' Create and activate barcode generator instance Using barcode As New Barcode("demo", "demo") ' Set barcode type barcode.Symbology = SymbologyType.QRCode ' Set high QR Code error correction level barcode.Options.QRErrorCorrectionLevel = QRErrorCorrectionLevel.High ' Set barcode value barcode.Value = barcodeValue ' Add decoration image and scale it to 15% of the barcode square barcode.AddDecorationImage(decorationImageFile, 15) ' Save generated barcode barcode.SaveImage(outputFile) Console.WriteLine("Barcode saved to " + outputFile) Console.WriteLine() Console.WriteLine("Press any key...") Console.ReadKey() End Using End Sub End Module