+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] ListView (/showthread.php?tid=11487)
ListView - أسامة - 20-02-15
اريد تغير ColumnHeader Color
كود :
Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
e.Graphics.FillRectangle(Brushes.Orange, e.Bounds)
Dim x As Integer = e.Bounds.Right - 2
Dim y1 As Integer = e.Bounds.Top
Dim y2 As Integer = e.Bounds.Bottom
e.DrawText(TextFormatFlags.EndEllipsis Or TextFormatFlags.Left Or TextFormatFlags.SingleLine Or TextFormatFlags.VerticalCenter)
e.Graphics.DrawLine(Pens.Black, x, y1, x, y2)
e.Graphics.DrawLine(Pens.LightGray, x + 1, y1, x + 1, y2)
e.DrawDefault = False
e.DrawBackground()
End SubRE: ListView - أسامة - 20-02-15
(20-02-15, 03:30 AM)ameerah كتب : أولا: عليك تفعيل الخاصية OwnerDraw أي جعلها Trueشكرآ الكود يعمل الان
ثانياً: أحذف السطر e.DrawBackground من الكود المرفق في موضوعك
ثالثاً: ستحتاج للأكواد التالية:
كود :
Private Sub ListView1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewItemEventArgs) Handles ListView1.DrawItem
e.DrawDefault = True
End Sub
Private Sub ListView1_DrawSubItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
e.DrawDefault = True
End Sub