الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تغيير لون الشريط فى listbox

بدأه mido2010bona في 28 يناير 2013 · 3 رد · 594 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

                                                               بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاتة

دة كود لتغيير لون الشريط فى الفيجوال بيسك

بصراحة انا كنت بسأل علية فى الاول لكنى عرفتة والحمد لله وحبيت ان كل الناس تستفيد من الكود دة

 Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        e.DrawBackground()
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e.Graphics.FillRectangle(Brushes.GreenYellow, e.Bounds)


        End If
        Using b As New SolidBrush(e.ForeColor.Blue)
            If e.Index = -1 Then
            Else
                e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds)
            End If





        End Using

        e.DrawFocusRectangle()
    End Sub
3
#2

يعطيك العافية أخي

#3

مشكور ولكن في خطأ

 

  Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        e.DrawBackground()
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e.Graphics.FillRectangle(Brushes.GreenYellow, e.Bounds)
 
 
        End If
        Using b As New SolidBrush(Color.NavajoWhite)
            If e.Index = -1 Then
            Else
                e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds)
            End If
 
 
 
 
 
        End Using
 
        e.DrawFocusRectangle()
    End Sub
#4

جزاك الله خير على الكود

:)  :)  :)  شكرا لكل من علمني حرفا :)  :)  :)


مواضيع مشابهة