QRCodeLibVB

qrcodelibvb

QRCODELIBVB เป็นไลบรารีการสร้างรหัส QR ที่เขียนใน Visual Basic
สร้างสัญลักษณ์รหัสรุ่น 2 ตาม JIS X 0510

คุณสมบัติ

• รองรับตัวเลขอักขระตัวอักษรและตัวเลขไบต์ 8 บิตและโหมดคันจิ
• คุณสามารถสร้างรหัส QR แบบแยกได้
• สามารถบันทึกไว้ในไฟล์ 1BPP หรือ 24BPP BMP (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 ระบุระดับการแก้ไขข้อผิดพลาด

ตั้งค่าอาร์กิวเมนต์ตัวสร้างของคลาสสัญลักษณ์เป็นค่าของ 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()