Cómo imprimir códigos de barras Aztec en Visual Basic (VB.NET)

Genere códigos de barras Aztec de alta resolución en sus aplicaciones de Visual Basic utilizando la fuente TrueType Barcodesoft BCSAztec y componentes COM.

Prerrequisitos

  • BCSAztec.ttf: La fuente TrueType principal.
  • cruflbcs.dll: La biblioteca de objetos COM (se encuentra en C:\Program Files (x86)\Common Files\Barcodesoft\Fontutil\).
Descargar Demo Comprar Versión Completa

Método 1: Vinculación Tardía (Late Binding)

Ideal para la independencia de versiones. No es necesario establecer referencias en tiempo de compilación, aunque se ejecuta ligeramente más lento que la vinculación temprana. 

' Ejemplo de Vinculación Tardía
Dim cruflBCSObj As Object
Set cruflBCSObj = CreateObject("cruflBCS.Aztec.1")

cruflBCSObj.SetCRLF(1)
cruflBCSObj.ECLevel = 23

Dim retval As String
retval = cruflBCSObj.Encode(strTemp)
' Aplique la fuente BCSAztec a la variable retval

Método 2: Vinculación Temprana (Early Binding)

Ideal para un alto rendimiento. Requiere agregar una referencia de proyecto a la biblioteca de tipos cruflBCS.dll. 

' Ejemplo de Vinculación Temprana
' 1. Proyecto > Agregar referencia > 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

Importante: Después de llamar al método Encode, debe aplicar el tipo de letra BCSAztec a la cadena devuelta en su interfaz de usuario (Label, TextBox o Reporte) para visualizar la imagen del código de barras.