进阶篇 共28页[1 2 3 4 5 6 7 >»<.. 最后一页]

  创建(窗口)菜单

   大多数MDI应用程序都有一个[窗口]菜单，在该菜单中包含有层叠、平铺和排列图标等设置子窗体排列方式的命令，还显示有所有已打开的子窗体列表，从中可方便地选择要激活的子窗体。如图所示的是VB的[窗口菜单。

如果要在MDI窗体的某个菜单中显示子窗体列表，可以在[菜单编辑器]    对话框中选中该菜单的[显示窗口列表]复选框，或者在[属性]窗口中将WindowsList属性的值设置为True。不需要用户编写任何代码。

MDI窗体的Arrange方法可以使子窗体按一定的规律排列。Arrange方法的一般格式为：
    MDI窗体名..Arrange 参数
    其中“参数”是一个整数，表示所使用的排列方式，系统共提供了四种排列方式，如表所示。
符号常数        对应值    含义
VbCascade       0         使各子窗体层叠排列
VbTileHorizonal 1         使各子窗体水平平铺
VbTileVertical  2         使各子窗体垂直平铺
VbArrageIcons   3         当各子窗体最小化后，可使图标重新排列

实例创建[窗口]菜单

为上例添加一个[窗口]菜单，如图所示：

菜单设计如下图所示：

在代码窗口中编写菜单项的Click事件过程如下：

Private Sub MenW_Click(Index As Integer)
     Select Case Index
     Case 0
       MDIForm1.Arrange 0
     Case 1
       MDIForm1.Arrange 1
     Case 2
       MDIForm1.Arrange 2
     Case 3
       MDIForm1.Arrange 3
     End Select
     End Sub

运行程序执行[新建]命令新建几个窗体。新建的子窗体在默认情况下以层叠方式排列。打开[窗口]菜单，可以发现在菜单列表中显示有当前子窗体的列表，如图所示

单击[水平平铺]，子窗体的排列如下图：

    单击[垂直平铺]，子窗体的排列如下图：