VS2015 VB.Net利用QrCodeNet生成QR Code

Step by step Create QR Code with QrCodeNet

 

Step.1 新建項目

 

 

Step.2 下載QrCodeNet代碼，解壓\QrCodeNet\sourceCode\qrcodenet\Gma.QrCodeNet\nuget\lib\net45\Gma.QrCodeNet.Encoding.dll

 

 

Step.3 加入參考（引用）

 

 

Step.4 在窗口中拖入一個Button

 

 

Step.5 添中 Imports

Imports Gma.QrCodeNet.Encoding
Imports Gma.QrCodeNet.Encoding.Windows.Render
Imports System.IO

 

Step.6 粘貼代碼

Public Class Form1 : Inherits Form

    ' // 定義常量
    Public Const str = "160-12345678-8888,AbcdefgHijklmnOpqRst,2018/05/22.160-12345678-8888,AbcdefgHijklmnOpqRst,2018/05/22."

    ' // 重寫 OnPaint 方法，增加繪制二維碼方法調用
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)

        ' // 繪制二維碼
        Call ShowQrCode(e.Graphics)

        tbStrContent.Text = str

    End Sub

    ' // Save File 按鈕事件
    Private Sub btnSaveFile_Click(sender As Object, e As EventArgs) Handles btnSaveFile.Click

        Const moduleSizeInPixels = 4

        Dim qrEncoder As New QrEncoder(ErrorCorrectionLevel.L)
        Dim qrCode As New QrCode()

        Dim moduleSize As New FixedModuleSize(moduleSizeInPixels, QuietZoneModules.Two)
        Dim render As New GraphicsRenderer(moduleSize, Brushes.Black, Brushes.White)

        Dim fileName As String = Application.ExecutablePath + "_One.png"

        ' // 錯誤繼續執行
        On Error Resume Next

        ' // 根據字符串生成 QR Code
        qrEncoder.TryEncode(str, qrCode)

        ' // 寫入文件
        Using stream As New FileStream(fileName, FileMode.Create)
            render.WriteToStream(qrCode.Matrix, System.Drawing.Imaging.ImageFormat.Png, stream)
        End Using

    End Sub

    ' // 繪制二維碼
    Private Sub ShowQrCode(g As Graphics)
        Dim qrEncoder As New QrEncoder(ErrorCorrectionLevel.L)
        Dim qrCode As New QrCode()

        Dim moduleSize As New FixedModuleSize(2, QuietZoneModules.Two)
        Dim render As New GraphicsRenderer(moduleSize, Brushes.Black, Brushes.White)

        ' // 根據字符串生成 QR Code
        qrCode = qrEncoder.Encode(str)

        ' // 描繪 QR Code
        render.Draw(g, qrCode.Matrix)

    End Sub

End Class

 

Step.7 運行結果

 

 

--------------------------------

參考資料:

QR Code

http://www.qrcode.com/zh/about/

C#利用QrCode.Net生成二维码（Qr码）

https://www.cnblogs.com/tianma3798/p/4054270.html

利用QrCode.Net生成二维码 asp.net mvc c#

https://blog.csdn.net/paolei/article/details/12584295

草料二维码

https://cli.im/

VB.Net创建和调用DLL教程

https://blog.csdn.net/namecgc/article/details/77940698