20-02-15, 01:40 AM
اريد تغير 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