如何在VB.NET產生二維碼

IronQR

IronQR是一個強大的 C# 快速回應碼系統庫，它擴展了對 VB.NET 開發人員的支持，用於產生和讀取二維碼條碼。 儘管 IronQR 主要為 C# 設計，但它與 VB.NET 無縫集成，因為它基於 .NET Framework 構建，提供了一種便捷的方式來集成其功能，從而使用 VB.NET 輕鬆創建二維碼條碼。 其簡潔性和豐富的功能使其成為尋求高效 VB.NET 二維碼條碼產生器解決方案的開發人員的理想選擇。

先決條件

在開始使用 VB.NET 編寫二維碼程式碼之前，請確保您已準備好所需的工具：

1. Visual Studio：請確保您的系統上已安裝 Visual Studio。 如果還沒有，請從官方網站下載。
2. IronQR 庫：使用 VS 中的 NuGet 套件管理器安裝 IronQR 庫。在程式包管理器控制台中執行以下命令：

Install-Package IronQR

此命令會在您的 VB.NET 專案中安裝使用 IronQR 所需的軟體套件。

建立控制台應用程式

我們先來建立一個簡單的VB.NET控制台應用程式：

1. 開啟 Visual Studio，選擇"建立新專案"。

2. 選擇"控制台應用程式"作為專案模板，然後按一下"下一步"。

   如何在 VB.NET 中產生二維碼：圖 1 - 控制台應用程式 - 二維碼產生器

3. 配置項目設置，然後按一下"下一步"。

   如何在 VB.NET 中產生二維碼：圖 2 - 專案配置

4. 在附加資訊中，選擇最新的 .NET 框架。

   如何在 VB.NET 中產生二維碼：圖 3 - .NET Framework

5. 點擊"建立"產生您的 VB.NET 產生二維碼應用程式。

使用解決方案資源管理器安裝 IronQR 庫

1. 專案設定完成後，按一下"解決方案資源管理器"，然後選擇"管理解決方案的 NuGet 套件"。

   如何在 VB.NET 中產生二維碼：圖 4 - 管理解決方案的 NuGet 套件

2. 在 NuGet 視窗中，按一下"瀏覽"選項卡，搜尋 IronQR，然後按一下"安裝"按鈕。

   如何在 VB .NET 中產生二維碼：圖 5 - IronQR - VB (.NET) 產生二維碼

在 VB.NET 中實作二維碼產生器

在這個二維碼產生應用程式中，我們將展示在（Visual Basic）VB.NET 控制台應用程式中使用 IronQR 庫產生二維碼的簡單性和靈活性。 我們首先採用最直接的方法，建立一個具有預設配置的二維碼。 接下來，我們將介紹一個更進階的二維碼範例，自訂二維碼的內容、標誌、大小和版本等參數。 如需更多程式碼範例，請造訪.NET 的二維碼產生器。

讓我們來探索下面的範例程式碼片段，了解 IronBarcode 如何簡化 Visual Basic 中的二維碼、條碼影像產生。

Imports IronQr
Imports IronSoftware.Drawing
Imports Color = IronSoftware.Drawing.Color

Module Program
    ' Simplest example of creating a QR Code with no settings
    Private qrImageSimple As AnyBitmap

    Sub Main(args As String())
        ' Set your license key to remove watermarks
        IronQR.License.LicenseKey = "IronQR-MYLICENSE-KEY-1EF01"

        ' Simple QR Code generation
        Dim myQrCode As QrCode = QrWriter.Write("https://ironsoftware.com/")
        qrImageSimple = myQrCode.Save()
        qrImageSimple.SaveAs("simpleQRCode.png")

        ' Advanced Example to set all parameters
        ' Value for the QR code
        Dim value As String = "https://ironsoftware.com/"
        ' Set QR options like error correction level and margin
        Dim options As New QrOptions(QrErrorCorrectionLevel.High, 20)
        ' Create QR code with options
        Dim myQr As QrCode = QrWriter.Write(value, options)

        ' Adding a logo and defining style options
        Dim logoBmp As New AnyBitmap("VisualStudioLogo.png")
        Dim style As New QrStyleOptions With {
            .Dimensions = 300,
            .Margins = 10,
            .Color = Color.Gray,
            .Logo = New QrLogo With {
                .Bitmap = logoBmp,
                .Width = 100,
                .Height = 100,
                .CornerRadius = 2
            }
        }

        ' Save advanced styled QR Code as a Bitmap
        Dim qrImageComplex As AnyBitmap = myQr.Save(style)
        qrImageComplex.SaveAs("complexQRCode.png")
    End Sub
End Module

Imports IronQr
Imports IronSoftware.Drawing
Imports Color = IronSoftware.Drawing.Color

Module Program
    ' Simplest example of creating a QR Code with no settings
    Private qrImageSimple As AnyBitmap

    Sub Main(args As String())
        ' Set your license key to remove watermarks
        IronQR.License.LicenseKey = "IronQR-MYLICENSE-KEY-1EF01"

        ' Simple QR Code generation
        Dim myQrCode As QrCode = QrWriter.Write("https://ironsoftware.com/")
        qrImageSimple = myQrCode.Save()
        qrImageSimple.SaveAs("simpleQRCode.png")

        ' Advanced Example to set all parameters
        ' Value for the QR code
        Dim value As String = "https://ironsoftware.com/"
        ' Set QR options like error correction level and margin
        Dim options As New QrOptions(QrErrorCorrectionLevel.High, 20)
        ' Create QR code with options
        Dim myQr As QrCode = QrWriter.Write(value, options)

        ' Adding a logo and defining style options
        Dim logoBmp As New AnyBitmap("VisualStudioLogo.png")
        Dim style As New QrStyleOptions With {
            .Dimensions = 300,
            .Margins = 10,
            .Color = Color.Gray,
            .Logo = New QrLogo With {
                .Bitmap = logoBmp,
                .Width = 100,
                .Height = 100,
                .CornerRadius = 2
            }
        }

        ' Save advanced styled QR Code as a Bitmap
        Dim qrImageComplex As AnyBitmap = myQr.Save(style)
        qrImageComplex.SaveAs("complexQRCode.png")
    End Sub
End Module

讓我們一步步解析上面用於創建二維碼圖像的源代碼：

Imports IronQr
Imports IronSoftware.Drawing
Imports Color = IronSoftware.Drawing.Color

Imports IronQr
Imports IronSoftware.Drawing
Imports Color = IronSoftware.Drawing.Color

Module Program

Module Program

' Simplest example of creating a QR Code with no settings:
Dim myQrCode As QrCode = QrWriter.Write("https://ironsoftware.com/")
qrImageSimple = myQrCode.Save()
qrImageSimple.SaveAs("simpleQRCode.png")

' Simplest example of creating a QR Code with no settings:
Dim myQrCode As QrCode = QrWriter.Write("https://ironsoftware.com/")
qrImageSimple = myQrCode.Save()
qrImageSimple.SaveAs("simpleQRCode.png")

' The value of the QR code as a string. Also suitable for URLs.
Dim value As String = "https://ironsoftware.com/"
' Set QR options
Dim options As New QrOptions(QrErrorCorrectionLevel.High, 20)
' Create a QR Code object
Dim myQr As QrCode = QrWriter.Write(value, options)

' Fancy style options
Dim logoBmp As New AnyBitmap("VisualStudioLogo.png")
Dim style As New QrStyleOptions With {
    .Dimensions = 300,
    .Margins = 10,
    .Color = Color.Gray,
    .Logo = New QrLogo With {
        .Bitmap = logoBmp,
        .Width = 100,
        .Height = 100,
        .CornerRadius = 2
    }
}

' Save QR Code as a Bitmap
Dim qrImageComplex As AnyBitmap = myQr.Save(style)
qrImageComplex.SaveAs("complexQRCode.png")

' The value of the QR code as a string. Also suitable for URLs.
Dim value As String = "https://ironsoftware.com/"
' Set QR options
Dim options As New QrOptions(QrErrorCorrectionLevel.High, 20)
' Create a QR Code object
Dim myQr As QrCode = QrWriter.Write(value, options)

' Fancy style options
Dim logoBmp As New AnyBitmap("VisualStudioLogo.png")
Dim style As New QrStyleOptions With {
    .Dimensions = 300,
    .Margins = 10,
    .Color = Color.Gray,
    .Logo = New QrLogo With {
        .Bitmap = logoBmp,
        .Width = 100,
        .Height = 100,
        .CornerRadius = 2
    }
}

' Save QR Code as a Bitmap
Dim qrImageComplex As AnyBitmap = myQr.Save(style)
qrImageComplex.SaveAs("complexQRCode.png")

Sub Main(args As String())
    IronQR.License.LicenseKey = "IronQR-MYLICENSE-KEY-1EF01" ' License key setup removes watermarks
    qrImageSimple.SaveAs("simpleQRCode.png")
    qrImageComplex.SaveAs("complexQRCode.png")
End Sub

Sub Main(args As String())
    IronQR.License.LicenseKey = "IronQR-MYLICENSE-KEY-1EF01" ' License key setup removes watermarks
    qrImageSimple.SaveAs("simpleQRCode.png")
    qrImageComplex.SaveAs("complexQRCode.png")
End Sub

運行控制台應用程式並查看輸出

運行控制台應用程序，您應該會看到一條成功訊息，表明二維碼已產生並保存。

如何在 VB.NET 中產生二維碼：圖 6 - 輸出

輸出簡單的二維碼影像：

如何在 VB.NET 中產生二維碼：圖 7 - 簡單二維碼

複雜二維碼影像的輸出：

如何在 VB.NET 中產生二維碼：圖 8 - 複雜二維碼

結論

本文示範如何在控制台應用程式中使用 VB.NET 和 IronQR 庫產生二維碼。 按照上述步驟，開發人員可以輕鬆地將二維碼產生功能整合到他們的 VB.NET 專案中，為各種應用程式提供一種快速且有效率的資訊編碼方式。 請查閱 IronQR 的文檔，以了解更多自訂選項和功能。

IronQR 是一個功能強大的 .NET 函式庫，專門用於二維碼操作。 它支援生成二維碼，支援多種樣式，並能識別各種二維碼格式和類型。該程式庫尤其擅長透過 SaveAsImage() 方法將二維碼儲存為 JPEG、PNG、BMP、TIFF 和 GIF 等影像格式，從而實現無縫整合和儲存。

為了開發目的，IronQR 可以免費使用，但附有浮水印。 商業用途需要獲得許可，使用者才能評估其全部功能。