QRCodeLibVB

QRCODELIBVB

QRCodelibVB es una biblioteca de generación de código QR escrita en Visual Basic.
Genera símbolos de código del modelo 2 basados ​​en JIS x 0510.

Características

• Admite números, caracteres alfanuméricos, modos de byte y kanji de 8 bits
• Puedes crear códigos QR divididos
• Se puede guardar en el archivo BMP de 1BPP o 24BPP (DIB)
• Se puede guardar en formato SVG
• Se puede recuperar como un objeto de imagen de 1BPP o 24BPP
• Puede especificar el esquema de color (color delantero y color de fondo) de la imagen
• Los códigos de caracteres se pueden especificar en modo de byte de 8 bits

Comienzo rápido

Consulte el proyecto QRCodelib o el QRCodelib.dll construido.

Cómo usar

Ejemplo 1. Muestra el código mínimo para un código QR (no un código QR dividido) que consiste en un solo símbolo.

 Imports Ys.QRCode
Imports System.Drawing

Public Sub Example()
    Dim symbols As Symbols = New Symbols()
    symbols.AppendText( "012345abcdefg" )

    Dim image As Image = symbols( 0 ).GetImage()

End Sub

Ejemplo 2. Especificar el nivel de corrección de errores

Establezca el argumento del constructor de la clase de símbolos en el valor del ErrorCorrectionLevel enum.

 Dim symbols As Symbols = New Symbols(ErrorCorrectionLevel.H)

Ejemplo 3. Especificar el límite superior del número de modelo

Establecer en el constructor de la clase de símbolos.

 Dim symbols As Symbols = New Symbols(maxVersion:= 10 )

Ejemplo 4. Especifique el código de caracteres que se utilizará en modo byte de 8 bits

Establecer en el constructor de la clase de símbolos.

 Dim symbols As Symbols = New Symbols(charsetName:= "UTF-8" )

Ejemplo 5. Crear un código QR dividido

Establecer en el constructor de la clase de símbolos. Si no especifica un límite superior del número de modelo, el límite superior se divide con el número de modelo 40.

 Dim symbols As Symbols = New Symbols(allowStructuredAppend:= True )

Aquí hay un ejemplo de división de datos cuando los datos exceden el modelo número 1 y la obtención del objeto de imagen para cada código QR.

 Dim symbols As Symbols = New Symbols(maxVersion:= 1 , allowStructuredAppend:= True )
symbols.AppendText( "abcdefghijklmnopqrstuvwxyz" )

For Each symbol As Symbol In symbols
    Dim image As Image = symbol.GetImage()
Next

Ejemplo 6. Guardar en el archivo BMP

Use el método SaveBitMap de la clase de símbolos.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

' 24bpp DIB
symbols( 0 ).SaveBitmap( "qrcode.bmp" )

' 1bpp DIB
symbols( 0 ).SaveBitmap( "qrcode.bmp" , monochrome:= True )

' 10 pixels per module
symbols( 0 ).SaveBitmap( "qrcode.bmp" , moduleSize:= 10 )

' Specify foreground and background colors.
symbols( 0 ).SaveBitmap( "qrcode.bmp" , foreRgb:= "#0000FF" , backRgb:= "#FFFF00" )    

Ejemplo 7. Guardar en el archivo SVG

Use el método SaveSVG de la clase de símbolos.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

symbols( 0 ).SaveSvg( "qrcode.svg" )

Ejemplo 8. Guardar en varios formatos de imagen

Use el método Guardar del objeto de imagen.

 Imports System.Drawing
Imports System.Drawing.Imaging

Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345" )

Dim image As Image = symbols( 0 ).GetImage()
' PNG
image.Save( "qrcode.png" , ImageFormat.Png)
' GIF
image.Save( "qrcode.gif" , ImageFormat.Gif)
' JPEG
image.Save( "qrcode.jpg" , ImageFormat.Jpeg)

Ejemplo 9. Obtener datos de imagen codificados Base64

Use el método GetBitMapbase64 del objeto símbolo.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

Dim data As String = symbols( 0 ).GetBitmapBase64()
Dim imgTag As String = "<img src=""data:image/bmp;base64," & data & """ />"

Ejemplo 10. Obtener datos de SVG

Use el método getsvg del objeto símbolo.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

Dim svg As String = symbols( 0 ).GetSvg()