ByteScout Barcode Suite – VB.NET – Generate and check QR Code barcode with image inside

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Generate and check QR Code barcode with image inside

printable version:
ByteScout-Barcode-Suite-VB-NET-Generate-and-check-QR-Code-barcode-with-image-inside.pdf

How to generate and check QR code barcode with image inside in VB.NET and ByteScout Barcode Suite

Learn to code in VB.NET to generate and check QR code barcode with image inside with this step-by-step tutorial

An easy to understand guide on how to generate and check QR code barcode with image inside in VB.NET with this source code sample. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK. It can generate and check QR code barcode with image inside in VB.NET.

The SDK samples given below describe how to quickly make your application do generate and check QR code barcode with image inside in VB.NET with the help of ByteScout Barcode Suite. Follow the instructions from scratch to work and copy the VB.NET code. This basic programming language sample code for VB.NET will do the whole work for you to generate and check QR code barcode with image inside.

ByteScout Barcode Suite free trial version is available on our website. VB.NET and other programming languages are supported.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports Bytescout.BarCode
Imports Bytescout.BarCodeReader

Module Module1

	Sub Main()

		' GENERATE QR CODE WITH DECOARATION IMAGE:

		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 = Bytescout.BarCode.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)


			' CHECK THE BARCODE IS DECODABLE:

			' Create and activate barcode reader instance
			Using reader As New Reader("demo", "demo")

				' Enable QR Code decoding
				reader.BarcodeTypesToFind.QRCode = True

				' Read barcode from generated image
				Dim foundBarcodes = reader.ReadFrom(outputFile)

				' Check result
				If foundBarcodes.Length > 0 And foundBarcodes(0).Type = Bytescout.BarCodeReader.SymbologyType.QRCode Then
					Console.WriteLine("Barcode is decodable.")
				Else
					Console.WriteLine("Barcode is not decodable!")
				End If

			End Using

			Console.WriteLine()
			Console.WriteLine("Press any key...")
			Console.ReadKey()

		End Using

	End Sub

End Module