VB.NET QR Code Reader & Scanner SDK

' Scan QR Code from image and get raw text data
Dim datas As String() = BarcodeScanner.Scan("qrcode-sample.png", BarcodeType.QRCode)

' Scan QR Code and retrieve detailed barcode information
Dim datasInDetail As BarcodeDetail() = BarcodeScanner.ScanInDetails(
    "qrcode-sample.png", BarcodeType.QRCode)

' Scan QR Code and get ASCII text results
Dim result As String() = BarcodeScanner.Scan(
    "C:\Input\qrcode-ascii-sample.png", BarcodeType.QRCode)

' Check if any QR Code is detected
If result.Length > 0 Then
    ' Process each scanned message
    For Each msg As String In result
        Debug.WriteLine("QR Code Raw Message: '" & msg & "'")
        ' Replace carriage return non-printable character with [CR] label
        Dim tmp As String = msg.Replace(vbCr, "[CR]")
        Debug.WriteLine("QR Code ASCII Text: '" & tmp & "'")
    Next
Else
    Debug.WriteLine("No QR Code Scanned!")
End If

' Scan QR Code and retrieve detailed barcode information
Dim datas As BarcodeDetail() = BarcodeScanner.ScanInDetails(
    "C:\Input\qrcode-unicode.png", BarcodeType.QRCode)

' Loop through all scanned barcode results
For j As Integer = 0 To datas.Length - 1
    ' Decode binary data to Unicode text using UTF8 encoding
    Dim textMsgDecoded As String = System.Text.Encoding.UTF8.GetString(datas(j).GetDataBytes())
    ' Output decoded Unicode text
    Console.WriteLine("Unicode text: " & textMsgDecoded)
Next

' Scan GS1 QR Code and get detailed barcode information
Dim result As BarcodeDetail() = BarcodeScanner.ScanInDetails(
    "C:\Input\qrcode-gs1-data.png", BarcodeType.QRCode)

' Iterate all scanned barcode results
For Each b As BarcodeDetail In result
    ' Check if the barcode conforms to the GS1 standard
    If b.IsGS1Compatible Then
        ' Get formatted GS1 message (Example: (415)5412345678908(3911)710125)
        Dim msg As String = b.GetMessage()
        
        ' Output raw barcode data and formatted message
        Console.WriteLine("Raw Data: '{0}'", b.Data)
        Console.WriteLine("Text Message: {0}", msg)

        ' Split AI and data pairs using ( and ) delimiters
        Dim vals As String() = msg.Split({"("c, ")"c}, StringSplitOptions.RemoveEmptyEntries)

        ' Extract and display AI and corresponding data in pairs
        For i As Integer = 0 To vals.Length - 1 Step 2
            Console.WriteLine("AI:    {0}", vals(i))
            Console.WriteLine("Data:  {0}", vals(i + 1))
        Next
    End If
Next

Dim datas As String() = BarcodeScanner.Scan("qrcode-logo-image.png", BarcodeType.QRCode)

' Scan and return only the first detected QR Code (fast mode)
Dim barcodes As String() = BarcodeScanner.ScanSingleBarcode(
    "qrcode-single-barcode.png", BarcodeType.QRCode)

' Scan QR Code, GS1-128 (Code 128), EAN-13 barcodes simultaneously
Dim datas As BarcodeDetail() = BarcodeScanner.ScanInDetails("qrcode-multiple-formats.png",
    New List(Of BarcodeType) From {
    BarcodeType.QRCode, BarcodeType.Code128, BarcodeType.EAN13})

' Define multiple scanning regions
Dim regions As New List(Of SRegion)()
regions.Add(New SRegion(0, 0, 50, 60))
regions.Add(New SRegion(100, 100, 50, 60))

' Scan QR Code only from specified regions
Dim barcodes As String() = BarcodeScanner.ScanRegions("qrcode-barcodes.png",
    BarcodeType.QRCode, regions)