home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch10 / scrlfrm / mdiform1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-21  |  3.6 KB  |  127 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm MDIScrollForm 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "Scrolling Form"
  6.    ClientHeight    =   4200
  7.    ClientLeft      =   165
  8.    ClientTop       =   735
  9.    ClientWidth     =   9090
  10.    LinkTopic       =   "MDIForm1"
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Menu FileMenu 
  13.       Caption         =   "File"
  14.       Begin VB.Menu FileOpen 
  15.          Caption         =   "Open"
  16.       End
  17.       Begin VB.Menu FileNew 
  18.          Caption         =   "New"
  19.       End
  20.       Begin VB.Menu FileClose 
  21.          Caption         =   "Close"
  22.       End
  23.       Begin VB.Menu separator0 
  24.          Caption         =   "-"
  25.       End
  26.       Begin VB.Menu FileExit 
  27.          Caption         =   "Exit"
  28.       End
  29.    End
  30.    Begin VB.Menu EditMenu 
  31.       Caption         =   "Edit"
  32.       Begin VB.Menu EditUndo 
  33.          Caption         =   "Undo"
  34.       End
  35.       Begin VB.Menu Separator1 
  36.          Caption         =   "-"
  37.       End
  38.       Begin VB.Menu EditCopy 
  39.          Caption         =   "Copy"
  40.       End
  41.       Begin VB.Menu EditCut 
  42.          Caption         =   "Cut"
  43.       End
  44.       Begin VB.Menu EditPaste 
  45.          Caption         =   "Paste"
  46.       End
  47.       Begin VB.Menu EditSelect 
  48.          Caption         =   "Select All"
  49.       End
  50.    End
  51.    Begin VB.Menu FormatMenu 
  52.       Caption         =   "Format"
  53.       Begin VB.Menu FormatLeft 
  54.          Caption         =   "Align Left"
  55.       End
  56.       Begin VB.Menu FormatMiddle 
  57.          Caption         =   "Align Middle"
  58.       End
  59.       Begin VB.Menu FormatCenter 
  60.          Caption         =   "Align Right"
  61.       End
  62.    End
  63.    Begin VB.Menu SpecialMenu 
  64.       Caption         =   "Special"
  65.       Begin VB.Menu Special1 
  66.          Caption         =   "Option 1"
  67.       End
  68.       Begin VB.Menu Special2 
  69.          Caption         =   "Option 2"
  70.       End
  71.       Begin VB.Menu Special3 
  72.          Caption         =   "Option 3"
  73.       End
  74.       Begin VB.Menu separator2 
  75.          Caption         =   "-"
  76.       End
  77.       Begin VB.Menu Special4 
  78.          Caption         =   "Option 4"
  79.       End
  80.       Begin VB.Menu Special5 
  81.          Caption         =   "Option 5"
  82.       End
  83.       Begin VB.Menu Special6 
  84.          Caption         =   "Option 6"
  85.       End
  86.    End
  87.    Begin VB.Menu HelpMenu 
  88.       Caption         =   "Help"
  89.       Begin VB.Menu HelpTopics 
  90.          Caption         =   "Help Topics"
  91.       End
  92.       Begin VB.Menu HelpIndex 
  93.          Caption         =   "Index"
  94.       End
  95.       Begin VB.Menu separator3 
  96.          Caption         =   "-"
  97.       End
  98.       Begin VB.Menu HelpAbout 
  99.          Caption         =   "About"
  100.       End
  101.    End
  102. Attribute VB_Name = "MDIScrollForm"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. '  ******************************
  108. '  ******************************
  109. '  ** MASTERING VB6            **
  110. '  ** by Evangelos Petroutos   **
  111. '  ** SYBEX, 1998              **
  112. '  ******************************
  113. '  ******************************
  114. Private Sub MDIForm_Initialize()
  115.     MDIScrollForm.Show
  116.     MDIScrollForm.Enabled = False
  117.     ContainedForm1.Show
  118.     ContainedForm2.Top = ContainedForm1.Top
  119.     ContainedForm2.Left = ContainedForm1.Left + ContainedForm1.Width
  120.     ContainedForm2.Show
  121.     ContainedForm3.Top = ContainedForm2.Top
  122.     ContainedForm3.Left = ContainedForm2.Left + ContainedForm2.Width
  123.     ContainedForm3.Show
  124.     MDIScrollForm.Height = ContainedForm1.Height + 70 * Screen.TwipsPerPixelY
  125.     MDIScrollForm.Enabled = True
  126. End Sub
  127.