QRCodeLibVB

Qrcodelibvb

QRCodelibvb ist eine in Visual Basic geschriebene QR -Codeerzeugungsbibliothek.
Generiert Modell -2 -Code -Symbole basierend auf JIS X 0510.

Merkmale

• Unterstützt Zahlen, alphanumerische Zeichen, 8-Bit-Byte- und Kanji-Modi
• Sie können geteilte QR -Codes erstellen
• Kann in 1BPP- oder 24BPP -BMP -Datei (DIB) gespeichert werden.
• Kann im SVG -Format gespeichert werden
• Kann als 1BPP- oder 24BPP -Bildobjekt abgerufen werden
• Sie können das Farbschema (Vorderfarbe und Hintergrundfarbe) des Bildes angeben
• Zeichencodes können im 8-Bit-Byte-Modus angegeben werden

Schneller Start

Weitere Informationen finden Sie im QRCodelib -Projekt oder im gebauten Qrcodelib.dll.

Wie man benutzt

Beispiel 1. Zeigt den Mindestcode für einen QR -Code (kein geteilter QR -Code) an, der aus einem einzigen Symbol besteht.

 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

Beispiel 2. Geben Sie die Fehlerkorrekturstufe an

Legen Sie das Konstruktorargument der Symboleklasse auf den Wert der Fehlerkorrection -Level -Enum ein.

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

Beispiel 3. Geben Sie die Obergrenze der Modellnummer an

Stellen Sie es im Konstruktor der Symbole -Klasse ein.

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

Beispiel 4. Geben Sie den Zeichencode an, der im 8-Bit-Byte-Modus verwendet werden soll

Stellen Sie es im Konstruktor der Symbole -Klasse ein.

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

Beispiel 5. Erstellen Sie einen geteilten QR -Code

Stellen Sie es im Konstruktor der Symbole -Klasse ein. Wenn Sie keine Obergrenze der Modellnummer angeben, ist die Obergrenze mit der Modellnummer 40 unterteilt.

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

Hier ist ein Beispiel für die Aufteilung der Daten, wenn die Daten die Modellnummer 1 überschreiten und das Bildobjekt für jeden QR -Code erhalten.

 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

Beispiel 6. Speichern in der BMP -Datei speichern

Verwenden Sie die SaveBitMap -Methode der Symbolklasse.

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

Beispiel 7. Speichern in der SVG -Datei speichern

Verwenden Sie die SavesVG -Methode der Symbolklasse.

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

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

Beispiel 8. In verschiedenen Bildformaten speichern

Verwenden Sie die Speichermethode des Bildobjekts.

 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)

Beispiel 9. Holen Sie sich base64 codierte Bilddaten

Verwenden Sie die GetbitMapBase64 -Methode des Symbolobjekts.

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

Beispiel 10. Holen Sie sich SVG -Daten

Verwenden Sie die GETVG -Methode des Symbolobjekts.

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

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