home *** CD-ROM | disk | FTP | other *** search
/ distrib.akp.su/Programming/Vb-6+Rus/ / distrib.akp.su.tar / distrib.akp.su / Programming / Vb-6+Rus / VB98 / TEMPLATE / MENUS / FILEMENU.FRM (.txt) < prev    next >
Visual Basic Form  |  1998-06-18  |  3KB  |  111 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFileMenu 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   8280
  5.    ClientLeft      =   -9996
  6.    ClientTop       =   1980
  7.    ClientWidth     =   6684
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   8280
  10.    ScaleWidth      =   6684
  11.    Begin VB.Menu mnuFile 
  12.       Caption         =   "&File"
  13.       Begin VB.Menu mnuFileNew 
  14.          Caption         =   "&New"
  15.          Shortcut        =   ^N
  16.       End
  17.       Begin VB.Menu mnuFileOpen 
  18.          Caption         =   "&Open"
  19.          Shortcut        =   ^O
  20.       End
  21.       Begin VB.Menu mnuFileClose 
  22.          Caption         =   "&Close"
  23.       End
  24.       Begin VB.Menu mnuFileBar1 
  25.          Caption         =   "-"
  26.       End
  27.       Begin VB.Menu mnuFileSave 
  28.          Caption         =   "&Save"
  29.          Shortcut        =   ^S
  30.       End
  31.       Begin VB.Menu mnuFileSaveAs 
  32.          Caption         =   "Save &As..."
  33.       End
  34.       Begin VB.Menu mnuFileSaveAll 
  35.          Caption         =   "Save A&ll"
  36.       End
  37.       Begin VB.Menu mnuFileBar2 
  38.          Caption         =   "-"
  39.       End
  40.       Begin VB.Menu mnuFileProperties 
  41.          Caption         =   "Propert&ies"
  42.       End
  43.       Begin VB.Menu mnuFileBar3 
  44.          Caption         =   "-"
  45.       End
  46.       Begin VB.Menu mnuFilePrintSetup 
  47.          Caption         =   "Print Set&up..."
  48.       End
  49.       Begin VB.Menu mnuFilePrintPreview 
  50.          Caption         =   "Print Pre&view"
  51.       End
  52.       Begin VB.Menu mnuFilePrint 
  53.          Caption         =   "&Print..."
  54.          Shortcut        =   ^P
  55.       End
  56.       Begin VB.Menu mnuFileBar4 
  57.          Caption         =   "-"
  58.       End
  59.       Begin VB.Menu mnuFileSend 
  60.          Caption         =   "Sen&d..."
  61.       End
  62.       Begin VB.Menu mnuFileBar5 
  63.          Caption         =   "-"
  64.       End
  65.       Begin VB.Menu mnuFileExit 
  66.          Caption         =   "E&xit"
  67.       End
  68.    End
  69. Attribute VB_Name = "frmFileMenu"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Private Sub mnuFileClose_Click()
  75.   MsgBox "Close Code goes here!"
  76. End Sub
  77. Private Sub mnuFileExit_Click()
  78.   'unload the form
  79.   Unload Me
  80. End Sub
  81. Private Sub mnuFileNew_Click()
  82.   MsgBox "New File Code goes here!"
  83. End Sub
  84. Private Sub mnuFileOpen_Click()
  85.   MsgBox "Open Code goes here!"
  86. End Sub
  87. Private Sub mnuFilePrint_Click()
  88.   MsgBox "Print Code goes here!"
  89. End Sub
  90. Private Sub mnuFilePrintPreview_Click()
  91.   MsgBox "Print Preview Code goes here!"
  92. End Sub
  93. Private Sub mnuFilePrintSetup_Click()
  94.   MsgBox "Print Setup Code goes here!"
  95. End Sub
  96. Private Sub mnuFileProperties_Click()
  97.   MsgBox "Properties Code goes here!"
  98. End Sub
  99. Private Sub mnuFileSave_Click()
  100.   MsgBox "Save File Code goes here!"
  101. End Sub
  102. Private Sub mnuFileSaveAll_Click()
  103.   MsgBox "Save All Code goes here!"
  104. End Sub
  105. Private Sub mnuFileSaveAs_Click()
  106.   MsgBox "Save As Code goes here!"
  107. End Sub
  108. Private Sub mnuFileSend_Click()
  109.   MsgBox "Send Code goes here!"
  110. End Sub
  111.