QRCodeLibVB

Qrcodelibvb

Qrcodelibvb - это библиотека генерации кода QR, написанная в Visual Basic.
Генерирует символы кода модели 2 на основе JIS X 0510.

Функции

• Поддерживает цифры, буквенно-цифровые символы, 8-битные байтовые и кандзи режимы
• Вы можете создать разделенные QR -коды
• Может быть сохранен в файле BMP 1BPP или 24BPP (DIB)
• Можно сохранить в формате SVG
• Может быть извлечен как объект изображения 1BPP или 24BPP
• Вы можете указать цветовую схему (передний цвет и цвет фона) изображения
• Коды символов могут быть указаны в 8-битном режиме

Быстрый старт

Пожалуйста, обратитесь к проекту QRCODELIB или в созданный QRCODELIB.DLL.

Как использовать

Пример 1. Показывает минимальный код для QR -кода (не разделенный QR -код), состоящий из одного символа.

 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

Пример 2. Укажите уровень коррекции ошибок

Установите аргумент конструктора класса Symbols для значения ErrorCorrectionLevel Enum.

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

Пример 3. Укажите верхний предел номера модели

Установите его в конструкторе класса символов.

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

Пример 4. Укажите код символа, который будет использоваться в режиме 8-битного байта

Установите его в конструкторе класса символов.

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

Пример 5. Создать разделенный QR -код

Установите его в конструкторе класса символов. Если вы не указываете верхний предел номера модели, верхний предел делится на модель № 40.

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

Вот пример разделения данных, когда данные превышают номер 1 модели и получение объекта изображения для каждого 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

Пример 6. Сохранить в BMP -файл

Используйте метод SaveBitMap класса символов.

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

Пример 7. Сохранить в файл svg

Используйте метод SAVESVG класса символов.

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

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

Пример 8. Сохранить в различных форматах изображения

Используйте метод сохранения объекта изображения.

 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)

Пример 9. Получить кодируемые данные Base64

Используйте метод getbitmapbase64 объекта символа.

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

Пример 10. Получить данные SVG

Используйте метод getSvg объекта символа.

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

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