[أسامة]

اريد تغير 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 Sub

[أسامة]

(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

شكرآ الكود يعمل الان