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

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

.rar   Listview.rar (الحجم : 190.46 ك ب / التحميلات : 73)
شكرا لك أستاذنا الفاضل
إذا أمكن التعديل على الملف المرفق ,و أعطاكم الله دوام الصحة و العافية,
الرد }}}}
تم الشكر بواسطة: 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 ك ب / التحميلات : 38)
الرد }}}}
#7
بارك الله فيك أستاذنا الفاضل و أدم الله عليك الصحة و العافية,
بعد التجريب , و الله يظهر لي أنه أحسن حل
شكرا لك مرة أخرى,
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_alzubidy
#8
دائما مبد ع استاذ / احمد منصور بارك الله فيك
وسهل لك امرك وعانك في الدنيا والاخرة
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
#9
السلام عليكم
و هذا حل أخر من طرف بعض اللإخوة المبرمجين لتلوين خلفية السطر لتعم الفائدة


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعديل على الاختيار من الليست فيو الحزين اوى 2 26 منذ 2 ساعة مضت
آخر رد: awidan76
  تلوين اسطر في تقرير داتا ريبورت gonm64 4 71 16-01-18, 09:25 PM
آخر رد: gonm64
  [سؤال] هل يمكن جمع عمود فى datagride mohamed125 1 52 14-01-18, 11:10 PM
آخر رد: محمد ئوزبك
  حساب عمود ب هيكس ديسمال wolf1120 0 26 09-01-18, 07:52 PM
آخر رد: wolf1120
  التعديل على المرفق لمعرفة هل تم انشاء عمود في قاعدة البيانات ام لا w123eg 2 90 06-01-18, 01:20 AM
آخر رد: w123eg
  نقل محتوى الليست حسن الغزي 1 48 18-11-17, 02:31 PM
آخر رد: الاصيله
  مشكلة في حفظ البيانات عن طريق الليست بوكس مصمم هاوي 3 318 28-04-17, 05:23 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 535 16-04-17, 08:28 PM
آخر رد: larbihamri
  [ تمّ الحل ] : طباعة محتوى الليست فيو عبد العزيز البسكري 8 463 13-02-17, 11:08 PM
آخر رد: عبد العزيز البسكري
Photo اريد مساعدة في جمع خليتين في عمود واحد يحملان نفس التاريخ عمر سالم 10 749 02-02-17, 01:58 AM
آخر رد: السيد الغالي

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


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