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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء التعديل على المثال المرفق خاص بعرض الاجمالي في الليست فيو w123eg 1 29 17-02-18, 08:52 AM
آخر رد: Amir_alzubidy
  تلوين اسطر في تقرير داتا ريبورت gonm64 5 100 26-01-18, 12:20 PM
آخر رد: awidan76
  التعديل على الاختيار من الليست فيو الحزين اوى 5 95 23-01-18, 04:01 PM
آخر رد: الحزين اوى
  [سؤال] هل يمكن جمع عمود فى datagride mohamed125 1 84 14-01-18, 11:10 PM
آخر رد: محمد ئوزبك
  حساب عمود ب هيكس ديسمال wolf1120 0 38 09-01-18, 07:52 PM
آخر رد: wolf1120
  التعديل على المرفق لمعرفة هل تم انشاء عمود في قاعدة البيانات ام لا w123eg 2 107 06-01-18, 01:20 AM
آخر رد: w123eg
  نقل محتوى الليست حسن الغزي 1 70 18-11-17, 02:31 PM
آخر رد: الاصيله
  مشكلة في حفظ البيانات عن طريق الليست بوكس مصمم هاوي 3 374 28-04-17, 05:23 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 603 16-04-17, 08:28 PM
آخر رد: larbihamri
  [ تمّ الحل ] : طباعة محتوى الليست فيو عبد العزيز البسكري 8 524 13-02-17, 11:08 PM
آخر رد: عبد العزيز البسكري

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


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