Para imprimir QRCode desde Visual Basic,
usted necesita Barcodesoft fuente BCSQRcode.ttf tipo verdadero y cruflbcs.dll.
Si descarga e instalar la demo de Barcodesoft fuente QRCode en el equipo,
usted encontrará crUFLBCS.dll de
"C:\Program Files (x86)\Common Files\Barcodesoft\Fontutil\" carpeta.
Si usted no encuentra cruflbcs.dll en su ordenador, puede descargarlo desde
QRCode Barcode VB .
crUFLBCS.dll es un objeto COM con interfaz IQRCode.
Usted puede encontrar la información detallada de la interfaz de IQRCode readme.html.
Para llamar a los métodos de la interfaz IQRCode, puede utilizar el enlace en tiempo vinculante o temprano.
Late Binding
Late vinculante se utiliza cuando la información de tipo de un objeto no está disponible en tiempo de compilación.
Los códigos que utilizan el enlace para imprimir códigos de barras Código QR en funcionamiento Visual Basic lento que usar el enlace anticipado.
Sin embargo, sus códigos son independiente de la versión, siempre y cuando la interfaz COM y el método de parámetros permanecen sin cambios.
He aquí una muestra usando el enlace para imprimir códigos de barras QRCode en Visual Basic.
Abra Visual Basic Muestra LateBinding de esta carpeta
C:\Program Files (x86)\Barcodesoft\qrcodefont\
Seleccionar BCSQRCode fuente tipográfica a cadena devuelta "retval". Verá código de barras Código QR.
Early Binding
El enlace en tiempo requiere el cliente para obtener acceso a la biblioteca de tipos antes de compilación.
Sus códigos utilizando el enlace anticipado para imprimir códigos de barras Código QR correr más rápido que utilizar el enlace en tiempo.
He aquí un ejemplo que utiliza enlace anticipado para imprimir códigos de barras QRCode en Visual Basic.
Abra Visual Basic Muestra EarlyBinding desde la carpeta siguiente
C:\Program Files (x86)\Barcodesoft\qrcodefont\.
1. Haga clic en el menú Proyecto, seleccione "Agregar referencia ..." para cargar la información de tipo de cruflBCS.dll.
2. Utilice el siguiente fragmento de código para imprimir códigos de barras desde Visual Basic.
Dim obj As cruflBCS.CBCSQRCode
Set obj = New cruflBCS.CBCSQRCode
cruflBCSObj.ECLevel = 2
qrcode = obj.Encode(strToEncode)
Set obj = Nothing
For more information about QR Code, please click QRCode.