QRCodeLibVB

QRCodeLibVBは、Visual Basicで書かれたQRコード生成ライブラリです。
JIS X 0510に基づくモデル２コードシンボルを生成します。

特徴

• 数字・英数字・8ビットバイト・漢字モードに対応しています
• 分割QRコードを作成可能です
• 1bppまたは24bpp BMPファイル(DIB)へ保存可能です
• 1bppまたは24bpp Imageオブジェクトとして取得可能です
• 画像の配色(前景色・背景色)を指定可能です
• 8ビットバイトモードでの文字コードを指定可能です

クイックスタート

QRCodeLibプロジェクト、またはビルドした QRCodeLib.dll を参照設定してください。

使用方法

例１．単一シンボルで構成される(分割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).Get24bppImage()

End Sub

例２．誤り訂正レベルを指定する

Symbolsクラスのコンストラクタ引数に、ErrorCorrectionLevel列挙型の値を設定します。

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

例３．型番の上限を指定する

Symbolsクラスのコンストラクタで設定します。

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

例４．8ビットバイトモードで使用する文字コードを指定する

Symbolsクラスのコンストラクタで設定します。

Dim symbols As Symbols = New Symbols(byteModeEncoding:="utf-8")

例５．分割QRコードを作成する

Symbolsクラスのコンストラクタで設定します。型番の上限を指定しない場合は、型番40を上限として分割されます。

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

型番1を超える場合に分割し、各QRコードのImageオブジェクトを取得する例を示します。

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.Get24bppImage()
Next

例６．BMPファイルへ保存する

SymbolクラスのSave1bppDIB、またはSave24bppDIBメソッドを使用します。

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

symbols(0).Save1bppDIB("D:\qrcode1bpp1.bmp")
symbols(0).Save1bppDIB("D:\qrcode1bpp2.bmp", 10) ' 10 pixels per module
symbols(0).Save24bppDIB("D:\qrcode24bpp1.bmp")
symbols(0).Save24bppDIB("D:\qrcode24bpp2.bmp", 10) ' 10 pixels per module

例７．様々な画像形式で保存する

ImageオブジェクトのSaveメソッドを使用します。

Imports System.Drawing
Imports System.Drawing.Imaging

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

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