+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] تلوين سطر أو خانة في الليست فيو حسب قيم في عمود (/showthread.php?tid=19301)
تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - grimpmaster - 18-02-17
السلام عليكم و رحمة الله
أرجو المساعدة من الخبراء في تلوين سطور أو خانات في listview حسب قيم تكون على عمود ثابت في ذات الليست فيو
مثال : إذا كانت القيمة :enabled تتلون بالأحمر و إذا كانت Disabled تتلون بالأزرق.
شكرا على تعاونكم المسبق.
RE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - Ahmed_Mansoor - 20-02-17
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , أرفق مثال مع قاعدة البيانات ليتم التعديل عليه .
RE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - grimpmaster - 20-02-17
[attachment=13227]
شكرا لك أستاذنا الفاضل
إذا أمكن التعديل على الملف المرفق ,و أعطاكم الله دوام الصحة و العافية,
RE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - grimpmaster - 26-02-17
السلام عليكم و رحمة الله و بركاته
بعد محاولات عديدة لم أتمكن من تلوين سطر في الليستفيو حسب قيم العمود 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
NextRE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - grimpmaster - 27-02-17
السلام عليكم إخواني
لقد تم الحل من طرف بعض الإخوة في منتدى أخر و إليكم الكود المتعلق بتلوين الكتابة في سطر الليستفيو و هذا للمشاركة و الإستفادة
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
RE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - Ahmed_Mansoor - 27-02-17
وعليكم السلام و رحمة الله و بركاته
أهلا أخي الكريم , أرجوا المعذره على التأخير بالرد وذلك بسبب الإنشغال , هذا حل بطريقة أخرى إن رغبت به .
RE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - grimpmaster - 27-02-17
بارك الله فيك أستاذنا الفاضل و أدم الله عليك الصحة و العافية,
بعد التجريب , و الله يظهر لي أنه أحسن حل
شكرا لك مرة أخرى,
RE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - sendbad100 - 27-02-17
دائما مبد ع استاذ / احمد منصور بارك الله فيك
وسهل لك امرك وعانك في الدنيا والاخرة
RE: تلوين سطر أو خانة في الليست فيو حسب قيم في عمود - grimpmaster - 27-02-17
السلام عليكم
و هذا حل أخر من طرف بعض اللإخوة المبرمجين لتلوين خلفية السطر لتعم الفائدة