home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / source / vbsource / menuev / mesample.frm < prev    next >
Text File  |  1993-10-20  |  2KB  |  91 lines
  1. VERSION 2.00
  2. Begin Form MESAMPLE 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "MenuEv Sample"
  5.    ClientHeight    =   2760
  6.    ClientLeft      =   1275
  7.    ClientTop       =   2520
  8.    ClientWidth     =   4680
  9.    Height          =   3450
  10.    Left            =   1215
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2760
  13.    ScaleWidth      =   4680
  14.    Top             =   1890
  15.    Width           =   4800
  16.    Begin MenuEvent MenuEv1 
  17.       Left            =   240
  18.       Top             =   240
  19.    End
  20.    Begin Label Label1 
  21.       BackColor       =   &H00C0C0C0&
  22.       Caption         =   "Label1"
  23.       ForeColor       =   &H00000000&
  24.       Height          =   255
  25.       Left            =   120
  26.       TabIndex        =   0
  27.       Top             =   2490
  28.       Width           =   4335
  29.    End
  30.    Begin Shape Shape1 
  31.       BackColor       =   &H00C0C0C0&
  32.       BackStyle       =   1  'Opaque
  33.       Height          =   375
  34.       Left            =   -10
  35.       Top             =   2400
  36.       Width           =   4695
  37.    End
  38.    Begin Menu MenuFile 
  39.       Caption         =   "&File"
  40.       Begin Menu MenuFileNew 
  41.          Caption         =   "&New"
  42.       End
  43.       Begin Menu MenuFileOpen 
  44.          Caption         =   "&Open"
  45.       End
  46.       Begin Menu MenuFileClose 
  47.          Caption         =   "&Close"
  48.       End
  49.       Begin Menu MenuFileSep 
  50.          Caption         =   "-"
  51.       End
  52.       Begin Menu MenuFileExit 
  53.          Caption         =   "E&xit"
  54.       End
  55.    End
  56.    Begin Menu MenuEdit 
  57.       Caption         =   "&Edit"
  58.    End
  59.    Begin Menu MenuView 
  60.       Caption         =   "&View"
  61.    End
  62. End
  63.  
  64.  
  65. Option Explicit
  66.  
  67. Sub Form_Load ()
  68.     Label1 = ""
  69.  
  70.     MenuFile.Tag = "Create, open, save files or quit."
  71.     MenuFileNew.Tag = "Creates a new file."
  72.     MenuFileOpen.Tag = "Opens an existing file."
  73.     MenuFileClose.Tag = "Closes a file."
  74.     MenuFileExit.Tag = "Quits MESAMPLE."
  75.     MenuEdit.Tag = "Edit things."
  76.     MenuView.Tag = "View things."
  77. End Sub
  78.  
  79. Sub Form_Unload (Cancel As Integer)
  80.     End
  81. End Sub
  82.  
  83. Sub MenuEv1_MenuEvent (MenuText As String, Flags As Integer, Tag As String, HelpContextID As Long)
  84.     Label1 = Tag
  85. End Sub
  86.  
  87. Sub MenuFileExit_Click ()
  88.     End
  89. End Sub
  90.  
  91.