Programmer 7500/MAX_PROGRAMMERS.iso/VISUAL_B/CODIGO_2/VBEMBDMN/MNUEMBED.FRM

Visual Basic Form | 1993-03-01 | 1.6 KB | 66 lines

VERSION 2.00
Begin Form MenuForm
   ControlBox      =   0   'False
   Height          =   900
   KeyPreview      =   -1  'True
   Left            =   1095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   180
   ScaleWidth      =   2805
   Top             =   1185
   Width           =   2955
   Begin Menu mnuEmbTop
      Caption         =   "&Embedded Menu"
      Begin Menu mnu1
         Caption         =   "Item &1"
      End
      Begin Menu mnu2
         Caption         =   "Item &2"
      End
      Begin Menu mnu3
         Caption         =   "Item &3"
      End
      Begin Menu sep1
         Caption         =   "-"
      End
      Begin Menu mnu4
         Caption         =   "Item &4"
      End
      Begin Menu mnu5
         Caption         =   "Item &5"
      End
      Begin Menu sep2
         Caption         =   "-"
      End
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
Option Explicit
Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Const KEY_ESCAPE = &H1B
If KeyCode = KEY_ESCAPE Then MainWindow.SetFocus
End Sub
Sub mnu1_Click ()
   MainWindow.SetFocus
End Sub
Sub mnu2_Click ()
   MainWindow.SetFocus
End Sub
Sub mnu3_Click ()
   MainWindow.SetFocus
End Sub
Sub mnu4_Click ()
   MainWindow.SetFocus
End Sub
Sub mnu5_Click ()
   MainWindow.SetFocus
End Sub
Sub mnuExit_Click ()
    Unload MenuForm
    Unload MainWindow  'Dumps the VB form.
    End   'Shuts down the VB app.
End Sub