mdiform1.frm

蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 Visual Basic 程序设计教程（第四版） 主编 蒋加伏 张林峰 找了好久的（不带密码的）

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "例[14-3] MDI文本书写器"
   ClientHeight    =   2970
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   5340
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu File 
      Caption         =   "文件"
      Begin VB.Menu FileNew 
         Caption         =   "新窗体"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu Win 
      Caption         =   "窗体重排"
      Begin VB.Menu Cascade 
         Caption         =   "层叠所有窗体"
      End
      Begin VB.Menu Horizontal 
         Caption         =   "水平平铺所有窗体"
      End
      Begin VB.Menu Vertical 
         Caption         =   "垂直平铺所有窗体"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    NoOfWin = 1              '子窗口标题序号，是全局变量
    Form1.Show
    Form1.Caption = "无标题" & NoOfWin
End Sub
Private Sub FileNew_Click()
    Dim NewDoc As New Form1   '新建一个子窗体
    NewDoc.Show
    NoOfWin = NoOfWin + 1     '子窗口标题序号加1
    NewDoc.Caption = "无标题" & NoOfWin
End Sub
Private Sub Exit_Click()
    End
End Sub

Private Sub Cascade_Click()
    MDIForm1.Arrange vbCascade   '层叠
End Sub
Private Sub Horizontal_Click()
    MDIForm1.Arrange vbTileHorizontal '水平平铺
End Sub
Private Sub Vertical_Click()
    MDIForm1.Arrange vbTileVertical '垂直平铺
End Sub