' Convert to VB6 Picture (requires saving to file) SaveImageToFile img, "C:\temp\qr.bmp" picQR.Picture = LoadPicture("C:\temp\qr.bmp") End Sub
' Helper to save .NET Image to disk Private Sub SaveImageToFile(img As Object, path As String) Dim ms As Object Set ms = CreateObject("System.IO.MemoryStream") img.Save(ms, img.RawFormat) Dim data() As Byte data = ms.ToArray() Open path For Binary As #1 Put #1, , data Close #1 End Sub vb6 qr code generator source code
' Configure the QR qr.QRCodeScale = 4 qr.QRCodeVersion = "Auto" qr.ErrorCorrection = "M" ' Convert to VB6 Picture (requires saving to
Private Function URLEncode(ByVal str As String) As String Dim i As Integer Dim result As String For i = 1 To Len(str) Dim ch As String ch = Mid(str, i, 1) If (ch Like "[A-Za-z0-9]") Then result = result & ch Else result = result & "%" & Hex(Asc(ch)) End If Next URLEncode = result End Function vb6 qr code generator source code
Dim img As Object Set img = qr.Encode("VB6 ROCKS with QR!")