QR (Quick Response) Code Generator using VB.NET with Source Code

This QR (Quick Response) CODE Generator is a simple program that generates text into QR code using messaging toolkit QR code and developed using VB.NET. It also allows the QR code to be exported as an image and automatically saved into your Documents folder with the file name as equivalent in the textbox. The QR Code can be useful in some Software depending on what logic you will use. For Example in an Inventory System, you can generate a QR Code for each product or items and create a tracking feature that has a QR Code Scanning and by that, the system user will have a better experience using the system and also this can help to prevent Typing Error instances and the user can quickly track the item.

Features

• Generate QR Code
• Export QR Code as an Image

Tools used:

• Labels
• Picture Box
• Buttons

Library Used

This is the Layout that I have created in this QR Code Generator program:

The below code is the one I used to generate QR Code from the text entered and display the code into the Picture Box.

	Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click
        Try
            Call qrcodeGen()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub
 
    Private Sub qrcodeGen()
        Try
            Dim qrCode As New QRCodeEncoder
            qrCode.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
            qrCode.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.L
            Me.PictureBox1.Image = qrCode.Encode(Me.txtCode.Text, System.Text.Encoding.UTF8)
 
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

And to export the QR Code as an Image and saving it automatically to the Documents Folder, this is the code I used.

	Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        Try
            If Me.PictureBox1.Image IsNot Nothing Then
                Me.PictureBox1.Image.Save(IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, Me.txtCode.Text & ".jpg"))
                MessageBox.Show("QR is successfully saved.")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

How to Run

• Download and Instal Microsoft Visual Studio Software.
• Download the provided source code zip file. ( download button is located below )

1. Extract the downloaded source code zip file.
2. Locate the Solution file in the extracted source code. The file is known as "QR Code Generator.sln".
3. Open the solution file with your MS Visual Studio Software.
4. Press the "F5" key on your keyboard to run the Program.

I hope this QR Code Generator Program will help you in your future projects.

For more additional information just contact me at my email: [email protected]