منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
listview - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : listview (/showthread.php?tid=17402)



listview - Mohamed20 - 22-09-16

هل يمكن تغير هذا الون الازرق


RE: listview - صبري زينوبي - 22-09-16

(22-09-16, 07:43 AM)Mohamed20 كتب : هل يمكن تغير هذا الون الازرق
كود :
 ListView1.Items(0).BackColor = Color.Red



RE: listview - Mohamed20 - 22-09-16

(22-09-16, 04:07 PM)صبري زينوبي كتب :
(22-09-16, 07:43 AM)Mohamed20 كتب : هل يمكن تغير هذا الون الازرق
كود :
 ListView1.Items(0).BackColor = Color.Red


جزاك الله خير لاكن اخى هذا يغير لون الايتم انا ريدتغير الشريط الذى يحدد الايتم


RE: listview - Mohamed20 - 23-09-16

(22-09-16, 11:50 PM)HASAN6.0 كتب : قم بضبط الخاصيه OwnerDrow الى True , ثم اكتب الكود التالي

PHP كود :
Private Sub ListView1_DrawItem(sender As ObjectAs DrawListViewItemEventArgsHandles ListView1.DrawItem
        e
.DrawBackground()
 
       If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e
.Graphics.FillRectangle(Brushes.LightGreene.Bounds)
 
       End If
 
       Using b As New SolidBrush(e.Item.ForeColor)
 
           e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Item.Index)), e.Item.Fontbe.Bounds)
 
       End Using
        e
.DrawFocusRectangle()
 
   End Sub 
Wink
شكرآ لاكن هذه السطر 
         e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Item.Index)), e.Item.Font, b, e.Bounds)
لايمكن استخدامة مع listview



RE: listview - أسامة - 23-09-16

(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 ObjectAs DrawListViewItemEventArgsHandles ListView1.DrawItem
        e
.DrawBackground()
 
       If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e
.Graphics.FillRectangle(Brushes.LightGreene.Bounds)
 
       End If
 
       Using b As New SolidBrush(e.Item.ForeColor)
 
           e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Item.Index)), e.Item.Fontbe.Bounds)
 
       End Using
        e
.DrawFocusRectangle()
 
   End Sub 
Wink
شكرآ لاكن هذه السطر 
         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



RE: listview - أسامة - 23-09-16

الكود كامل اذا احتاجة احد الاخوة

كود :
   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



RE: listview - Mohamed20 - 23-09-16

(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

يعمل جيدآ لاكن فى بعد الاوقات يختفى الكلام