QRCodeLibVB
1.0.0
qrcodelibvb는 Visual Basic으로 작성된 QR 코드 생성 라이브러리입니다.
JIS X 0510을 기반으로 모델 2 코드 기호를 생성합니다.
qrcodelib 프로젝트 또는 구축 된 qrcodelib.dll을 참조하십시오.
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기호 클래스의 생성자 인수를 ErrorCorectionLevel enum의 값으로 설정하십시오.
Dim symbols As Symbols = New Symbols(ErrorCorrectionLevel.H)기호 클래스의 생성자에 설정하십시오.
Dim symbols As Symbols = New Symbols(maxVersion:= 10 )기호 클래스의 생성자에 설정하십시오.
Dim symbols As Symbols = New Symbols(charsetName:= "UTF-8" )기호 클래스의 생성자에 설정하십시오. 모델 번호의 상한을 지정하지 않으면 상한은 모델 번호 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기호 클래스의 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" ) 기호 클래스의 SavesVG 메소드를 사용하십시오.
Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )
symbols( 0 ).SaveSvg( "qrcode.svg" )이미지 객체의 저장 메소드를 사용하십시오.
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)Symbol Object의 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 & """ />"심볼 객체의 getsvg 메소드를 사용하십시오.
Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )
Dim svg As String = symbols( 0 ).GetSvg()