[مخالف - عنوان غير مناسب :]مساعدة في ال listbox

الأخ الكريم/الأخت الكريمةالسلام عليكم ورحمة الله وبركاتهمرحباً بكم في منتدى الفريق العربي للبرمجةتأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات. فقرة اختيار عنوان مناسب لمحتوى الموضوع.قواعد طرح المشاركات/index.php?showtopic=29343شاكرين لكم حُسن تعاونكم

عذراً الموضوع مغلقللأسئلة يجب تحديد نوع الموضوع "سؤال" وتحديد حد أدنى من النقاط المجانية لتمنح لصاحب الإجابة الصحيحة، وإلا سيغلق موضوعك فوراً وسيحذف بعد ذلك حتى لو تمت الإجابة عليه.لمزيد من المعلومات حول نظام النقاط:http://blog.arabteam2000.com/?tag=نظام-النقاط

عذراً الموضوع مغلقللأسئلة يجب تحديد نوع الموضوع "سؤال" وتحديد حد أدنى من النقاط المجانية لتمنح لصاحب الإجابة الصحيحة، وإلا سيغلق موضوعك فوراً وسيحذف بعد ذلك حتى لو تمت الإجابة عليه.لمزيد من المعلومات حول نظام النقاط:http://blog.arabteam2000.com/?tag=نظام-النقاط

اخي العزيز

هل تريد عند الاختيار

او لون الخط عند الاختيار

او تريد عرض اني في وقت استعراض البيانات

واذا كنت تريد الاخير فالافضل اختر الشبكة(grid)  لان القائمة هي عبارة عن شريط او عمود عرض موحد كما في القائمة المنسدلة

واتمنى التوضيح اكثر

تحياتي للجميع

اخي الكريم 

شكرا لسرعة الرد

نعم اريد عرض آني في وقت استعراض البيانات

ولامشكلة في استخدام الgrid بدلا من ال listbox

اخي العزيز

يمكنك عملها عن طريق

Form.Grid.SetAll()

وبستخدام الخصائص DynamicBackColor   اذا اردت لكل صف لون وبشرطك اذا كان .T. او العكس اليك المثال الافتراضي في الفيجوال فوكس برو وهو يقوم بتغيير صفوف الكرد

انسخ الكود وقم بالتشغيل بواسطة برنامج او نافذة الاوامر

CLOSE ALL  && Close tables and databases
OPEN DATABASE (HOME(2) + 'Data\testdata')

USE customer  IN 0  && Opens Customer table

frmMyForm = CREATEOBJECT('Form')  && Create a form
frmMyForm.Closable = .f.  && Disable the window pop-up menu

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')  && Add Command button
frmMyForm.AddObject('grdGrid1','Grid')  && Add Grid control

frmMyForm.grdGrid1.Left = 25  && Adjust Grid position

frmMyForm.grdGrid1.SetAll("DynamicBackColor", "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255), RGB(0,255,0))", "Column")  && Alternate white and green records

frmMyForm.grdGrid1.Visible = .T.  && Grid control visible
frmMyForm.cmdCommand1.Visible =.T.  && "Quit" Command button visible
frmMyForm.grdGrid1.Column1.Header1.Caption = 'Customer ID'

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmdBtn AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 210  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close form
      CLOSE ALL  && Close table and database
ENDDEFINE

وانا جاهز لاي استفسار

واذا لم تصلك الفكرة ارفق لي جدول من اختيارك واذكر شرط التلوين على افتراض

وان شاء الله خيراً

تحياتي للجميع

ممنون استاذ    جاري التجربة

انتظر النتائج

السلام عليكم

اخي الكريم اسد العراق

الكود الذي كتبته بردك على سؤالي يعمل بشكل جيد وهو موجود  نصا  في ال help للفجوال التاسع .

لكنه ليس ما طلبت بسبب انه يغير لون الخلفية للقيود حسب رقم القيد recno() اذا كان عدد زوجي او فردي

حاولت تغييره ليعمل حسب حقل logical الموجد في الملف باسم gender  ولم انجح .

المشروع الصغير موجود في المرفقات فيه جدول وفورم والكود الذي اقترحته علي موجود في الحدث activate للفورم

وجزاك الله خيرا لجهودك وانا بانتظار ردك  الكريم

les1.rar

جزاك الله خيرا   وجعله في ميزان حسناتك