Este Generador de Códigos QR en Visual Basic es un programa simple fácil de aprender, que genera texto en código QR utilizando la librería MessagingToolkit.QRCode. Esta aplicación también le permite que el código QR sea exporte como imagen a la carpeta Mis Documentos de su ordenador. todo lo que tiene que hacer es seguir el procedimiento a continuación.

Creando Aplicación
Paso 1
Abra Microsoft Visual Studio 2010, 2012, 2013, 2015, 2017 0 2019 y cree una nueva aplicación de formulario de Windows para Visual Basic .Net.

Paso 2
Realice el formulario tal como se muestra a continuación.

Paso 3
Presione F7 para abrir el editor de código. En el editor de código, agregue un espacio de nombres para acceder a las bibliotecas QR.
Nota: Agregue MessagingToolkit.QRCode.Codec en sus referencias.

Imports MessagingToolkit.QRCode.Codec

Paso 4
Cree el método para Generar los códigos QR.

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

Paso 5
Cree el método para Exportar la imagen QR generada.

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 SE GUARDO CORRECTAMENTE")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

Paso 6
Mande llamar el método que genero para crear los códigos QR en el botón Generar Código.

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

Ahí lo tenemos, fue creado con éxito nuestro Generador de Códigos QR. Espero que este sencillo tutorial te ayude a lo que estás buscando.

Antes de la descarga del Tutorial presiona el siguiente enlace para que te suscribas a nuestro Canal de YouTube: