课件：VBvisualbasic.pptVIP

　　　【例8.4.2】在例题8.4.1的菜单栏上，添加“窗口”菜单，此菜单具有对文档窗口进行“层叠式”、“水平平铺”、“垂直平铺”排列的功能。 　　　具体步骤如下： 　　　1.使用“菜单编辑器”添加“窗口”菜单，并且添加“层叠”、“水平平铺”、“垂直平铺”命令。它们的属性设置见表8.4.3 标题 名称 类别 窗口(W) MnuWindows 主菜单 层叠 MnuWindowsA1 子菜单 水平平铺 MnuWindowsA2 子菜单 垂直平铺 MnuWindowsA3 子菜单 表8.4.3 “窗口”菜单的属性设置 2.在MDIFrm窗体中添加以下代码： 　　Private Sub MnuWindowsA1_Click() 　　MDIFrm.Arrange 0 　　End Sub 　　Private Sub MnuWindowsA2_Click() 　　MDIFrm.Arrange 1 　　End Sub 　　Private Sub MnuWindowsA3_Click() 　　MDIFrm.Arrange 2 　　End Sub 　　　这样就可以实现窗口 的各种排列效果了。水平平 铺的效果如图8.4.6所示。 图8.4.6 水平平铺窗口 8.4.5 在MDI窗体添加工具栏 　　　作为一个完整的文档窗口，就像word窗口一样，MDI窗口也应该具有工具栏和状态栏。制作工具栏有两种方法：一是手工制作，即利用图形框和命令按钮来制作，比较繁琐；另外一种方法是通过组合使用ToolBar、ImageList控件，这种方法简单易学。 　　　上述三种控件必须在“工程”菜单中的“部件”对话框中进行添加。具体方法是单击“工程”菜单中的“部件”命令，打开“部件”对话框。在“部件”对话框中选择“Microsoft Windows Common Controls 6.0”，然后点击确定。这样，会在VB的工具箱上显示出新添加的部件，如图8.4.7所示 图8.4.7 工具箱上添加的新控件 　　　添加部件后，首先要将按钮的图标文件装入ImageList控件内，具体操作如下： 　　　1.双击ImageList控件，在MDI窗体上将会出现默认名为“ImageList1”的控件，这时右键单击该控件，选择“属性”命令，调出“属性页”对话框，并选择“图像”选项卡（如图8.4.8所示）。 　　　2.点击“插入图片”按钮，插入按钮图标文件。 图8.4.8 “ImageList1”控件属性页设置图 　　　在该属性页上，每插入一张图片，该图片相对应的索引值（Index）会自动加1，关键字（Key）中的内容必须自定义。上图8.4.8中可知，本例中一共加入了9张图片，作为按钮图标。 　　　这样，ImageList1中的按钮图标就全部添加完毕。要注意的是，ImageList1控件只是一个存放图片的容器，它存放的图片将在后面使用ToolBar控件添加按钮时提供图标的链接。ImageList控件只能在设计阶段显示，而在程序运行阶段是无法看到的，这种特性类似于时钟Timer控件。 　　　接下来就要使用ToolBar控件来添加工具栏的按钮了。具体方法如下： 　　　1.在工具箱上双击“ToolBar”控件，MDI窗体的菜单栏下方将会出现一条灰色的工具栏区域，这就是“ToolBar1”控件。右键单击“ToolBar1”控件，选择“属性”命令，在弹出的“属性页”对话框的“通用”选项卡中进行设置（如图8.4.9）。 　　　在这个界面中，在图像列表下拉列表中选择“ImageList1”，即将按钮的图像与“ImageList1”相关联起来。一旦“ImageList1”与“ToolBar”相关联，“ImageList1”中的图 图8.4.9 “ToolBar1”属性页“通用”选项卡界面 　　　在该界面上，“图像”中填入的是“ImageList1”中图像的索引值，该索引值对应的图像将作为插入按钮的图标。“关键字”中自定义该按钮的关键字，在编写按钮事件时将用到。“工具提示文本”中填入鼠标放在按钮上需要显示出的说明文字。在“样式“下拉列表中有五个选项：它们的含义见表8.4.4： 值 常数 按钮 含义 0 thrDfault 普通按钮 按钮按下后恢复原态，如“新建” 按钮 1 ThrCheck 开关按钮 按钮按下后将保持按下状态，如“加粗”按钮 2 ThrButtonGroup 编组按钮 一组按钮同时只能一个有效，如“右对齐”按钮 3 ThrSepatator 分隔按钮 把左右的按钮分隔开的按钮（相当于空格） 4 ThrPlaceholder 占位按钮 可以用来安放其他的控件，只需设置按钮宽度 5 thrdropdown 菜单按钮 其有下拉式菜单，如Word中的“字符缩放”按钮 表8.4.