منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أسامة

أسامة