пункты меню

[Arto]

Здравствуйте
как можно в цикле пройти по все пунктам Меню MDI формы
Спасибо

[Viper]

Поскольку пункты меню соедржатся в коллекции, то цикл For Each легко поможет реализовать перечисление.

[Arto]

Поскольку пункты меню соедржатся в коллекции, то цикл For Each легко поможет реализовать перечисление.

а нельзя ли поподробней что то у меня получается
С уважением

[Viper]

а нельзя ли поподробней что то у меня получается

Получается? Или не получается? Если не получается, то что? Если получается, то, опять же, что?
Должно быть типо так

Код: Выделить всё

Dim mnuItem As MenuItem
    For Each mnuItem In Me.Menu.MenuItems
        Debug.Print mnuItem.Name
    Next

[Arto]

а нельзя ли поподробней что то у меня получается

Получается? Или не получается? Если не получается, то что? Если получается, то, опять же, что?
Должно быть типо так

Код: Выделить всё

Dim mnuItem As MenuItem
    For Each mnuItem In Me.Menu.MenuItems
        Debug.Print mnuItem.Name
    Next

нет не получается
получаю только верхние меню а вот dropdownmenu получить не могу

[MIT]

а вот dropdownmenu получить не могу

А вот для dropdownmenu надо разбирать свою коллекцию. Если у элемента есть подменю, то обрабатывать их надо отдельно. Что-то типа рекурсии.

[Arto]

а вот dropdownmenu получить не могу

А вот для dropdownmenu надо разбирать свою коллекцию. Если у элемента есть подменю, то обрабатывать их надо отдельно. Что-то типа рекурсии.

Буду пробовать

[Arto]

вот решение может кому понадобится

Код: Выделить всё

For Each item As ToolStripMenuItem In Me.MenuStrip1.Items
    For i As Integer = 0 To item.DropDownItems.Count - 1
        MsgBox(item.DropDownItems(i).Text)
    Next
Next

[MIT]

А если у item.DropDownItems(i) есть свое подменю? А у того свое?
ИМНИП DropDownItems может быть Nothing`ом, соответственно item.DropDownItems.Count вызовет исключение

[Nord777]

Этот код не перебирает все саб'итемы.

надо как-то так

Код: Выделить всё

PrintAllMenuItems(Me.MenuStrip.Items)

Код: Выделить всё

   Sub PrintAllMenuItems(ByVal MnuCol As ToolStripItemCollection)
      Dim mi As ToolStripMenuItem

      For Each it As ToolStripItem In MnuCol
         If Not (TypeOf it Is ToolStripMenuItem) Then Continue For

         mi = DirectCast(it, ToolStripMenuItem)
         Debug.WriteLine(mi.Text)
         PrintAllMenuItems(mi.DropDownItems)
      Next

   End Sub

[Arto]

Этот код не перебирает все саб'итемы.

надо как-то так

Код: Выделить всё

PrintAllMenuItems(Me.MenuStrip.Items)

Код: Выделить всё

   Sub PrintAllMenuItems(ByVal MnuCol As ToolStripItemCollection)
      Dim mi As ToolStripMenuItem

      For Each it As ToolStripItem In MnuCol
         If Not (TypeOf it Is ToolStripMenuItem) Then Continue For

         mi = DirectCast(it, ToolStripMenuItem)
         Debug.WriteLine(mi.Text)
         PrintAllMenuItems(mi.DropDownItems)
      Next

   End Sub

Спасибо