home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / mnuevent / mesample.frm < prev    next >
Text File  |  1994-06-10  |  3KB  |  112 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.       LinkControl     =   "Label1"
  19.       LinkProperty    =   "Caption"
  20.       Top             =   240
  21.    End
  22.    Begin Label Label3 
  23.       Caption         =   "Run the program and play with the menus to see this work.  When playing, remember: No code required!"
  24.       Height          =   735
  25.       Left            =   840
  26.       TabIndex        =   2
  27.       Top             =   1320
  28.       Visible         =   0   'False
  29.       Width           =   3495
  30.    End
  31.    Begin Label Label2 
  32.       Caption         =   "This MenuEv control has no code associated with it.  It uses the LinkControl and LinkProperty properties to automatically update the Label1 control."
  33.       Height          =   1095
  34.       Left            =   840
  35.       TabIndex        =   1
  36.       Top             =   240
  37.       Visible         =   0   'False
  38.       Width           =   3495
  39.    End
  40.    Begin Label Label1 
  41.       BackColor       =   &H00C0C0C0&
  42.       Caption         =   "Label1"
  43.       ForeColor       =   &H00000000&
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   0
  47.       Top             =   2490
  48.       Width           =   4335
  49.    End
  50.    Begin Shape Shape1 
  51.       BackColor       =   &H00C0C0C0&
  52.       BackStyle       =   1  'Opaque
  53.       Height          =   375
  54.       Left            =   -10
  55.       Top             =   2400
  56.       Width           =   4695
  57.    End
  58.    Begin Menu MenuFile 
  59.       Caption         =   "&File"
  60.       Begin Menu MenuFileNew 
  61.          Caption         =   "&New"
  62.          Tag             =   "Create File..."
  63.       End
  64.       Begin Menu MenuFileOpen 
  65.          Caption         =   "&Open"
  66.          Tag             =   "Open File..."
  67.       End
  68.       Begin Menu MenuFileClose 
  69.          Caption         =   "&Close"
  70.          Tag             =   "Close File..."
  71.       End
  72.       Begin Menu MenuFileSep 
  73.          Caption         =   "-"
  74.       End
  75.       Begin Menu MenuFileExit 
  76.          Caption         =   "E&xit"
  77.          Tag             =   "Exit Program"
  78.       End
  79.    End
  80.    Begin Menu MenuEdit 
  81.       Caption         =   "&Edit"
  82.    End
  83.    Begin Menu MenuView 
  84.       Caption         =   "&View"
  85.       Tag             =   "View Menu"
  86.    End
  87. End
  88.  
  89.  
  90. Option Explicit
  91.  
  92. Sub Form_Load ()
  93.     Label1 = ""
  94.  
  95.     MenuFile.Tag = "Create, open, save files or quit."
  96.     MenuFileNew.Tag = "Creates a new file."
  97.     MenuFileOpen.Tag = "Opens an existing file."
  98.     MenuFileClose.Tag = "Closes a file."
  99.     MenuFileExit.Tag = "Quits MESAMPLE."
  100.     MenuEdit.Tag = "Edit things."
  101.     MenuView.Tag = "View things."
  102. End Sub
  103.  
  104. Sub Form_Unload (Cancel As Integer)
  105.     End
  106. End Sub
  107.  
  108. Sub MenuFileExit_Click ()
  109.     End
  110. End Sub
  111.  
  112.