(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
(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 Sub
23-09-16, 05:59 AM (آخر تعديل لهذه المشاركة : 23-09-16, 05:59 AM {2} بواسطة أسامة.)
الكود كامل اذا احتاجة احد الاخوة
كود :
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
(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