[grimpmaster]

السلام عليكم و رحمة الله
أرجو المساعدة من الخبراء في تلوين سطور أو خانات في listview حسب قيم  تكون على عمود ثابت في ذات الليست فيو
مثال : إذا كانت القيمة :enabled تتلون بالأحمر و إذا كانت Disabled تتلون بالأزرق.
شكرا على تعاونكم المسبق.

[Ahmed_Mansoor]

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

أهلا بك أخي الكريم , أرفق مثال مع قاعدة البيانات ليتم التعديل عليه .

[grimpmaster]

  Listview.rar (الحجم : 190.46 ك ب / التحميلات : 108)
شكرا لك أستاذنا الفاضل
إذا أمكن التعديل على الملف المرفق ,و أعطاكم الله دوام الصحة و العافية,

[grimpmaster]

السلام عليكم و رحمة الله و بركاته
بعد محاولات عديدة لم أتمكن من تلوين سطر في الليستفيو حسب قيم العمود 6  ذو القيمة  "Enabled" أو "desabled"
لكن إستطعت تلويت الكلمة في العمود , و ودت مشاركة الكود في إنتظار إيجاد الحل من الخبراء.

كود :

Dim i As Integer
Dim j As Integer
  For i = 1 To lvStudentInfo.ListItems.Count
      j = 6
If lvStudentInfo.ListItems(i).ListSubItems(j).Text = "Enabled" Then
        lvStudentInfo.ListItems(i).ListSubItems(j).ForeColor = vbRed
        
Else
      If lvStudentInfo.ListItems(i).ListSubItems(j).Text = "Desabled" Then
        lvStudentInfo.ListItems(i).ListSubItems(j).ForeColor = vbBlue
 
Else
        lvStudentInfo.Refresh
   
   End If
   End If
  Next

[grimpmaster]

---

السلام عليكم إخواني
لقد تم الحل من طرف بعض الإخوة في منتدى أخر و إليكم الكود المتعلق بتلوين الكتابة في سطر الليستفيو و هذا للمشاركة و الإستفادة

Dim I As Integer, K%
 
   For I = 1 To lvStudentInfo.ListItems.Count
     For K = 1 To 6
       If lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Enabled" Then
               lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbRed
               lvStudentInfo.ListItems(I).ForeColor = vbRed
 
       ElseIf lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Disabled" Then
               lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbBlue
               lvStudentInfo.ListItems(I).ForeColor = vbBlue
       End If
     Next K
   Next I
   lvStudentInfo.Refresh
End Sub

[Ahmed_Mansoor]

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

أهلا أخي الكريم , أرجوا المعذره على التأخير بالرد وذلك بسبب الإنشغال , هذا حل بطريقة أخرى إن رغبت به .

[grimpmaster]

بارك الله فيك أستاذنا الفاضل و أدم الله عليك الصحة و العافية,
بعد التجريب , و الله يظهر لي أنه أحسن حل
شكرا لك مرة أخرى,

[sendbad100]

دائما مبد ع استاذ / احمد منصور بارك الله فيك
وسهل لك امرك وعانك في الدنيا والاخرة

[grimpmaster]

السلام عليكم
و هذا حل أخر من طرف بعض اللإخوة المبرمجين لتلوين خلفية السطر لتعم الفائدة