Menu Items in the Main Menu [RESOLVED]

[Jared]

How can I write code to uncheck ALL of the checked menu items that are in a Main Menu?

Here is the code that I tried: (which doesn't work)

Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
cpnum = 3
Dim i As Integer
Dim mnu As MainMenu = Me.MainMenu1
For i = 1 To 20
MainMenu1.MenuItems.Item(i).Checked = False
Next
MenuItem8.Checked = True
End Sub

Thanks,
Jared.

[PT Exorcist]

try with a foreach instead...also what did u get with that code that u wrote?

[Jared]

An error stating that "This is only valid for MenuItems that have no children and are not top-level."

Also the above code should have been:

Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

Dim i As Integer
Dim mnu As MainMenu = Me.MainMenu1
For i = 1 To 20
mnu.MenuItems.Item(i).Checked = False
Next
MenuItem7.Checked = True
End Sub

But it did not change anything.

[Pirate]

try this

Dim mnu As New MainMenu()

[Edneeis]

A mainmenu kind of works like a treeview where children of a parent can have children and on and on. So you have to have a recursive function to check all the generations.

'syntax of use
    UncheckAll(Me.MainMenu1.MenuItems)
 
    Public Sub UncheckAll(ByVal mnu As MainMenu.MenuItemCollection)
        Dim mi As MenuItem
        'checks each item in this collection
        For Each mi In mnu
            If mi.Checked Then mi.Checked = False
            'checks any children of this item
            'this will always be called to make sure it checks all generations
            UncheckAll(mi.MenuItems)
        Next
    End Sub

[Jared]

Thanks Edneeis, that worked like a charm. I knew there was an easier way to uncheck all the menu items, just couldn't get it to work correctly. I had an extremely long list of redundant code to accomplish this task (but now I can delete it! ).

- Jared.

[stingrae]

(before reading this post, i must admit that i've had a huge weekend on the piss, and am not feeling the best for a monday morning)


edneeis, is it possible to have

UncheckAll(mi.MenuItems)

called from inside itself? looking at it, to me it seems circular.

[Edneeis]

Pardon? I don't think I understand the question.

Are you asking if UncheckAll can be called from within itself? If so then yes you can do that.

As far as circular, not exactly but it is recursive. It doesn't call itself with the same parameters repeatibly. It calls itself on the collection of the current item in the current collection it is checking. This is intentional so that all of the nodes and their children get checked.

[stingrae]

Edneeis,

yes, I was unsure if a sub-routine could call itself. when i first looked at it, i thought that it would get stuck in a loop and only stop when the call stack memory got too large. now i'm awake and focuessed, it makes sense.

thanks