wqweto/VbQRCodegen: QR Code generator library for VB6/VBA

VbQRCodegen

QR Code generator library for VB6/VBA

A single file QR Code generator based on https://www.nayuki.io/page/qr-code-generator-library

Just add mdQRCodegen.bas to your project and call QRCodegenBarcode function to retrieve an picture from a text or a byte-array like this:

    Set Image1.Picture = QRCodegenBarcode("Sample text")

Note that you can stretch/zoom the returned picture to any size without loss of quality because the picture is using vectors to draw the QR Code.

For compatibility with image controls on forms/reports you can use QRCodegenConvertToData function like this:

    Image0.PictureData = QRCodegenConvertToData(QRCodegenBarcode("Sample text"))

If this does not work in your version of MS Access (for some reason) then you can try converting QR Code to a bitmap instead like this:

    Image0.PictureData = QRCodegenConvertToData(QRCodegenBarcode("Sample text"), 500, 500)

Note that this produces 500x500 bitmap picture of the QR Code so might need to tweak output size parameters.