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