QRCodeLibVB

QRCodeLibVB

QRCodeLibVB是用Visual Basic编写的QR码生成库。
基于JIS X 0510生成模型2代码符号。

特征

• 支持数字，字母数字字符，8位字节和汉字模式
• 您可以创建拆分QR代码
• 可以保存到1BPP或24BPP BMP文件（DIB）
• 可以以SVG格式保存
• 可以作为1BPP或24BPP图像对象检索
• 您可以指定图像的配色方案（前色和背景色）
• 角色代码可以以8位字节模式指定

快速开始

请参阅QRCODELIB项目或已构建的Qrcodelib.dll。

如何使用

示例1。显示由单个符号组成的QR码的最小代码（不是拆分QR代码）。

 Imports Ys.QRCode
Imports System.Drawing

Public Sub Example()
    Dim symbols As Symbols = New Symbols()
    symbols.AppendText( \"012345abcdefg\" )

    Dim image As Image = symbols( 0 ).GetImage()

End Sub

示例2。指定误差校正级别

将符号类的构造函数参数设置为erroctionLevel枚举的值。

 Dim symbols As Symbols = New Symbols(ErrorCorrectionLevel.H)

示例3。指定型号的上限

将其设置在符号类的构造函数中。

 Dim symbols As Symbols = New Symbols(maxVersion:= 10 )

示例4。指定要在8位字节模式下使用的字符代码

将其设置在符号类的构造函数中。

 Dim symbols As Symbols = New Symbols(charsetName:= \"UTF-8\" )

示例5。创建一个拆分QR代码

将其设置在符号类的构造函数中。如果未指定型号的上限，则将上限与型号40分配。

 Dim symbols As Symbols = New Symbols(allowStructuredAppend:= True )

这是当数据超过模型编号1并获取每个QR码的图像对象时，将数据拆分的示例。

 Dim symbols As Symbols = New Symbols(maxVersion:= 1 , allowStructuredAppend:= True )
symbols.AppendText( \"abcdefghijklmnopqrstuvwxyz\" )

For Each symbol As Symbol In symbols
    Dim image As Image = symbol.GetImage()
Next

示例6。保存到BMP文件

使用符号类的SaveBitMap方法。

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( \"012345abcdefg\" )

\' 24bpp DIB
symbols( 0 ).SaveBitmap( \"qrcode.bmp\" )

\' 1bpp DIB
symbols( 0 ).SaveBitmap( \"qrcode.bmp\" , monochrome:= True )

\' 10 pixels per module
symbols( 0 ).SaveBitmap( \"qrcode.bmp\" , moduleSize:= 10 )

\' Specify foreground and background colors.
symbols( 0 ).SaveBitmap( \"qrcode.bmp\" , foreRgb:= \"#0000FF\" , backRgb:= \"#FFFF00\" )    

示例7。保存到SVG文件

使用符号类的SavESVG方法。

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( \"012345abcdefg\" )

symbols( 0 ).SaveSvg( \"qrcode.svg\" )

示例8。保存各种图像格式

使用图像对象的保存方法。

 Imports System.Drawing
Imports System.Drawing.Imaging

Dim symbols As Symbols = New Symbols()
symbols.AppendText( \"012345\" )

Dim image As Image = symbols( 0 ).GetImage()
\' PNG
image.Save( \"qrcode.png\" , ImageFormat.Png)
\' GIF
image.Save( \"qrcode.gif\" , ImageFormat.Gif)
\' JPEG
image.Save( \"qrcode.jpg\" , ImageFormat.Jpeg)

示例9。获取基本64编码的图像数据

使用符号对象的getBitMapbase64方法。

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( \"012345abcdefg\" )

Dim data As String = symbols( 0 ).GetBitmapBase64()
Dim imgTag As String = \"<img src=\"\"data:image/bmp;base64,\" & data & \"\"\" />\"

示例10。获取SVG数据

使用符号对象的getVG方法。

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( \"012345abcdefg\" )

Dim svg As String = symbols( 0 ).GetSvg()