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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!