ngduychien
VIP
Kể từ phiên bản 0.16.0 ZXing.Net đã có thể dễ dàng sử dụng với VBA.
Để sử dụng ZXing.Net (phiên bản 0.16.0 trở lên), chúng ta cần có hai file zxing.dll, zxing.interop.dll
Link mã nguồn mở của ZXing.Net:
Bây giờ, hãy tạo một mô-đun mới trong dự án VBA của bạn và thêm một tham chiếu đến thành phần ZXing.Net.
Dưới đây là một số đoạn mã cho các tác vụ phổ biến nhất có thể được sử dụng trong mô-đun VBA:
Để sử dụng ZXing.Net (phiên bản 0.16.0 trở lên), chúng ta cần có hai file zxing.dll, zxing.interop.dll
Link mã nguồn mở của ZXing.Net:
Bạn cần đăng nhập để thấy link
Bây giờ, hãy tạo một mô-đun mới trong dự án VBA của bạn và thêm một tham chiếu đến thành phần ZXing.Net.
Dưới đây là một số đoạn mã cho các tác vụ phổ biến nhất có thể được sử dụng trong mô-đun VBA:
Function Encode_To_QR_Code_To_File()
Dim writer As IBarcodeWriter
Dim qrCodeOptions As QrCodeEncodingOptions
Dim pixelDataResult As PixelData
Set qrCodeOptions = New QrCodeEncodingOptions
Set writer = New BarcodeWriter
writer.Format = BarcodeFormat_QR_CODE
Set writer.options = qrCodeOptions
qrCodeOptions.Height = 100
qrCodeOptions.Width = 100
qrCodeOptions.CharacterSet = "UTF-8"
qrCodeOptions.Margin = 10
qrCodeOptions.ErrorCorrection = ErrorCorrectionLevel_H
writer.WriteToFile "Test", "D:\interop_qrcode.png", ImageFileFormat_Png
Rem Or:
Set pixelDataResult = writer.Write("Test")
End Function