如何在 VB .NET 中生成 QR 代码

IronQR

IronQR，一个强大的C#快速响应码系统库，为VB.NET开发者提供支持，用于二维码条形码生成和读取二维码。 虽然主要为C#设计，IronQR与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. 选择"控制台应用"作为项目模板，然后点击"下一步"。

3. 配置项目设置并点击"下一步"。

4. 在附加信息中选择最新的.NET框架。

5. 单击"创建"以生成您的VB.NET生成二维码应用程序。

通过解决方案资源管理器安装IronQR库

1. 项目设置完成后，点击解决方案资源管理器，然后选择为解决方案管理NuGet包。

2. 在NuGet窗口中，点击"浏览"选项卡，搜索IronQR并点击"安装"按钮。

在VB.NET中实现二维码生成器

在这个二维码生成应用程序中，我们将展示在（Visual Basic）VB.NET控制台应用程序中使用IronQR库生成二维码的简单性和灵活性。 我们从最简单的方法开始，创建二维码，使用默认配置。 然后，我们转向更高级的二维码示例，自定义参数，如二维码的内容、徽标、大小和版本。 有关更多代码示例，请访问二维码生成器 for .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和IronQR库生成二维码。 通过遵循概述的步骤，开发人员可以轻松地将二维码生成集成到其VB.NET项目中，提供了一种快速高效的编码信息的方式，适用于各种应用程序。 探索IronQR的文档以获得额外的自定义选项和功能。

IronQR是一个专注于QR码操作的灵活.NET库。 它能够生成二维码，支持样式化的变体，并识别各种二维码格式和类型。这个库在保存二维码到JPEG、PNG、BMP、TIFF和GIF等图像格式方面表现出色，提供无缝的集成和存储，通过SaveAsImage()方法实现。

出于开发目的，IronQR可以免费使用，但会有水印。 商业用途需要许可证，以供用户评估其全部功能。