السلام عليكم و رحمة الله
أرجو المساعدة من الخبراء في تلوين سطور أو خانات في listview حسب قيم تكون على عمود ثابت في ذات الليست فيو
مثال : إذا كانت القيمة :enabled تتلون بالأحمر و إذا كانت Disabled تتلون بالأزرق.
شكرا على تعاونكم المسبق.
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , أرفق مثال مع قاعدة البيانات ليتم التعديل عليه .
[
attachment=13227]
شكرا لك أستاذنا الفاضل
إذا أمكن التعديل على الملف المرفق ,و أعطاكم الله دوام الصحة و العافية,
السلام عليكم و رحمة الله و بركاته
بعد محاولات عديدة لم أتمكن من تلوين سطر في الليستفيو حسب قيم العمود 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
السلام عليكم إخواني
لقد تم الحل من طرف بعض الإخوة في منتدى أخر و إليكم الكود المتعلق بتلوين الكتابة في سطر الليستفيو و هذا للمشاركة و الإستفادة
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
وعليكم السلام و رحمة الله و بركاته
أهلا أخي الكريم , أرجوا المعذره على التأخير بالرد وذلك بسبب الإنشغال , هذا حل بطريقة أخرى إن رغبت به .
بارك الله فيك أستاذنا الفاضل و أدم الله عليك الصحة و العافية,
بعد التجريب , و الله يظهر لي أنه أحسن حل
شكرا لك مرة أخرى,
دائما مبد ع استاذ / احمد منصور بارك الله فيك
وسهل لك امرك وعانك في الدنيا والاخرة
السلام عليكم
و هذا حل أخر من طرف بعض اللإخوة المبرمجين لتلوين خلفية السطر لتعم الفائدة