QRCodeLibVB

Qrcodelibvb

QRCodelibvB é uma biblioteca de geração de código QR escrita no Visual Basic.
Gera símbolos de código do modelo 2 com base no JIS X 0510.

Características

• Suporta números, caracteres alfanuméricos, byte de 8 bits e modos kanji
• Você pode criar códigos QR divididos
• Pode ser salvo no arquivo BMP 1BPP ou 24BPP (DIB)
• Pode ser salvo em formato SVG
• Pode ser recuperado como um objeto de imagem 1BPP ou 24BPP
• Você pode especificar o esquema de cores (cor dianteira e de fundo) da imagem
• Os códigos de caracteres podem ser especificados no modo de bytes de 8 bits

Início rápido

Consulte o projeto QRCodelib ou o qrcodelib.dll construído.

Como usar

Exemplo 1. Mostra o código mínimo para um código QR (não um código QR dividido) que consiste em um único 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

Exemplo 2. Especifique o nível de correção de erro

Defina o argumento do construtor da classe Symbols como o valor do enum do ErrorCorrectionLevel.

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

Exemplo 3. Especifique o limite superior do número do modelo

Defina -o no construtor da classe de símbolos.

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

Exemplo 4. Especifique o código do caractere a ser usado no modo de bytes de 8 bits

Defina -o no construtor da classe de símbolos.

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

Exemplo 5. Crie um código QR dividido

Defina -o no construtor da classe de símbolos. Se você não especificar um limite superior do número do modelo, o limite superior será dividido com o número 40 do modelo 40.

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

Aqui está um exemplo de divisão dos dados quando os dados excedem o número 1 do modelo e a obtenção do objeto de imagem 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

Exemplo 6. Salvar no arquivo BMP

Use o método savebitmap da classe 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" )    

Exemplo 7. Salvar no arquivo SVG

Use o método SAVESVG da classe de símbolos.

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

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

Exemplo 8. Salvar em vários formatos de imagem

Use o método salvar do objeto de imagem.

 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)

Exemplo 9. Obtenha dados de imagem codificados Base64

Use o método getBitmapBase64 do objeto de 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 & """ />"

Exemplo 10. Obtenha dados SVG

Use o método getVG do objeto de símbolo.

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

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