+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة واحدة على انتهاء المشروع (/showthread.php?tid=19220)
مشكلة واحدة على انتهاء المشروع - Mohamed20 - 13-02-17
المشكلة فى اداه listview view largeicon
اريد استخدام خاصية drawitem لاضافة بعض الصور لان imagelist يعلق المشروع عند اضافة الكثير من items
كود :
Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
Dim imageRect = New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height)
Dim img As String = Application.StartupPath + "\Data\" & e.Item.SubItems(1).Text & ".png"
If IO.File.Exists(img) Then
e.Graphics.DrawImage(Image.FromFile(img), imageRect)
Else
e.Graphics.DrawImage(Image.FromFile(Application.StartupPath & "\Data\error.png"), imageRect)
End If
e.Graphics.DrawString(e.Item.Text, e.Item.Font, New SolidBrush(e.Item.ForeColor), (e.Item.Bounds.Location.X + 5), e.Item.Bounds.Location.Y + 35)
End Sub