04-04-17, 12:00 AM
الكود التالى يقوم بإظهار الصورة من Listview فى PictureBox
المشكلة أنه عند عرض الصورة فى الـ PictureBox
تصبح جودتها سيئة عن الصورة الأصلية
كود :
Dim t As New DataTable
t.Load(dr)
If t.Rows.Count > 0 Then
For i As Integer = 0 To t.Rows.Count - 1
Dim bytes() As Byte = CType(t(i)("Picture"), Byte())
Dim memStream As MemoryStream = New MemoryStream(bytes)
Dim img As System.Drawing.Image
img = Image.FromStream(memStream)
ImageList1.Images.Add(img)
With ListView1
Dim lvi As New ListViewItem
lvi.ImageIndex = i
lvi.Text = t(i)("idnam")
lvi.Tag = t(i)("id")
.Items.Add(lvi)
End With
Next
End If
ولكم جزيل الشكر مقدما