Public Sub Fill_User_Infos_selected(ByVal user_id As Int64)
        Dim conn As New SqlConnection(conn_string_read)
        Dim cmd As New SqlCommand("sp_get_userdata_marked_row", conn)
        Dim f As New Funktionen()
        Dim qr_code_text As String = String.Empty
 
        Try
            If ds_searchlist.Tables(0).Rows.Count > 0 Then
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add("@id", SqlDbType.BigInt)
                cmd.Parameters("@id").Value = user_id
 
                conn.Open()
                Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
                Dim dt As New DataTable()
                dt.Clear()
                da.Fill(dt)
                conn.Close()
 
                txtbx_lastname.Text = dt.Rows(0).Item(0).ToString()
                txtbx_firstname.Text = dt.Rows(0).Item(1).ToString()
                txtbx_phone.Text = dt.Rows(0).Item(2).ToString()
                txtbx_businesscategory.Text = dt.Rows(0).Item(7).ToString()
                txtbx_title.Text = dt.Rows(0).Item(4).ToString()
                txtbx_office.Text = dt.Rows(0).Item(5).ToString()
                btn_managerlink.Text = dt.Rows(0).Item(6).ToString()
                txtbx_department.Text = dt.Rows(0).Item(3).ToString()
                txtbx_mobile.Text = dt.Rows(0).Item(8).ToString()
                txtbx_mail.Text = dt.Rows(0).Item(9).ToString()
                txtbx_statinfo.Text = f.getUserStatusInfo(Convert.ToInt64( _
                  DataGridView1.SelectedRows(0).Cells(0).Value))
 
                Try
                    If Convert.ToBoolean(dt.Rows(0).Item(11).ToString()) = True _
                      Then
                        'generate QR Code
                        qr_code_text = String.Empty
                        '******************************************************
                        ' *****************************************
                        qr_code_text = qr_code_text + "MECARD:N:" + _
                          txtbx_lastname.Text + ","
                        qr_code_text = qr_code_text + txtbx_firstname.Text + ";"
                        qr_code_text = qr_code_text + "TEL:" + txtbx_phone.Text _
                          + ";"
                        'qr_code_text = qr_code_text + "EMAIL:" + 
                        ' txtbx_mail.Text + ";"
 
 
                        '******************************************************
                        ' *****************************************
                        'show QR Code picture
                        GenerateQRCode(qr_code_text.ToString())
 
                        picbx_qrcode.Visible = True
                    Else
                        picbx_qrcode.Visible = False
                    End If
                Catch ex As Exception
                    picbx_qrcode.Visible = False
                End Try

Private Sub GenerateQRCode(ByVal qrText As String)
        Dim imgImage As Image
        Dim objQRCode As QRCodeEncoder = New QRCodeEncoder()
 
        Try
            objQRCode.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
            objQRCode.QRCodeScale = 3
            objQRCode.QRCodeVersion = 5
            objQRCode.QRCodeErrorCorrect = _
              ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q
            imgImage = objQRCode.Encode(qrText.ToString())
            picbx_qrcode.Image = imgImage
        Catch ex As Exception
 
        End Try
    End Sub

_________________________________________________________________________________

Systemintegrator der Spa? am Programmieren gefunden hat!
Bitte nicht hauen, wenn ich etwas Falsches, oder Quatsch von mir gebe ;)