zoukankan      html  css  js  c++  java
  • VS2015 VB.Net利用QrCodeNet生成QR Code

    Step by step Create QR Code with QrCodeNet

    Step.1 新建項目

    Step.2 下載QrCodeNet代碼,解壓QrCodeNetsourceCodeqrcodenetGma.QrCodeNet ugetlib et45Gma.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 粘貼代碼

     1 Public Class Form1 : Inherits Form
     2 
     3     ' // 定義常量
     4     Public Const str = "160-12345678-8888,AbcdefgHijklmnOpqRst,2018/05/22.160-12345678-8888,AbcdefgHijklmnOpqRst,2018/05/22."
     5 
     6     ' // 重寫 OnPaint 方法,增加繪制二維碼方法調用
     7     Protected Overrides Sub OnPaint(e As PaintEventArgs)
     8         MyBase.OnPaint(e)
     9 
    10         ' // 繪制二維碼
    11         Call ShowQrCode(e.Graphics)
    12 
    13         tbStrContent.Text = str
    14 
    15     End Sub
    16 
    17     ' // Save File 按鈕事件
    18     Private Sub btnSaveFile_Click(sender As Object, e As EventArgs) Handles btnSaveFile.Click
    19 
    20         Const moduleSizeInPixels = 4
    21 
    22         Dim qrEncoder As New QrEncoder(ErrorCorrectionLevel.L)
    23         Dim qrCode As New QrCode()
    24 
    25         Dim moduleSize As New FixedModuleSize(moduleSizeInPixels, QuietZoneModules.Two)
    26         Dim render As New GraphicsRenderer(moduleSize, Brushes.Black, Brushes.White)
    27 
    28         Dim fileName As String = Application.ExecutablePath + "_One.png"
    29 
    30         ' // 錯誤繼續執行
    31         On Error Resume Next
    32 
    33         ' // 根據字符串生成 QR Code
    34         qrEncoder.TryEncode(str, qrCode)
    35 
    36         ' // 寫入文件
    37         Using stream As New FileStream(fileName, FileMode.Create)
    38             render.WriteToStream(qrCode.Matrix, System.Drawing.Imaging.ImageFormat.Png, stream)
    39         End Using
    40 
    41     End Sub
    42 
    43     ' // 繪制二維碼
    44     Private Sub ShowQrCode(g As Graphics)
    45         Dim qrEncoder As New QrEncoder(ErrorCorrectionLevel.L)
    46         Dim qrCode As New QrCode()
    47 
    48         Dim moduleSize As New FixedModuleSize(2, QuietZoneModules.Two)
    49         Dim render As New GraphicsRenderer(moduleSize, Brushes.Black, Brushes.White)
    50 
    51         ' // 根據字符串生成 QR Code
    52         qrCode = qrEncoder.Encode(str)
    53 
    54         ' // 描繪 QR Code
    55         render.Draw(g, qrCode.Matrix)
    56 
    57     End Sub
    58 
    59 End Class
    View Code

    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

  • 相关阅读:
    移动端常用状态
    css 动画
    jQuery源码解析 -- 概述
    Bearer Token && JWT --- 深入理解令牌机制
    字符串 ----> switch-case 语句
    Vuejs选项: provide/inject
    本地windows系统-》windows云服务器文件上传
    CSS基础点
    函数的调用 与 this
    两个有意思的网站
  • 原文地址:https://www.cnblogs.com/keepee/p/9071639.html
Copyright © 2011-2022 走看看