home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tray1 / traymenu.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-05-02  |  1.6 KB  |  64 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   1875
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   2835
  8.    Height          =   2565
  9.    Left            =   1080
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1875
  12.    ScaleWidth      =   2835
  13.    Top             =   885
  14.    Width           =   2955
  15.    Begin VB.Menu mPopup 
  16.       Caption         =   "Popup"
  17.       Begin VB.Menu mOpen 
  18.          Caption         =   "&Open"
  19.       End
  20.       Begin VB.Menu mspe1 
  21.          Caption         =   "-"
  22.       End
  23.       Begin VB.Menu mOpt1 
  24.          Caption         =   "Option 1"
  25.       End
  26.       Begin VB.Menu mOpt2 
  27.          Caption         =   "Option 2"
  28.       End
  29.       Begin VB.Menu mOpt3 
  30.          Caption         =   "Option 3"
  31.       End
  32.       Begin VB.Menu mSep2 
  33.          Caption         =   "-"
  34.       End
  35.       Begin VB.Menu mRemove 
  36.          Caption         =   "&Remove"
  37.       End
  38.    End
  39. Attribute VB_Name = "Form2"
  40. Attribute VB_Creatable = False
  41. Attribute VB_Exposed = False
  42. Sub GeneralMessage()
  43.     MsgBox "Menu functionality is contained in Form2"
  44. End Sub
  45. Private Sub Form_Load()
  46. End Sub
  47. Private Sub mOpen_Click()
  48.     Form1.Show
  49. End Sub
  50. Private Sub mOpt1_Click()
  51.     GeneralMessage
  52. End Sub
  53. Private Sub mOpt2_Click()
  54.     GeneralMessage
  55. End Sub
  56. Private Sub mOpt3_Click()
  57.     GeneralMessage
  58. End Sub
  59. Private Sub mPopup_Click()
  60. End Sub
  61. Private Sub mRemove_Click()
  62.     Unload Form1
  63. End Sub
  64.