home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 October / tst.iso / programs / lotus / LOTUS / SAMPLES / SUITE / DW10_S7.LSS < prev    next >
Encoding:
Text File  |  1996-09-30  |  1.5 KB  |  49 lines
  1. Option Public
  2.  
  3. Sub CustomMenu
  4.     
  5.     ' Set constants for the menu and menu item titles.
  6.     Const MenuName = "&My Menu"
  7.     Const Option1 = "&First Menu Option"
  8.     Const Option2 = "&Second Menu Option"
  9.     Const Option3 = "&Third Menu Option"
  10.     
  11.     ' Create two menu item variables.
  12.     Dim CrntMenu As MenuItem
  13.     Dim MyMenu As MenuItem
  14.  
  15.     ' Set the variable CrntMenu to the Word Pro main menu
  16.     ' object LwpMenuBar.
  17.     Set CrntMenu = .ApplicationWindow.LwpMenuBar
  18.     
  19.     ' If the menu item already exists in order to prevent' duplicates.
  20.     CrntMenu.DeleteItem MenuName
  21.     
  22.     ' Create My Menu as a main menu item on the Word Pro menu
  23.     ' bar. Set the 3rd paramter of NewItem to False. Specify
  24.     ' where MyMenu will display by giving the 4th parameter
  25.     ' the name of the main menu item it should come before.
  26.     CrntMenu.NewItem MenuName, "",False,"&Help"     
  27.     
  28.     ' Set the variable MyMenu to newly created main menu item.
  29.     Set MyMenu = CrntMenu.Items.Item(MenuName) 
  30.     
  31.     ' Add the first two menu items to the new main menu item
  32.     ' and associate the menu items with the sub MenuSelection.
  33.     MyMenu.NewItem Option1,"!MenuSelection",,
  34.     MyMenu.NewItem Option2,"!MenuSelection",,
  35.     ' Create a seperator line on the menu
  36.     MyMenu.NewItem "-","",,
  37.     
  38.     ' Add the last menu item to the new main menu item and
  39.     ' associate the menu items with the sub MenuSelection.
  40.     MyMenu.NewItem Option3,"!MenuSelection",,
  41. End Sub
  42.  
  43.  
  44. Sub MenuSelection
  45.     ' Create a message box to display when a menu item is
  46.     ' selected
  47.     Messagebox "A Menu Item was Selected!",64,"Menu Example"
  48. End Sub
  49.