MenuStrip

[1Steps]

Здравствуйте Все!
Проблемма в следующем.
Меняю айтем в листбокс и заодно в менюстрип.
После изменения DropDownItems в менюстрип, клик по этим айтемам перестаёт работать( в листбокс всё нормально). Я думаю, нужно сделать эдхандлер, но не знаю как. А точнее пробовал, но почему-то не получается.
Помогите плиз.

MDI приложение. В дочерней форме:

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

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged

        Select Case ListBox2.SelectedItem.ToString
            Case Is = "Filter 1"
                'Do something
            Case Is = "Filter 2"
                'Do something
            Case Is = "Fiter 3"
                'Do something
            Case Is = "Filter 4"
                'Do something
        End Select

        For i As Byte = 0 To 3

            'Удаляю фильтр который был использован

            If ItemFilters(i) = Me.ListBox2.SelectedItem.ToString _

            Then ItemFilters(i) = ""
        Next

        'Записываю Items заново
        Fill_Filters()

    End Sub

    Private Sub Fill_Filters()

        Me.ListBox2.Items.Clear()

        frmMDI.FiltersMenu.DropDownItems.Clear()

        If arrSystemOptimize Is Nothing Then
            ItemFilters(0) = "Filter 1"
            ItemFilters(1) = "Filter 2"
            ItemFilters(2) = "Filter 3"
            ItemFilters(3) = "Filter 4"
        End If

        For i As Byte = 0 To 3

            If ItemFilters(i) = "" Then Continue For

            Me.ListBox2.Items.Add(ItemFilters(i))

            frmMDI.FiltersMenu.DropDownItems.Add(ItemFilters(i))

            'Я Думаю, Здесь должен быть Эдхандлер

        Next

    End Sub
End Class


[Nord777]

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

frmMDI.FiltersMenu.DropDownItems.Add(ItemFilters(i), Nothing, _
New EventHandler(AddressOf ListBox2_SelectedIndexChanged))

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

    Private Sub ListBox2_SelectedIndexChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        Dim S As String = ""

        If sender.GetType Is GetType(ListBox) Then
            S = CType(sender, ListBox).SelectedItem.ToString
        ElseIf sender.GetType Is GetType(ToolStripMenuItem) Then
            S = CType(sender, ToolStripMenuItem).Text
        Else : Exit Sub
        End If

        Select Case S
            Case Is = "Filter 1"
                MsgBox("Filter 1")
            Case Is = "Filter 2"
                MsgBox("Filter 2")
            Case Is = "Fiter 3"
                MsgBox("Filter 3")
            Case Is = "Filter 4"
                MsgBox("Filter 4")
        End Select
    End Sub

[1Steps]

Спасибо Заработало!