Seperators in menus

**kblair** · 02-12-2010 6:46 PM

I have routine that I use to turn off all of the check marks on various menus. The code works fine as long as there are no menu seperators.

Code:

 
    Private Sub ClearMenuChk()

        Dim mnuItm As ToolStripMenuItem

        For Each mnuItm In mnuZoom.DropDownItems
            mnuItm.Checked = False
        Next

        For Each mnuItm In mnuAnnotation.DropDownItems
            mnuItm.Checked = False
        Next

        For Each mnuItm In mnuAnnotRubStamps.DropDownItems
            mnuItm.Checked = False
        Next


    End Sub

How do ignore the seperators that are of the wrong type and contiue unchecking the rest of the items? I have tried on error resume next but it still drops out of the for each loop so that only the items above the seperator are un-checked.

Thanks for your help,

Kent

**JohnH** · 02-13-2010 4:55 AM

Check type:

Code:

For Each item As ToolStripItem In mnuZoom.DropDownItems
    If TypeOf item Is ToolStripMenuItem Then
        CType(item, ToolStripMenuItem).Checked = False
    End If
Next

or filter out items:

Code:

For Each item As ToolStripMenuItem In TestToolStripMenuItem.DropDownItems.OfType(Of ToolStripMenuItem)()
    item.Checked = True
Next

**kblair** · 02-13-2010 10:14 AM

Duh, thanks John for pointing out the obvious. Sometimes it just takes another set of eyes.

Kent

Thread: Seperators in menus

LinkBack

Thread Tools

Display

Seperators in menus

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions