Display a windows form

With GuiXT Controls it is possible to display a windows form as a popup. In this tutorial we will display a barcode (optical machine-readable representation of data) within a popup.

Step no. 2: Create a new windows forms application and add these elements:

PictureBox: The picture of the created barcode
RichTextBox: Formated text e.g. the ASCII input of the barcode

Public Function create_barcode(ByVal text As String, _
                                    ByVal posX As String, _
                                    ByVal posY As String, _
                                    ByVal p_type As String) As String
        Try
            Dim b = New barcodeviewer 'New instance of our form
            b.Text = text
            b.RichTextBox1.Text = text 'Display the text below the barcode

            Dim barcode As BarcodeLib.Barcode = New BarcodeLib.Barcode
            Dim type As BarcodeLib.TYPE = BarcodeLib.TYPE.UPCA

            'Choose type of barcode to be generated
            Select Case p_type.ToLower

                Case "upca"
                    type = BarcodeLib.TYPE.UPCA

                Case "code128"
                    type = BarcodeLib.TYPE.CODE128

                Case "ean13"
                    type = BarcodeLib.TYPE.EAN13
            End Select

            'Create the barcode image
            Dim i = barcode.Encode(type, text, 300, 100)

            'Display the barcode image
            b.PictureBox1.Image = i

            'Display the form at position (posX,posY)
            b.Location = New Point(CInt(posX), CInt(posY))
            b.Show()
            
        Catch ex As Exception

            'An error occured
            Return ex.Message

        End Try

        Return "0"

    End Function