29-03-21, 10:30 PM
السلام عليكم ما هو الخطاء فى هذا الكود حيث قومت بعرض الصورة و اسم المستخدام بشرط ان يكون تم تسجيل الدخول و لكن لا يظهر لى اسم المستخدام ولا الصور الشخصية
كود :
ListView1.View = View.Tile
ListView1.LargeImageList = ImageList1
ListView1.RightToLeft = RightToLeft.No
ListView1.RightToLeftLayout = True
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 data As New SqlClient.SqlDataAdapter("select * from idfriends where (status='SignIn')" & "", con)
Dim cm As New System.Data.SqlClient.SqlCommandBuilder(data)
If data.Fill(ds, "idfriends") Then
Dim picbyte As Byte()
Dim SysMom As New MemoryStream
ds.Clear()
ListView1.LargeImageList = ImageList1
data.Fill(ds, "idfriends")
ListView1.Items.Add(ds.Tables("idfriends").Rows(0).Item(0))
picbyte = ds.Tables("idfriends").Rows(0).Item(1)
SysMom.Write(picbyte, 0, picbyte.Length)
Dim img As System.Drawing.Image
img = Image.FromStream(SysMom)
ImageList1.Images.Add(img)
End If
If con.State = ConnectionState.Open Then con.Close()
End Sub