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 / EXPFMENU.FRM (.txt) < prev    next >
Visual Basic Form  |  1998-06-18  |  2KB  |  77 lines
  1. VERSION 5.00
  2. Begin VB.Form frmExpFileMenu 
  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 mnuFileOpen 
  14.          Caption         =   "&Open"
  15.       End
  16.       Begin VB.Menu mnuFileFind 
  17.          Caption         =   "&Find"
  18.       End
  19.       Begin VB.Menu mnuFileBar1 
  20.          Caption         =   "-"
  21.       End
  22.       Begin VB.Menu mnuFileSend 
  23.          Caption         =   "Sen&d to"
  24.       End
  25.       Begin VB.Menu mnuFileBar2 
  26.          Caption         =   "-"
  27.       End
  28.       Begin VB.Menu mnuFileNew 
  29.          Caption         =   "&New"
  30.       End
  31.       Begin VB.Menu mnuFileBar3 
  32.          Caption         =   "-"
  33.       End
  34.       Begin VB.Menu mnuFileDelete 
  35.          Caption         =   "&Delete"
  36.       End
  37.       Begin VB.Menu mnuFileRename 
  38.          Caption         =   "Rena&me"
  39.       End
  40.       Begin VB.Menu mnuFileProperties 
  41.          Caption         =   "Propert&ies"
  42.       End
  43.       Begin VB.Menu mnuFileBar4 
  44.          Caption         =   "-"
  45.       End
  46.       Begin VB.Menu mnuFileClose 
  47.          Caption         =   "&Close"
  48.       End
  49.    End
  50. Attribute VB_Name = "frmExpFileMenu"
  51. Attribute VB_GlobalNameSpace = False
  52. Attribute VB_Creatable = False
  53. Attribute VB_PredeclaredId = True
  54. Attribute VB_Exposed = False
  55. Private Sub mnuFileClose_Click()
  56.   'unload the form
  57.   Unload Me
  58. End Sub
  59. Private Sub mnuFileDelete_Click()
  60.   MsgBox "Delete Code goes here!"
  61. End Sub
  62. Private Sub mnuFileNew_Click()
  63.   MsgBox "New File Code goes here!"
  64. End Sub
  65. Private Sub mnuFileOpen_Click()
  66.   MsgBox "Open Code goes here!"
  67. End Sub
  68. Private Sub mnuFileProperties_Click()
  69.   MsgBox "Properties Code goes here!"
  70. End Sub
  71. Private Sub mnuFileRename_Click()
  72.   MsgBox "Rename Code goes here!"
  73. End Sub
  74. Private Sub mnuFileSend_Click()
  75.   MsgBox "Send Code goes here!"
  76. End Sub
  77.