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