新VisualBasic实用教程 薛亮 第8章.pptVIP

如果MDI子窗体具有大小可变的边框(即BorderStyle＝2)，在其显示时，Windows将决定其初始的高度、宽度和位置。边框大小可变的子窗体，其初始大小与位置取决于MDI窗体的大小，而不是设计时子窗体的大小；当MDI子窗体的边框大小不可变 (即BorderStyle=0，1或3)时，则它的大小由设计时的Height和Width属性决定。 与卸载普通窗体一样，卸载MDI窗体及其子窗体也是使用Unload语句。例如，如果要卸载frmMDIChild1，则应该使用Unload frmMDIChild1语句。 8.2.3 维护子窗体的状态信息 在用户决定退出MDI应用程序时，必须有保存信息的机会。为此，应用程序必须随时都能确定自上次保存以来子窗体中的数据是否有所改变。 通过在每个子窗体中声明一个公用变量来实现保存信息的功能。例如，可以在子窗体的声明部分声明一个变量： Public boolDirty As Boolean 假定子窗体1中有一个文本框Text1，Text1中的文本每一次改变时，文本框的Change事件就会将boolDirty设置为True。可添加一行代码以指示自上次保存以来Text1的内容已经改变。 Sub Text1_Change( ) boolDirty =True End Sub 反之，用户每次保存子窗体的内容时，都将boolDirty设置为False，以指示Text1的内容不再需要保存。在下列代码中，假设有一个叫做“保存”(mnuFileSave)的菜单命令和一个用来保存文本框内容的名为FileSave的过程： Sub mnuFileSave_Click( ) 保存Text1的内容 FileSave 设置状态变量 BoolDirty =False End Sub 8.2.4 用QueryUnload卸载MDI窗体 当用户决定退出应用程序时，boolDirty标志就很有用了。当用户从MDI窗体的控制菜单框中选择“关闭”命令，或者选择提供的菜单项，例如“文件”菜单上的“退出”命令时，上述情况就会出现。如果用户使用MDI窗体的“控制”菜单来关闭应用程序，Visual Basic将试图卸载MDI窗体。 当MDI窗体被卸载时，MDI窗体首先触发QueryUnload事件，然后每一个打开的子窗体也都触发该事件。如果在这些QueryUnload事件过程中没有代码，则取消QueryUuload事件，然后，每一个子窗体被卸载，最后，MDI窗体被卸载。 由于QueryUnload事件在窗体卸载之前被触发，因此在窗体卸载前给用户一个机会来保存窗体。下述代码使用boolDirty标志来决定是否要提醒用户在子窗体卸载之前进行保存。请注意，可以在工程的任何地方访问公共窗体级变量值。下面的代码假定有一个名叫FileSave的过程，它将Text1的内容保存到一个文件中。代码如下： Sub mnuExit_Click( ) 当用户在MDI应用程序中选取文件／退出命令时，卸载 MDI窗体，为每个打开的子窗体触发QueryUnload事件 Unload frmMDI End End Sub Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If boolDirty Then 调用例程来询问用户且必要时保存文件 FileSave End If End Sub 8.2.5 多文档界面应用程序中的“窗口”菜单 大多数MDI应用程序都有“窗口”菜单。在“窗口”菜单上显示了所有打开的子窗体标题，另外还有层叠、平铺和排列图标命令。 在Visual Basic中，如果要在某个菜单上显示所有打开的子窗体标题，只需利用菜单编辑器将该菜单的WindowList属性设置为True，即选中显示窗口列表检查框。 对于窗体或子窗体图标的层叠、平铺和排列图标命令通常也放在“窗口”菜单上，是用Arrange方法来实现的，下面是这三个菜单命令的事件过程。 假定MDI窗体名称为frmMDI，层叠、平铺和排列图标菜单项的名称分别为mnuWindow-Cascade、mnuWindowTile和mnuWindowArrange。 vbCascade、vbTileHorizon