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 = 

         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(, 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