Cảm ơn bạn! Phù... cuối cùng cũng có người giúp!
Liên kết nhiều cell là sao nhỉ? Là nối chuỗi nhiều cells lại với nhau à?
Cái này tôi cũng không biết đâu! Quá trình áp dụng vào thực tế sẽ có ngay câu trả lời. Thậm chí là chỉnh sửa, tối ưu tốc độ... gì gì đó cũng phải có file thực tế để làm chứ, đúng không?
Option Explicit
Function Decode_QR_Code_From_File(FileName As String, TextVal As String)
Dim reader As IBarcodeReader
Dim res As Result
Set reader = New BarcodeReader
reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE
'Set res = reader.DecodeImageFile("D:\Barcodes\QrCodes\www.png")
Set res = reader.DecodeImageFile(FileName)
TextVal = res.Text
End Function
Function Decode_QR_Code_From_Byte_Array()
Dim reader As IBarcodeReader
Dim rawRGB(1000) As Byte
Dim res As Result
Set reader = New BarcodeReader
reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE
Rem TODO: load bitmap data to byte array rawRGB
Set res = reader.DecodeImageBytes(rawRGB, 10, 10, BitmapFormat.BitmapFormat_Gray8)
End Function
Function Encode(YourText As String, ToFileName As String)
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.WritePngToFile "Test", "D:\interop_qrcode.png"
writer.WritePngToFile YourText, ToFileName
Set pixelDataResult = writer.Write("Test")
End Function
Function Decode_QR_Code_From_File_CreateObject(FromFileName As String)
Dim reader As IBarcodeReader
Dim res As Result
Set reader = CreateObject("ZXing.Interop.Decoding.BarcodeReader")
reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE
'Set res = reader.DecodeImageFile("D:\Barcodes\QrCodes\www.png")
Set res = reader.DecodeImageFile(FromFileName)
End Function
Mình mới thử nhưng lỗi khi add file References ... trước đó đã Register 2 File *.dll
Chào Bạn,
Thầy ơi nếu e muốn chỉnh sửa marging của qr code đó thì làm thế nào ạ?Đầu tiên hãy làm cuộc thí nghiệm sau:
- Gõ vào thanh địa chỉ của trình duyệt đoạn URL:
xem ta nhận được cái gì nhaMã:https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=Nguyen+Anh+Tuan
Đây chính là chìa khóa để tạo mã QR (dùng dịch vụ của google)
-----------------------------------------------------------
Tiến hành phân tích:
- Giả định rằng ta có chuỗi: Nguyen Anh Tuan
- Bằng cách nào đó ta biến đổi chuỗi trên thành:
(tạm gọi đây là biến sURL nha)Mã:https://chart.googleapis.com/chart?chs=[COLOR=#0000cd]150x150[/COLOR]&cht=qr&chl=[COLOR=#ff0000]Nguyen+Anh+Tuan[/COLOR]
Trong đó: chỗ không tô màu là const, chỗ màu xanh có thể tùy chỉnh hoặc để mặc định (nó là size), chỗ màu đỏ chính là chuỗi đầu vào (nhớ rằng khoảng trắng phải được biến đổi thành dấu +)
- Tiếp theo thử gõ vào cửa sổ Immediate dòng code:
enter phát xem nó ra cái gìMã:ActiveSheet.Shapes.AddPicture "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=Nguyen+Anh+Tuan", True, True, ActiveCell.Left, ActiveCell.Top, 150, 150
---------------------------------
Vậy, việc chính của bạn chỉ là: làm cách nào để biến đổi chuỗi đầu vào thành sURL rồi ráp vào phương thức AddPicture là được rồi
Lưu ý:
- Chỗ màu đỏ không áp dụng cho tiếng Việt có dấu (nếu muốn thì phải cần 1 hàm convert)
- Đương nhiên phải kết nối internet mới dùng được
-------------------------------
Bài #11 nhé. Rất dễ sử dụng và đẹp; nhiều cái hay.
Hãy thử với Tiếng Việt có dấu xem sao nhé.
Tôi chả có nhu cầu nên không tìm hiểu kỹ.
Do em chưa test chỉ thấy cái ToolTip nó hiện ra chữ tiếng Việt bị bể font giờ test thấy được rồi anh.
Chào bác @ndu96081631 hiện tại bên e có nhu cầu rất lớn về qr code (sử dụng qrcode để quản trị sản xuất)
Em xin nói tiếp : Nhờ bác @ndu96081631 xem mẫu form như dưới
Nếu e muốn xuống dòng thì làm như thế nào bác nhỉ, dạng :
