Visual Basic - Codigos QR

'Declaraciones para QRCodeLib.dll

Enum TQRCodeEncoding

    ceALPHA

    ceBYTE

    ceNUMERIC

    ceKANJI

    ceAUTO

End Enum

Enum TQRCodeECLevel

    LEVEL_L

    LEVEL_M

    LEVEL_Q

    LEVEL_H

End Enum

Private Declare Sub FullQRCode Lib "QRCodeLib.dll" _

                    (ByVal autoConfigurate As Boolean, _

                     ByVal AutoFit As Boolean, _

                     ByVal backColor As Long, _

                     ByVal barColor As Long, _

                     ByVal Texto As String, _

                     ByVal correctionLevel As TQRCodeECLevel, _

                     ByVal encoding As TQRCodeEncoding, _

                     ByVal marginpixels As Integer, _

                     ByVal moduleWidth As Integer, _

                     ByVal Height As Integer, _

                     ByVal Width As Integer, _

                     ByVal FileName As String)

Private Declare Sub FastQRCode Lib "QRCodeLib.dll" _

                    (ByVal Texto As String, _

                     ByVal FileName As String)

Private Declare Function QRCodeLibVer Lib "QRCodeLib.dll" () As String

FastQRCode "Este es un ejemplo para generar un cbb, App.Path & "\Ejemplo.bmp"

'strCB= informacion que contendra al codigo

'strRutaCB=la ruta donde quiero almacenar mi archivo con el codigo .bmp

    GoogleQR strCB, strRutaCB

aqui esta la declaracion de una funcion para descargar el archivo de google

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _

                                                                            ByVal szURL As String, _

                                                                            ByVal szFileName As String, _

                                                                            ByVal dwReserved As Long, _

                                                                            ByVal lpfnCB As Long) As Long

'funcion que se encargaa del CB

Private Function GoogleQR(pDato As String, pImagen As String) As Long

    Dim sURL As String

    Dim lcDimensiones As String

    lcDimensiones = "300x300"

    pDato = Replace(pDato, "&", "%26")

    pDato = Replace(pDato, "=", "%3D")

    sURL = "https://chart.googleapis.com/chart?cht=qr&chs=" & _

           lcDimensiones & "&chld=Q&chl=" & Replace(pDato, "&", "%26")

    GoogleQR = URLDownloadToFile(0, sURL, pImagen, 0, 0)

End Function