dll download: https://pan.baidu.com/s/1MDQalDEoV4iDXRYsEzDXtw
Generated images, this dll for Framework version more
ThoughtWorks.QRCode.Codec Imports
() Dim qrCodeEncoder of As = QRCodeEncoder New QRCodeEncoder qrCodeEncoder.QRCodeScale =. 8 '; // size (the larger the value of the two-dimensional code image generated higher pixel) qrCodeEncoder.QRCodeVersion = 0'; // version ( Note: set to 0 when the error occurs mainly encoded string is too long to prevent '; // specified utf-8 encoding, support Chinese Dim = qrCodeEncoder.Encode Bitmap IMG of as (PicCellDic (dd), Encoding.UTF8) img.Save (filePicPath, ImageFormat.Jpeg)
Generated images, this dll Framework version for less
Imports QRCoder
'Dim qrGenerator As QRCodeGenerator = New QRCoder.QRCodeGenerator 'Dim qrCodeData As QRCodeData = qrGenerator.CreateQrCode(PicCellDic(dd), QRCodeGenerator.ECCLevel.Q) 'Dim qrcode As QRCode = New QRCode(qrCodeData) 'Dim qrCodeImage As Bitmap = qrcode.GetGraphic(15) 'qrCodeImage.Save(filePicPath, ImageFormat.Jpeg)