Comment imprimer des codes-barres Aztec en Visual Basic (VB.NET)

Générez des codes-barres Aztec haute résolution dans vos applications Visual Basic en utilisant la police TrueType Barcodesoft BCSAztec et les composants COM.

Conditions préalables

  • BCSAztec.ttf : La police de caractères TrueType principale.
  • cruflbcs.dll : La bibliothèque d'objets COM (située dans C:\Program Files (x86)\Common Files\Barcodesoft\Fontutil\).
Télécharger la démo Commander la version complète

Méthode 1 : Liaison tardive (Late Binding)

Idéal pour l'indépendance des versions. Il n'est pas nécessaire de définir des références lors de la compilation, bien que l'exécution soit légèrement plus lente que la liaison précoce. 

' Exemple de liaison tardive
Dim cruflBCSObj As Object
Set cruflBCSObj = CreateObject("cruflBCS.Aztec.1")

cruflBCSObj.SetCRLF(1)
cruflBCSObj.ECLevel = 23

Dim retval As String
retval = cruflBCSObj.Encode(strTemp)
' Appliquez la police BCSAztec à retval

Méthode 2 : Liaison précoce (Early Binding)

Idéal pour une haute performance. Nécessite l'ajout d'une référence de projet à la bibliothèque de types cruflBCS.dll. 

' Exemple de liaison précoce
' 1. Projet > Ajouter une référence > 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

Important : Après avoir appelé la méthode Encode, vous devez appliquer la police de caractères BCSAztec à la chaîne de caractères renvoyée dans votre interface utilisateur (Label, TextBox ou Rapport) pour afficher l'image du code-barres.