home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / actmenu / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-29  |  10.5 KB  |  313 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{D26704A2-5E4B-11D3-83BB-AAAE6646E101}#1.0#0"; "ACTIVEMENUHELP.OCX"
  4. Begin VB.MDIForm frmMain 
  5.    BackColor       =   &H8000000C&
  6.    Caption         =   "MenuHelpDemo"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   165
  9.    ClientTop       =   735
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "MDIForm1"
  12.    StartUpPosition =   3  'Windows Default
  13.    WindowState     =   2  'Maximized
  14.    Begin MSComctlLib.StatusBar sbStatusBar 
  15.       Align           =   2  'Align Bottom
  16.       Height          =   270
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   2925
  20.       Width           =   4680
  21.       _ExtentX        =   8255
  22.       _ExtentY        =   476
  23.       _Version        =   393216
  24.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  25.          NumPanels       =   3
  26.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  27.             AutoSize        =   1
  28.             Object.Width           =   2619
  29.             Text            =   "Status"
  30.             TextSave        =   "Status"
  31.          EndProperty
  32.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  33.             Style           =   6
  34.             AutoSize        =   2
  35.             TextSave        =   "29-08-99"
  36.          EndProperty
  37.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  38.             Style           =   5
  39.             AutoSize        =   2
  40.             TextSave        =   "10:12 PM"
  41.          EndProperty
  42.       EndProperty
  43.    End
  44.    Begin ActiveMenuHelp.MenuHelp MenuHelp1 
  45.       Align           =   1  'Align Top
  46.       Height          =   480
  47.       Left            =   0
  48.       Top             =   0
  49.       Width           =   4680
  50.       _ExtentX        =   8255
  51.       _ExtentY        =   847
  52.       Menu2           =   "mnuFileNew"
  53.       Help2           =   "Creates a New File"
  54.       Menu3           =   "mnuFileOpen"
  55.       Help3           =   "Open an exsisting file."
  56.       Menu4           =   "mnuFileClose"
  57.       Help4           =   "Close a open file."
  58.       Menu6           =   "mnuFileSave"
  59.       Help6           =   "Save current file."
  60.       Menu7           =   "mnuFileSaveAs"
  61.       Help7           =   "Save current file with a new name."
  62.       Menu8           =   "mnuFileSaveAll"
  63.       Help8           =   "Save all open files."
  64.       Menu10          =   "mnuFileProperties"
  65.       Help10          =   "Display properties of a file"
  66.       Menu12          =   "mnuFilePageSetup"
  67.       Help12          =   "Displays Page set up dialog."
  68.       Menu13          =   "mnuFilePrintPreview"
  69.       Help13          =   "See Print Preview before printing."
  70.       Menu14          =   "mnuFilePrint"
  71.       Help14          =   "Print a file."
  72.       Menu16          =   "mnuFileSend"
  73.       Help16          =   "Send a email or fax."
  74.       Menu22          =   "mnuFileExit"
  75.       Help22          =   "Exit the application."
  76.       Menu24          =   "mnuEditUndo"
  77.       Help24          =   "Undo last change."
  78.       Menu26          =   "mnuEditCut"
  79.       Help26          =   "Cut data and copy to clipboard."
  80.       Menu27          =   "mnuEditCopy"
  81.       Help27          =   "Copy to clipboard."
  82.       Menu28          =   "mnuEditPaste"
  83.       Help28          =   "Paste data from clipboard."
  84.       Menu29          =   "mnuEditPasteSpecial"
  85.       Help29          =   "Paste sp."
  86.       Menu31          =   "mnuViewToolbar"
  87.       Help31          =   "Diaplay / hide toolbar"
  88.       Menu32          =   "mnuViewStatusBar"
  89.       Help32          =   "Diaplay / hide status bar."
  90.       Menu34          =   "mnuViewRefresh"
  91.       Help34          =   "refresh document."
  92.       Menu35          =   "mnuViewOptions"
  93.       Help35          =   "Diaplay options."
  94.       Menu36          =   "mnuViewWebBrowser"
  95.       Help36          =   "Diaplay web browser."
  96.       Menu38          =   "mnuToolsOptions"
  97.       Help38          =   "Diaplay tools options."
  98.       Menu40          =   "mnuWindowNewWindow"
  99.       Help40          =   "Create a new window of open document."
  100.       Menu42          =   "mnuWindowCascade"
  101.       Help42          =   "Cascade."
  102.       Menu43          =   "mnuWindowTileHorizontal"
  103.       Help43          =   "Tile Horz."
  104.       Menu44          =   "mnuWindowTileVertical"
  105.       Help44          =   "Tile Vert."
  106.       Menu45          =   "mnuWindowArrangeIcons"
  107.       Help45          =   "Arrange icons of minimised docs."
  108.       Menu47          =   "mnuHelpContents"
  109.       Help47          =   "Diaplay help contents."
  110.       Menu48          =   "mnuHelpSearchForHelpOn"
  111.       Help48          =   "Search help on key."
  112.       Menu50          =   "mnuHelpAbout"
  113.       Help50          =   "About."
  114.       Menu51          =   "Menu~!@#$%End"
  115.    End
  116.    Begin VB.Menu mnuFile 
  117.       Caption         =   "&File"
  118.       Begin VB.Menu mnuFileNew 
  119.          Caption         =   "&New"
  120.          Shortcut        =   ^N
  121.       End
  122.       Begin VB.Menu mnuFileOpen 
  123.          Caption         =   "&Open..."
  124.          Shortcut        =   ^O
  125.       End
  126.       Begin VB.Menu mnuFileClose 
  127.          Caption         =   "&Close"
  128.       End
  129.       Begin VB.Menu mnuFileBar0 
  130.          Caption         =   "-"
  131.       End
  132.       Begin VB.Menu mnuFileSave 
  133.          Caption         =   "&Save"
  134.       End
  135.       Begin VB.Menu mnuFileSaveAs 
  136.          Caption         =   "Save &As..."
  137.       End
  138.       Begin VB.Menu mnuFileSaveAll 
  139.          Caption         =   "Save A&ll"
  140.       End
  141.       Begin VB.Menu mnuFileBar1 
  142.          Caption         =   "-"
  143.       End
  144.       Begin VB.Menu mnuFileProperties 
  145.          Caption         =   "Propert&ies"
  146.       End
  147.       Begin VB.Menu mnuFileBar2 
  148.          Caption         =   "-"
  149.       End
  150.       Begin VB.Menu mnuFilePageSetup 
  151.          Caption         =   "Page Set&up..."
  152.       End
  153.       Begin VB.Menu mnuFilePrintPreview 
  154.          Caption         =   "Print Pre&view"
  155.       End
  156.       Begin VB.Menu mnuFilePrint 
  157.          Caption         =   "&Print..."
  158.       End
  159.       Begin VB.Menu mnuFileBar3 
  160.          Caption         =   "-"
  161.       End
  162.       Begin VB.Menu mnuFileSend 
  163.          Caption         =   "Sen&d..."
  164.       End
  165.       Begin VB.Menu mnuFileBar4 
  166.          Caption         =   "-"
  167.       End
  168.       Begin VB.Menu mnuFileMRU 
  169.          Caption         =   ""
  170.          Index           =   1
  171.          Visible         =   0   'False
  172.       End
  173.       Begin VB.Menu mnuFileMRU 
  174.          Caption         =   ""
  175.          Index           =   2
  176.          Visible         =   0   'False
  177.       End
  178.       Begin VB.Menu mnuFileMRU 
  179.          Caption         =   ""
  180.          Index           =   3
  181.          Visible         =   0   'False
  182.       End
  183.       Begin VB.Menu mnuFileBar5 
  184.          Caption         =   "-"
  185.          Visible         =   0   'False
  186.       End
  187.       Begin VB.Menu mnuFileExit 
  188.          Caption         =   "E&xit"
  189.       End
  190.    End
  191.    Begin VB.Menu mnuEdit 
  192.       Caption         =   "&Edit"
  193.       Begin VB.Menu mnuEditUndo 
  194.          Caption         =   "&Undo"
  195.       End
  196.       Begin VB.Menu mnuEditBar0 
  197.          Caption         =   "-"
  198.       End
  199.       Begin VB.Menu mnuEditCut 
  200.          Caption         =   "Cu&t"
  201.          Shortcut        =   ^X
  202.       End
  203.       Begin VB.Menu mnuEditCopy 
  204.          Caption         =   "&Copy"
  205.          Shortcut        =   ^C
  206.       End
  207.       Begin VB.Menu mnuEditPaste 
  208.          Caption         =   "&Paste"
  209.          Shortcut        =   ^V
  210.       End
  211.       Begin VB.Menu mnuEditPasteSpecial 
  212.          Caption         =   "Paste &Special..."
  213.       End
  214.    End
  215.    Begin VB.Menu mnuView 
  216.       Caption         =   "&View"
  217.       Begin VB.Menu mnuViewToolbar 
  218.          Caption         =   "&Toolbar"
  219.          Checked         =   -1  'True
  220.       End
  221.       Begin VB.Menu mnuViewStatusBar 
  222.          Caption         =   "Status &Bar"
  223.          Checked         =   -1  'True
  224.       End
  225.       Begin VB.Menu mnuViewBar0 
  226.          Caption         =   "-"
  227.       End
  228.       Begin VB.Menu mnuViewRefresh 
  229.          Caption         =   "&Refresh"
  230.       End
  231.       Begin VB.Menu mnuViewOptions 
  232.          Caption         =   "&Options..."
  233.       End
  234.       Begin VB.Menu mnuViewWebBrowser 
  235.          Caption         =   "&Web Browser"
  236.       End
  237.    End
  238.    Begin VB.Menu mnuTools 
  239.       Caption         =   "&Tools"
  240.       Begin VB.Menu mnuToolsOptions 
  241.          Caption         =   "&Options..."
  242.       End
  243.    End
  244.    Begin VB.Menu mnuWindow 
  245.       Caption         =   "&Window"
  246.       WindowList      =   -1  'True
  247.       Begin VB.Menu mnuWindowNewWindow 
  248.          Caption         =   "&New Window"
  249.       End
  250.       Begin VB.Menu mnuWindowBar0 
  251.          Caption         =   "-"
  252.       End
  253.       Begin VB.Menu mnuWindowCascade 
  254.          Caption         =   "&Cascade"
  255.       End
  256.       Begin VB.Menu mnuWindowTileHorizontal 
  257.          Caption         =   "Tile &Horizontal"
  258.       End
  259.       Begin VB.Menu mnuWindowTileVertical 
  260.          Caption         =   "Tile &Vertical"
  261.       End
  262.       Begin VB.Menu mnuWindowArrangeIcons 
  263.          Caption         =   "&Arrange Icons"
  264.       End
  265.    End
  266.    Begin VB.Menu mnuHelp 
  267.       Caption         =   "&Help"
  268.       Begin VB.Menu mnuHelpContents 
  269.          Caption         =   "&Contents"
  270.       End
  271.       Begin VB.Menu mnuHelpSearchForHelpOn 
  272.          Caption         =   "&Search For Help On..."
  273.       End
  274.       Begin VB.Menu mnuHelpBar0 
  275.          Caption         =   "-"
  276.       End
  277.       Begin VB.Menu mnuHelpAbout 
  278.          Caption         =   "&About "
  279.       End
  280.    End
  281. Attribute VB_Name = "frmMain"
  282. Attribute VB_GlobalNameSpace = False
  283. Attribute VB_Creatable = False
  284. Attribute VB_PredeclaredId = True
  285. Attribute VB_Exposed = False
  286. Option Explicit
  287. Private Sub MDIForm_Load()
  288.     LoadNewDoc
  289. End Sub
  290. Private Sub LoadNewDoc()
  291.     Static lDocumentCount As Long
  292.     Dim frmD As frmDocument
  293.     lDocumentCount = lDocumentCount + 1
  294.     Set frmD = New frmDocument
  295.     frmD.Caption = "Document " & lDocumentCount
  296.     frmD.Show
  297. End Sub
  298. '******* You need to add this event to update the ************
  299. '******* status bar contents for active menu help ************
  300. Private Sub MenuHelp1_MenuSelected(menuString As String)
  301.     sbStatusBar.Panels(1).Text = menuString
  302. End Sub
  303. Private Sub mnuFileExit_Click()
  304.     'unload the form
  305.     Unload Me
  306. End Sub
  307. Private Sub mnuFileOpen_Click()
  308.     If ActiveForm Is Nothing Then LoadNewDoc
  309. End Sub
  310. Private Sub mnuFileNew_Click()
  311.     LoadNewDoc
  312. End Sub
  313.