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。获取Base64编码图像数据

使用符号对象的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()