QRCodeLibVB

Qrcodelibvb

QRCodeLiBVB est une bibliothèque de génération de code QR écrite dans Visual Basic.
Génère des symboles de code du modèle 2 basés sur JIS X 0510.

Caractéristiques

• Prend en charge les nombres, les caractères alphanumériques, les modes d'octet 8 bits et Kanji
• Vous pouvez créer des codes QR divisés
• Peut être enregistré dans le fichier BMP 1BPP ou 24BPP (DIB)
• Peut être enregistré au format SVG
• Peut être récupéré comme un objet d'image 1BPP ou 24BPP
• Vous pouvez spécifier la palette de couleurs (couleur avant et couleur d'arrière-plan) de l'image
• Les codes de caractère peuvent être spécifiés en mode octet 8 bits

Démarrage rapide

Veuillez vous référer au projet QRCODelib ou au Qrcodelib.dll construit.

Comment utiliser

Exemple 1. Affiche le code minimum pour un code QR (pas un code QR divisé) composé d'un seul symbole.

 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

Exemple 2. Spécifiez le niveau de correction d'erreur

Définissez l'argument du constructeur de la classe Symboles sur la valeur de l'énumération ErrorCorrectionLevel.

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

Exemple 3. Spécifiez la limite supérieure du numéro de modèle

Réglez-le dans le constructeur de la classe Symboles.

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

Exemple 4. Spécifiez le code de caractère à utiliser en mode d'octet 8 bits

Réglez-le dans le constructeur de la classe Symboles.

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

Exemple 5. Créer un code QR divisé

Réglez-le dans le constructeur de la classe Symboles. Si vous ne spécifiez pas une limite supérieure du numéro de modèle, la limite supérieure est divisée avec le numéro de modèle 40.

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

Voici un exemple de division des données lorsque les données dépassent le modèle numéro 1 et l'obtention de l'objet image pour chaque code 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

Exemple 6. Enregistrer dans le fichier BMP

Utilisez la méthode SaveBitmap de la classe de symboles.

 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" )    

Exemple 7. Enregistrer dans le fichier SVG

Utilisez la méthode SAVESVG de la classe de symboles.

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

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

Exemple 8. Enregistrer dans divers formats d'image

Utilisez la méthode de sauvegarde de l'objet image.

 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)

Exemple 9. Obtenez des données d'image codées Base64

Utilisez la méthode GetBitMapBase64 de l'objet symbole.

 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 & """ />"

Exemple 10. Obtenir les données SVG

Utilisez la méthode getVG de l'objet symbole.

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

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