[asmarsou]

(07-08-22, 08:59 PM)ابراهيم ايبو كتب :

السلام عليكم ورحمة الله وبركاته

اخي الكريم Asmarsou

اولا بارك الله فيك ولك 

ثانيا شكرا لك على الاطراء الجميل وهذا من ذوقك الرفيع

ثالثا كلنا نمر في معوقات برمجية بالرغم من أن الكود يكون قريبا منا لكننا نتوه احيانا عنه

واخيرا اقول ليس علم الاستاذ هو نهاية العلم بل هو جزء يسير منه وكل طالب علم مخلص يقينا سوف يتخطى ماتعلمه من اساتذته بفضل الله واجتهاده ومثابرته 

واعمال عقله وخزينته العلمية وهذا هو ايضا مبدئي وانت ياأخي asmarsou من المثابرين والمتابعين والمتفانين 

وادعو الله ان ينير لك طريقك البرمجي ونراك في مصاف المبرمجين ان شاء الله

سأعدل الكود حتر يناسب ماأنا بصدده

شكرا لك مرة أخرى

الان اصبح الكود على النحو التالي

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       For Each mainmenu As ToolStripMenuItem In Me.MenuStrip1.Items
           ' اسماء القوائم
           ListBox1.Items.Add(mainmenu.Text)

           For Each item As ToolStripItem In mainmenu.DropDownItems
               ' اسماء البنود في الوائم
               If item.Text = "" Then
                   item.Text = "-------------"
               End If
               ListBox2.Items.Add(item.Text)

               If TypeOf (item) Is ToolStripMenuItem Then
                   For Each menu As ToolStripItem In DirectCast(item, ToolStripMenuItem).DropDownItems
                     
                       ListBox3.Items.Add(menu.Text)
                   Next
               End If
           Next

       Next
   End Sub

و فيك بارك الله استاذ

---

(07-08-22, 08:59 PM)ابراهيم ايبو كتب :

السلام عليكم ورحمة الله وبركاته

اخي الكريم Asmarsou

اولا بارك الله فيك ولك 

ثانيا شكرا لك على الاطراء الجميل وهذا من ذوقك الرفيع

ثالثا كلنا نمر في معوقات برمجية بالرغم من أن الكود يكون قريبا منا لكننا نتوه احيانا عنه

واخيرا اقول ليس علم الاستاذ هو نهاية العلم بل هو جزء يسير منه وكل طالب علم مخلص يقينا سوف يتخطى ماتعلمه من اساتذته بفضل الله واجتهاده ومثابرته 

واعمال عقله وخزينته العلمية وهذا هو ايضا مبدئي وانت ياأخي asmarsou من المثابرين والمتابعين والمتفانين 

وادعو الله ان ينير لك طريقك البرمجي ونراك في مصاف المبرمجين ان شاء الله

سأعدل الكود حتر يناسب ماأنا بصدده

شكرا لك مرة أخرى

الان اصبح الكود على النحو التالي

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       For Each mainmenu As ToolStripMenuItem In Me.MenuStrip1.Items
           ' اسماء القوائم
           ListBox1.Items.Add(mainmenu.Text)

           For Each item As ToolStripItem In mainmenu.DropDownItems
               ' اسماء البنود في الوائم
               If item.Text = "" Then
                   item.Text = "-------------"
               End If
               ListBox2.Items.Add(item.Text)

               If TypeOf (item) Is ToolStripMenuItem Then
                   For Each menu As ToolStripItem In DirectCast(item, ToolStripMenuItem).DropDownItems
                     
                       ListBox3.Items.Add(menu.Text)
                   Next
               End If
           Next

       Next
   End Sub

و فيك بارك الله استاذ