السلام عليكم ورحمة الله وبركاته
يا جماعة أنا أستخدم ListBox بها عدة أسماء
و عند الأشارة إلى أي عنصر من عناصر ListBox
بالزر الأيمن تنسدل قائمة .
Me.PopupMenu show1
المطلوب هو إذا لم يكن هناك عنصر محدد في القائمة List
لا تظهر القامة المنسدلة بالزر الأيمن حتى يتم اختيار عنصر من عناصر القائمة List .
وجزاكم الله خيراً .
استخدم جملة
select case Index
ثم ضع شرط في فهرسة المعنصر المطلوب أظهار القائمة له
زي كذا
if listitme(index) then
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةالسلام عليكم ...
هل يفيدك الإجراء التالي :
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then If List1.Text = "" Then 'Do Nothing Else PopupMenu mnu End If End If End Sub
اذا لم يكن هناك عنصر محدد فى الليست بوكس فان الـ ListIndex =-1
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
جزاكم الله كل خير
وبارك فيكم .
هذا الموضوع مغلق.