frmmenus.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmMenus 
   Caption         =   "Fig. 10.33: Menus"
   ClientHeight    =   1155
   ClientLeft      =   2460
   ClientTop       =   2790
   ClientWidth     =   3915
   LinkTopic       =   "Form1"
   ScaleHeight     =   1155
   ScaleWidth      =   3915
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Index           =   1
      NegotiatePosition=   2  'Middle
      WindowList      =   -1  'True
      Begin VB.Menu mnuitmSave 
         Caption         =   "&Save"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuitmSaveAs 
         Caption         =   "Save &As..."
      End
      Begin VB.Menu mnuitmSeparator 
         Caption         =   "-"
      End
      Begin VB.Menu mnuitmPrint 
         Caption         =   "&Print"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu mnuGraphics 
      Caption         =   "&Graphics"
      Index           =   2
      Begin VB.Menu mnuitmSnap 
         Caption         =   "Snap"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuSpecial 
         Caption         =   "Special"
         Begin VB.Menu mnuitmRotate 
            Caption         =   "Rotate..."
         End
         Begin VB.Menu mnuitmFlip 
            Caption         =   "Flip"
         End
         Begin VB.Menu mnuitmJoin 
            Caption         =   "Join"
         End
      End
   End
End
Attribute VB_Name = "frmMenus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit