home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / OLECONT / CONTMDI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-12  |  1.3 KB  |  58 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm ParentForm 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "OLE 
  5.    ClientHeight    =   5205
  6.    ClientLeft      =   765
  7.    ClientTop       =   1770
  8.    ClientWidth     =   8025
  9.    LinkTopic       =   "MDIForm1"
  10.    Begin VB.Menu mnuFile 
  11.       Caption         =   "
  12. (&F)"
  13.       NegotiatePosition=   1  'Left
  14.       Begin VB.Menu mnuFileNew 
  15.          Caption         =   "
  16. (&N)..."
  17.       End
  18.       Begin VB.Menu mnuOpen 
  19.          Caption         =   "
  20. (&O)..."
  21.       End
  22.       Begin VB.Menu sep1 
  23.          Caption         =   "-"
  24.       End
  25.       Begin VB.Menu mnuExit 
  26.          Caption         =   "
  27. (&X)"
  28.       End
  29.       Begin VB.Menu sep2 
  30.          Caption         =   "-"
  31.       End
  32.       Begin VB.Menu mnuAbout 
  33.          Caption         =   "
  34. (&B)..."
  35.       End
  36.    End
  37. Attribute VB_Name = "ParentForm"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. Option Explicit
  43. Private Sub MDIForm_Load()
  44.     ChDir App.Path
  45. End Sub
  46. Private Sub mnuAbout_Click()
  47.     DisplayInstructions
  48. End Sub
  49. Private Sub mnuExit_Click()
  50.     End
  51. End Sub
  52. Private Sub mnuFileNew_Click()
  53.     NewObject
  54. End Sub
  55. Private Sub mnuOpen_Click()
  56.     OpenObject
  57. End Sub
  58.