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

كيف يتم تلوين items داخل الكمبوبوكس كل عنصر بلون

بدأه noor-2006 في 23 يناير 2011 · 3 رد · 1,109 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سلام عليكم

حاولت وبحثت في اكثر المواقع الاجنبية لكني لم اجد ضالتي

وهي

لدي كمبوبكس مملؤ بالعناصر

ضعيف

جيد

جيدجدا

ممتاز

اريد تلوين الخط للعناصر كالتالي

ضعيف بلون احمر

جيد اصفر

جيدجدا اخضر

ممتاز ازرق

تم تعديل هذه المشاركة بواسطة noor-2006 في 23 يناير 2011 في 12:46

#2

انا كمان محتاجة اعرف الرد

#3

استخدم 

Private Sub ColorDataGridView(ByVal gv As DataGridView)
        Dim style1 As New DataGridViewCellStyle
        With style1
            .BackColor = Color.LightGreen
            .ForeColor = Color.Black
        End With

        Dim style2 As New DataGridViewCellStyle
        With style2
            .BackColor = Color.White
            .ForeColor = Color.Black
        End With

        For i As Int32 = 0 To gv.RowCount - 1
            If i Mod 2 = 0 Then
                gv.Rows(i).DefaultCellStyle = style1
            End If
        Next
        'For i As Int32 = 0 To gv.RowCount - 1
        '    If IsDBNull(gv("dgfiles", i).Value) Then
        '        gv.Rows(i).DefaultCellStyle = style1
        '    Else
        '        gv.Rows(i).DefaultCellStyle = style2
        '    End If
        'Next
    End Sub

و في الحدث 

    Private Sub dgvSearch_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvSearch.CellFormatting
        Call ColorDataGridView(sender)
    End Sub

و بالتوفيق

تم تعديل هذه المشاركة بواسطة الفريد في 24 أبريل 2011 في 02:07

#4

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

اختي جرب الكود التالي


Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
Dim brush As SolidBrush
Select Case e.Index
Case 0
brush = New SolidBrush(Color.Blue)
Case 1
brush = New SolidBrush(Color.Yellow)
Case 2
brush = New SolidBrush(Color.LightGreen)
Case 3
brush = New SolidBrush(Color.Red)
End Select
Dim text As String = CType(sender, ComboBox).Items(e.Index).ToString()
e.Graphics.DrawString(text, CType(sender, Control).Font, brush, e.Bounds.X, e.Bounds.Y)
End Sub
طبعاً لن يتنفذ الكود ابداً إلا بعد ضبط الخاصيه DrawMode إلى OwnerDrawFixed أو OwnerDrawVariable

      
      

      
.:: Wish to become better and better ::.

    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…