Checked menu items
Sometimes you may want the user to be able
to select options on the menu. You may have noticed other applications using Ticks or
circles next to an item to show that this option is chosen. You can do this is VB too. All
you have to do is change the checked property of the menu item. Note that when a checked
menu item is clicked, VB will not automatically uncheck the item. The following example
will check and un-check mnuEditWordWrap and change the text in a label.
For this example, create a menu called
mnuEdit, with a menu item called mnuEditWordWrap. Also add a label control to the form.
Sub mnuEditWordWrap_Click()
If mnuEditWordWrap.Checked = True
' We are checked - uncheck the menu
item
mnuEditWordWrap.Checked = False
' Set the label text
Label1.Caption = "No Word Wrap"
Else
' We are not checked - check the
menu item
mnuEditWordWrap.Checked = True
' Set the label text
Label1.Caption = "Word Wrap"
End If
End Sub