تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] تلوين سطر أو خانة في الليست فيو حسب قيم في عمود
#1
السلام عليكم و رحمة الله
أرجو المساعدة من الخبراء في تلوين سطور أو خانات في listview حسب قيم  تكون على عمود ثابت في ذات الليست فيو
مثال : إذا كانت القيمة :enabled تتلون بالأحمر و إذا كانت Disabled تتلون بالأزرق.
شكرا على تعاونكم المسبق.
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , أرفق مثال مع قاعدة البيانات ليتم التعديل عليه .
الرد
تم الشكر بواسطة: عبد العزيز البسكري , Amir_Alzubidy
#3

.rar   Listview.rar (الحجم : 190.46 ك ب / التحميلات : 97)
شكرا لك أستاذنا الفاضل
إذا أمكن التعديل على الملف المرفق ,و أعطاكم الله دوام الصحة و العافية,
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy
#4
السلام عليكم و رحمة الله و بركاته
بعد محاولات عديدة لم أتمكن من تلوين سطر في الليستفيو حسب قيم العمود 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
الرد
#5

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

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 , Amir_Alzubidy
#6
وعليكم السلام و رحمة الله و بركاته

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


الملفات المرفقة
.rar   Listview_1.rar (الحجم : 188.27 ك ب / التحميلات : 60)
الرد
#7
بارك الله فيك أستاذنا الفاضل و أدم الله عليك الصحة و العافية,
بعد التجريب , و الله يظهر لي أنه أحسن حل
شكرا لك مرة أخرى,
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#8
دائما مبد ع استاذ / احمد منصور بارك الله فيك
وسهل لك امرك وعانك في الدنيا والاخرة
الرد
#9
السلام عليكم
و هذا حل أخر من طرف بعض اللإخوة المبرمجين لتلوين خلفية السطر لتعم الفائدة


الملفات المرفقة
.zip   BackColor.zip (الحجم : 3.47 ك ب / التحميلات : 42)
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض عدد الحقول المملوؤه في عمود MSHFLEXGRID داخل مربع نص دهشوش1 1 195 25-01-19, 05:20 AM
آخر رد: عبدالله الصافي
  طريقة جمع درجات عمود لكل طالب مصمم هاوي 9 562 04-09-18, 03:49 PM
آخر رد: مصمم هاوي
  تلوين صفوف في أداة listview dr.mostashar 0 188 30-08-18, 02:52 PM
آخر رد: dr.mostashar
  [vb6.0] تعديل عرض البيانات من الاكسيل الى الليست فيو w123eg 0 247 25-04-18, 10:17 PM
آخر رد: w123eg
  برجاء التعديل على المثال المرفق خاص بعرض الاجمالي في الليست فيو w123eg 1 230 17-02-18, 08:52 AM
آخر رد: Amir_Alzubidy
  تلوين اسطر في تقرير داتا ريبورت gonm64 5 310 26-01-18, 12:20 PM
آخر رد: awidan76
  التعديل على الاختيار من الليست فيو الحزين اوى 5 360 23-01-18, 04:01 PM
آخر رد: الحزين اوى
  [سؤال] هل يمكن جمع عمود فى datagride mohamed125 1 304 14-01-18, 11:10 PM
آخر رد: محمد ئوزبك
  حساب عمود ب هيكس ديسمال wolf1120 0 155 09-01-18, 07:52 PM
آخر رد: wolf1120
  التعديل على المرفق لمعرفة هل تم انشاء عمود في قاعدة البيانات ام لا w123eg 2 293 06-01-18, 01:20 AM
آخر رد: w123eg

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم