Qr Code In Vb6 ✭

Private Sub Command1_Click() Dim size As String

GenerateQRCode Text1.Text, size End Sub

' Display in picture box Picture1.Picture = LoadPicture(App.Path & "\qrcode.bmp") End Sub Implementation Private Sub GenerateGoogleQR() Dim strURL As String Dim strData As String Dim http As Object ' URL encode the data strData = URLEncode(Text1.Text) qr code in vb6

' Download Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send j As Integer

Private Type QRCodeMatrix size As Integer matrix() As Integer End Type Private Function GenerateSimpleQRCode(data As String) As QRCodeMatrix Dim qr As QRCodeMatrix Dim i As Integer, j As Integer qr code in vb6

Private Sub Command1_Click() Dim size As String

GenerateQRCode Text1.Text, size End Sub

' Display in picture box Picture1.Picture = LoadPicture(App.Path & "\qrcode.bmp") End Sub Implementation Private Sub GenerateGoogleQR() Dim strURL As String Dim strData As String Dim http As Object ' URL encode the data strData = URLEncode(Text1.Text)

' Download Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send

Private Type QRCodeMatrix size As Integer matrix() As Integer End Type Private Function GenerateSimpleQRCode(data As String) As QRCodeMatrix Dim qr As QRCodeMatrix Dim i As Integer, j As Integer