home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / source / vbsource / menuev / mesample.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-10-20  |  2.2 KB  |  82 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. Option Explicit
  63. Sub Form_Load ()
  64.     Label1 = ""
  65.     MenuFile.Tag = "Create, open, save files or quit."
  66.     MenuFileNew.Tag = "Creates a new file."
  67.     MenuFileOpen.Tag = "Opens an existing file."
  68.     MenuFileClose.Tag = "Closes a file."
  69.     MenuFileExit.Tag = "Quits MESAMPLE."
  70.     MenuEdit.Tag = "Edit things."
  71.     MenuView.Tag = "View things."
  72. End Sub
  73. Sub Form_Unload (Cancel As Integer)
  74.     End
  75. End Sub
  76. Sub MenuEv1_MenuEvent (MenuText As String, Flags As Integer, Tag As String, HelpContextID As Long)
  77.     Label1 = Tag
  78. End Sub
  79. Sub MenuFileExit_Click ()
  80.     End
  81. End Sub
  82.