Visual Basic (VB.NET) で Aztec バーコードを印刷する方法

Barcodesoft BCSAztec TrueType フォントと COM コンポーネントを使用して、Visual Basic アプリケーション内で高解像度の Aztec バーコードを生成します。

前提条件

  • BCSAztec.ttf: コアとなる TrueType フォント。
  • cruflbcs.dll: COM オブジェクトライブラリ(C:\Program Files (x86)\Common Files\Barcodesoft\Fontutil\ にあります)。

方法 1: 遅延バインディング (Late Binding)

バージョンの独立性に最適です。コンパイル時に参照を設定する必要はありませんが、事前バインディングよりも実行速度がわずかに遅くなります。

' 遅延バインディングの例
Dim cruflBCSObj As Object
Set cruflBCSObj = CreateObject("cruflBCS.Aztec.1")

cruflBCSObj.SetCRLF(1)
cruflBCSObj.ECLevel = 23

Dim retval As String
retval = cruflBCSObj.Encode(strTemp)
' 戻り値 "retval" に BCSAztec フォントを適用してください
                

方法 2: 事前バインディング (Early Binding)

高いパフォーマンスに最適です。プロジェクトの参照設定から cruflBCS.dll タイプライブラリを追加する必要があります。

' 事前バインディングの例
' 1. [プロジェクト] > [参照の追加] で cruflBCS.dll を読み込む
Dim obj As cruflBCS.CBcsAztec
Set obj = New cruflBCS.CBcsAztec

obj.ECLevel = 23
Dim qrcode As String
qrcode = obj.Encode(strToEncode)

Set obj = Nothing
                

重要: Encode メソッドを呼び出した後、UI(ラベル、テキストボックス、またはレポート)で返された文字列に BCSAztec フォントを適用して、バーコード画像を表示させてください。