السلام عليكم قومت و عمل كود يعرض رقم و صور ادخل listview و اريد
عرض id بشرط يكون مخفى و عند الضغط على الرقم يتم اظهر id داخل textbox
هذا هو الكود المستخدم الذى اريد التعديل عليه وشكرا ليكم
برجاء المساعدها
عرض id بشرط يكون مخفى و عند الضغط على الرقم يتم اظهر id داخل textbox
هذا هو الكود المستخدم الذى اريد التعديل عليه وشكرا ليكم
كود :
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
برجاء المساعدها
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ