Vb工程--百例91--排列窗口

Option Explicit

Private Sub MDIForm_Load()
          Form1.Show '显示窗体form1
          Form2.Show
          Form3.Show
End Sub

Private Sub mnuquit_Click()
        End
End Sub

此例子的重点知识： 'MDI窗体的arrange属性 0 重叠排列子窗体 1水平排列子窗体2 竖直排列子窗体3 排列窗体的最小化图标
Private Sub mnuwinc_Click()
        MDIForm1.Arrange 0 '将MDI窗体中的3个子窗体层叠排列
End Sub

Private Sub mnuwinh_Click()
        mdiform2.Arrange 1 '将MDI窗体中的3个子窗体水平平铺
End Sub

Private Sub mnuwinv_Click()
        mdiform3.Arrange 2 '将MDI窗体中的3个子窗体垂直平铺
End Sub