السلام عليكم و رحمة الله
أرجو المساعدة من الخبراء في تلوين سطور أو خانات في listview حسب قيم تكون على عمود ثابت في ذات الليست فيو
مثال : إذا كانت القيمة :enabled تتلون بالأحمر و إذا كانت Disabled تتلون بالأزرق.
شكرا على تعاونكم المسبق.
السلام عليكم و رحمة الله و بركاته
بعد محاولات عديدة لم أتمكن من تلوين سطر في الليستفيو حسب قيم العمود 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
27-02-17, 12:04 AM (آخر تعديل لهذه المشاركة : 27-02-17, 12:09 AM {2} بواسطة grimpmaster.)
السلام عليكم إخواني
لقد تم الحل من طرف بعض الإخوة في منتدى أخر و إليكم الكود المتعلق بتلوين الكتابة في سطر الليستفيو و هذا للمشاركة و الإستفادة
Dim I AsInteger, K%
For I = 1To lvStudentInfo.ListItems.Count For K = 1To6 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 EndIf Next K Next I
lvStudentInfo.Refresh EndSub