[سؤال] listview اضافة عمود مخفى - نسخة قابلة للطباعة

كود :

Public Sub firendview(ByVal listview As ListView)

        Dim con As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-SNS2QF4;Initial Catalog=adduser;Integrated Security=True")

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Dim ds As New DataSet

        ds.Clear()

        Dim da As New SqlClient.SqlDataAdapter("select * from idfriends where (iduser=" & Form1.Label6.Text & ")" & "", con)

        Try

            listview.Items.Clear()

            Dim dt As New DataTable

            da.Fill(dt)



            Dim ImageList1 As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(32, 32)}

            listview.SmallImageList = ImageList1

            listview.LargeImageList = ImageList1



            For Each row As DataRow In dt.Rows

                Dim item As New ListViewItem(row.Item("idfriends").ToString.Trim)

                ImageList1.Images.Add(New ImageConverter().ConvertFrom(row.Item("imguser")))

                item.ImageIndex = ImageList1.Images.Count - 1

                item.ForeColor = Color.SteelBlue

                listview.Items.Add(item)

                Dim grp As ListViewGroup = New ListViewGroup("Online")

                listview.Groups.Add(grp)

                item.Group = listview.Groups(grp.Name)



            Next



        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "alert")



        End Try

       

    End Sub

PHP كود :

Private Sub listview_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles listview.SelectedIndexChanged
    Try
        textbox.Text = listview.SelectedItems(0).Tag
    Catch ex As Exception
        'MessageBox.Show(ex.Message)
    End Try
End Sub