بخصوص تنفيذ امر معين داخل قائمة

للتوضيح اكثر اذا مافي حدا فاهم انا بدي البرنامج يقارن النص الموجود في لنقل مثلا للتسهيل تكست بوكس ويقارن هذا النص بجميع الكابشنس captions للقوائم سواء فرعية او اساسية اذا كان الكابشن للقائمة يساوي النص الموجود في التكست بوكس فانه يجب ان بنفذ الكود الموجود في القائمة سواء كان مثلا عؤض تقرير او اطهار رسالة ايما كان الكود

up

الصراحة السؤال غير مفهوم وإذا بدنا نتحزر معك حزورة لأضعنا الوقت ويمكن ما يكون الجواب هو المطلوب

حطيت عناصر كثير لخبطتنا فيها وحسب ما فهمت أنك تريد بحث عن اسم وإذا قلت لك إستخدم FOR أو غيرها لقلتلي ماهو المقصود

يرجى إرفاق مثال صغير واضح لما تريد عمله

اولا شكرا على مرورك اخي عبد العزيز ...انا هلا حطيت الملف للتوضيح اكثر اكثر مع الصورة كمان

اتممى من كل اللي بيبعرفو انهم يساعدوني بالتعديل على الكود ....طبعا هذا الكود من api Guide

Menu.zip

up up up

أيضاً سؤالك غير مفهوم وملخبط

على كل حال يمكن تقصد هل الكود:

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = List1.Text
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = Text1 Then MsgBox List1.Text: Exit For
Next
End Sub

لم أنتبه على ملف الصورة في مرفقك ، كنت حطها من الاول

على كل حال أرجو أن يكون التالي هو المطلوب:

Private Sub List1_Click()
If List1.Text = "message" Then menu2_Click
End Sub

شكرا لك اخ عبدلعزيز

الشي الثاني الكود هذا ممكن يكون لقائمة وحدة ولكن انا عندي اكثر من 100 قائمة فرعية معقولة اعمل نفس الكود هذا .عشان هيك انا سألت السؤال ولاا الكود هذا معروف لدي وشكرا لك اخ عبد العزيز واتمنى التواصل معي ومن بقية الاخوة حتى اجد الحل حتى ولو بفكرة

طيب لماذا لا تستخدم إجراء sub في القوائم وتستعمله في البرنامج أيضاً

بارك الله فيك اخي عبد العزيز على التواصل وماقصرت الحمد لله المشكلة انحلت

If lv1.ListItems.Count = 0 Then
Exit Sub
End If
On Error GoTo err
Me.MousePointer = vbHourglass
ind = lv1.SelectedItem.Index

For Each m In mdiPOSI.Controls
If TypeOf m Is Menu Then
S = m.Caption
If m.Caption <> "-" Then
If m.Caption = lv1.ListItems.item(ind).Text Then
N = m.Name
If m.Enabled = True Then
CallByName mdiPOSI, m.Name & "_Click", VbMethod		   هنا الحل في هذه الجملة 
Else
Me.MousePointer = vbNormal
End If
End If
End If
End If
Next

Me.MousePointer = vbNormal
Exit Sub

err:
msgbox err.description

وهنا ك خطوة مهمة جدا وهي تغيير كلمة private الى public لجميع القوائم والا لن يعمل الكود

الحمد لله أنحلت مشكلتك