Динамически добавить элемент в меню

[Alexandrius]

Подскажите, пожалуйста, как динамически добавить новые элементы в меню. В VB 6.0 было всё просто. Создавал массив элементов с помощью Index... А тут, в VB 2008 никак не разберусь.

[viter.alex]

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

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim ms As New MenuStrip
      Me.Controls.Add(ms) 'добавляем меню на форму
      'добавляем элементы меню через цикл
      For i As Integer = 1 To 3
         ms.Items.Add("Меню из цикла " & i)
      Next
      'Для каждого меню добавляем выпадающие пункты
      For Each mi As ToolStripMenuItem In ms.Items
         For i As Integer = 0 To 10
            mi.DropDownItems.Add(New ToolStripMenuItem("Новый пункт меню " & i, Nothing, New EventHandler(AddressOf NewMenuItemClick)))
         Next
      Next
   End Sub

            'Обработчик кликов по меню
   Private Sub NewMenuItemClick(ByVal sender As Object, ByVal e As System.EventArgs)
      MsgBox(DirectCast(sender, ToolStripMenuItem).ToString)
   End Sub
End Class

Ну и здесь посмотри

[Alexandrius]

Благодарю.

[Денис]

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

        'добавляем элементы меню через цикл
        For i As Integer = 1 To 3
            ms.Items.Add("Меню из цикла " & i)
        Next
   

ИЧСХ, в VB 6 тоже можно по этому принципу контролы добавлять (и меню, как тип контрола, тоже, само собой).