https://github.com/wqweto/vbqrcodegen

QR Code generator library for VB6/VBA
https://github.com/wqweto/vbqrcodegen

qr-code qrcode qrcode-generator vb6 vba

Last synced: about 1 month ago
JSON representation

QR Code generator library for VB6/VBA

• Host: GitHub
• URL: https://github.com/wqweto/vbqrcodegen
• Owner: wqweto
• License: mit-0
• Created: 2022-10-11T18:06:26.000Z (about 2 years ago)
• Default Branch: master
• Last Pushed: 2024-07-20T15:01:58.000Z (6 months ago)
• Last Synced: 2024-07-20T16:22:32.152Z (6 months ago)
• Topics: qr-code, qrcode, qrcode-generator, vb6, vba
• Language: Visual Basic 6.0
• Homepage:
• Size: 45.9 KB
• Stars: 40
• Watchers: 7
• Forks: 14
• Open Issues: 4
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

        




## VbQRCodegen

QR Code generator library for VB6/VBA



### Description

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

### Usage

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.

### MS Access Support

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.