home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / ITALIAN / LOTUS026.DSK / MENU.TPL < prev    next >
Text File  |  1997-02-17  |  774b  |  22 lines
  1.  
  2. ' Create a new top level menu item
  3. MenuName = "&Nuovo menu"        
  4. Item1 = "&Prima voce di menu..."
  5. Item2 = "&Seconda voce di menu..."
  6.  
  7. With .ApplicationWindow.lwpMenuBar
  8.         ' Delete the menu - prevents duplicates         
  9.         .deleteitem MenuName    
  10.         .newitem MenuName, "",0,"&?"            ' add a menu before &Help
  11. End With
  12.         
  13. Set mymenu=.applicationwindow.lwpmenubar.items.item(MenuName)   ' set menu object
  14. mymenu.newitem Item1,"!HitMenu",,               ' add item to menu
  15. mymenu.newitem Item2,"!HitMenu",,               ' add item to menu
  16.  
  17.  
  18.  
  19. Sub HitMenu
  20.         ' This routine is called when a menuitem is selected
  21.         ' Press Ctrl+PageUp to navigate available functions and subs
  22.         Messagebox "attivare il menu"