22-09-16, 07:43 AM
22-09-16, 04:07 PM
(22-09-16, 07:43 AM)Mohamed20 كتب : [ -> ]هل يمكن تغير هذا الون الازرق
كود :
ListView1.Items(0).BackColor = Color.Red22-09-16, 11:36 PM
23-09-16, 01:26 AM
(22-09-16, 11:50 PM)HASAN6.0 كتب : [ -> ]قم بضبط الخاصيه OwnerDrow الى True , ثم اكتب الكود التاليشكرآ لاكن هذه السطر
PHP كود :
Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.LightGreen, e.Bounds)
End If
Using b As New SolidBrush(e.Item.ForeColor)
e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Item.Index)), e.Item.Font, b, e.Bounds)
End Using
e.DrawFocusRectangle()
End Sub
e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Item.Index)), e.Item.Font, b, e.Bounds)
لايمكن استخدامة مع listview
23-09-16, 03:27 AM
(23-09-16, 02:24 AM)HASAN6.0 كتب : [ -> ](23-09-16, 01:26 AM)Mohamed20 كتب : [ -> ](22-09-16, 11:50 PM)HASAN6.0 كتب : [ -> ]قم بضبط الخاصيه OwnerDrow الى True , ثم اكتب الكود التاليشكرآ لاكن هذه السطر
PHP كود :
Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.LightGreen, e.Bounds)
End If
Using b As New SolidBrush(e.Item.ForeColor)
e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Item.Index)), e.Item.Font, b, e.Bounds)
End Using
e.DrawFocusRectangle()
End Sub
e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Item.Index)), e.Item.Font, b, e.Bounds)
لايمكن استخدامة مع listview
غير كلمة listbox الى listview
لا اعتقد ان يوجد حدث GetItemText للست فيو هذا مثال اخر
كود :
Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.LightGreen, e.Bounds)
End If
e.DrawText(TextFormatFlags.Default)
e.DrawFocusRectangle()
End Sub23-09-16, 05:59 AM
الكود كامل اذا احتاجة احد الاخوة
كود :
Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
e.DrawFocusRectangle()
End Sub
Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
e.DrawDefault = True
e.DrawBackground()
End Sub
Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
e.DrawText(TextFormatFlags.Default)
End Sub23-09-16, 11:57 PM
(23-09-16, 05:59 AM)أسامة كتب : [ -> ]الكود كامل اذا احتاجة احد الاخوة
كود :
Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
End If
e.DrawFocusRectangle()
End Sub
Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
e.DrawDefault = True
e.DrawBackground()
End Sub
Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
e.DrawText(TextFormatFlags.Default)
End Sub
يعمل جيدآ لاكن فى بعد الاوقات يختفى الكلام
