كود معرفة كليك الفأرةعلى أي قائمة أوأمر بالبرنامج؟

و ليه تربط الموضوع بالفأرة؟، الفأرة ليس لها من الامر في شيء هنا ... و لكن جرب الفكرة الاتية

private sub picture1_click()

' suppose that this is the right answer

msgbox("answer is true")

هل هي صعبة؟

اقتباس

أود عمل برنامج تعليمي فيه أسئلة لليوزر

فإذا اختار قائمة معينة تظهر له مسج بأن اجابته صحيحه أم لا

اذا كنت تقصد ليست بوكس او كومبو بوكس فاستخدم خاصية Text التى تخبرك بالعنصر المحدد فى القائمة وان لم يكن هذا قصدك فأرجو التوضيح قليلاً :rolleyes:

مرحبا..

romantic_boy

ghost2010

شكرا على الرد

بس لا ما فهتووني

قصدي هو مثلا انا عندي فورم فيه قوائم اوكي؟

اذا اليوزر اختار قائمة اسمها " مساعدة" بمعنى ضغط عليها كليك..

ابي البرنامج يطلع مسج مثلا "لقد اخترت قائمة مساعدة"

فهمتووني

بليز ساعدوني :unsure:

حسنا اذا كنت قد فهمتك فيجب اولا عمل هذه القوائم كعناصر مصفوفة وليكن اسم المصفوفة هو Test ثم كتابة الكود التالى

Private Sub Test_Click(Index As Integer)
MsgBox "لقد اخترت قائمة " & Test(Index).Caption 
End Sub

تحياتى لك :rolleyes:

مرحبا

GHOST2010

بصراحة اشكرك ويعطيك الف عافية

الله يعطيك على قد اهتمامك تسلم

بخصوص الكود

لسا ما جربته

ادور على دروس عمل قوائم

وان شالله بجربه وارد عليك

ترى انا مرره بيجينار

اولا لاداعى للشكر فهذا واجبى

ثانيا طريقة عمل القوائم كالاتى:

1-اضغط CTRL+E للذهاب الى محرر القوائم او افتحه من قائمة TOOLS

2-اكتب عنوان القائمة واسمها

3-عند الانتهاء من كل القوائم اضغط OK للخروج من المحرر

وفى طلبك انت اجعل كل القوائم لها نفس الاسم وفى مربع INDEX حدد قيم من 0 الى عدد القوائم-1 ثم جرب الكود وسيعمل :rolleyes: