Programación: Crear codígo QR en VB.NET

Buen día, aquí les enseño como crear nuestros códigos QR, para una mejor distribución de nuestros artículos o productos en un almacén.  sin mas preámbulo les dejo el código y la descarga del proyecto.

1.- Creamos nuestro proyecto en visual studio, (vb.net) vamos a importar al proyecto nuestro ddl para codificar.

ThoughtWorks.QRCode.dll

Imports ThoughtWorks.QRCode
Imports ThoughtWorks.QRCode.Codec

Imports ThoughtWorks.QRCode.Codec.Data

Private qrBackColor As Integer = Color.FromArgb(255, 255, 255, 255).ToArgb
    Private qrForeColor As Integer = Color.FromArgb(255, 0, 0, 0).ToArgb

    Private Sub Codificar()
        Dim qrCodeEncoder As QRCodeEncoder = New QRCodeEncoder
        qrCodeEncoder.QRCodeEncodeMode = Codec.QRCodeEncoder.ENCODE_MODE.BYTE
        'Con la versión '0' calcula automáticamente el tamaño del codígo
        qrCodeEncoder.QRCodeVersion = 0
        qrCodeEncoder.QRCodeBackgroundColor = System.Drawing.Color.FromArgb(qrBackColor)
        qrCodeEncoder.QRCodeForegroundColor = System.Drawing.Color.FromArgb(qrForeColor)

        Try
            PictureBox1.Image = qrCodeEncoder.Encode(TextBox1.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub Guardar()
        If IsNothing(PictureBox1.Image) Then
            MessageBox.Show("No hay nada que grabar. Codifica primero un texto")
            Exit Sub
        End If
        Dim saveFileDialog1 As New SaveFileDialog

        saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif|PNG Image|*.png"
        saveFileDialog1.Title = "Guardar el codigo del Equipo"
        saveFileDialog1.FileName = Me.Text
        saveFileDialog1.ShowDialog()

        If (saveFileDialog1.FileName <> "") Then
            Select Case saveFileDialog1.FilterIndex
                Case 1
                    PictureBox1.Image.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                Case 2
                    PictureBox1.Image.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
                Case 3
                    PictureBox1.Image.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Gif)
                Case 4
                    PictureBox1.Image.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)
            End Select
        End If
    End Sub

    Private Sub Borrar()
        PictureBox1.Image = Nothing
    End Sub

    Private Sub Imprimir()
        If IsNothing(PictureBox1.Image) Then
            MessageBox.Show("No hay nada que imprimir. Codifica primero un texto")
            Exit Sub
        End If
        Dim vtn As New PrintDialog
        vtn.Document = PrintDocument1
        If vtn.ShowDialog = Windows.Forms.DialogResult.OK Then
            PrintDocument1.Print()
        End If

    End Sub

2.- Ejecutamos los metodos que pegamos dentro de cada botón.


    Private Sub btnCodificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCodificar.Click
        Codificar()
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Guardar()
    End Sub

    Private Sub btnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBorrar.Click
        Borrar()
    End Sub

    Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
        Imprimir()

    End Sub

DESCARGAR PROYECTO: http://adf.ly/1PxlKV
Tweet --

Segui @Irvinghh