Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                        ◄Example►                ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
' This example displays a single menu on the menu bar. When you open the menu
' and choose the menu item, the checked symbol (•) is placed next to the menu
' item.
 
' To try this example:
' 1. Choose New Project from the File menu
' 2. Choose New Form from the File menu to create a form
' 3. Choose Menu Design Window from the Window menu to create:
'   • Menu name
'   • Menu item
' 4. Set the first menu control properties:
'    • CtlName = "MnuName"
'    • Caption = "MenuName"
' 5. Choose Next and select the right (►) button
' 6. Set the second menu control properties:
'    • CtlName = "MnuItem"
'    • Caption = "MenuItem"
' 7. Choose Done to close the Menu Design window
' 8. Press Alt+F4 to return to the programming environment
' 9. Copy the code example below to the form module
'10. Press F5 to run the example
 
 SUB MenuItem_Click ()                  ' Toggle checked symbol on menu item
     IF MenuItem.Checked = -1 THEN
          MenuItem.Checked = 0
     ELSE
          MenuItem.Checked = -1
     END IF
 END SUB