如何在 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 字体，才能正确渲染条形码图像。