Visual Basic程序设计案例教程第6章.pptVIP

工具栏的图标为空白。在工具栏上单击鼠标右键，在弹出的快捷菜单中选择属性，即可打开属性对话框 。“通用”选项卡中的“图像列表”属性是用来与ImageList控件建立关联。建好的ImageList控件中的工具按纽将被显示在Toolbar控件中。 图6-10 “通用”标签 选择“按纽”选项卡，按纽选项卡下各键功能如下： 插入按纽和删除按纽：用于向Toolbar控件插入和删除按纽 索引与关键字：集合中每个按纽都有唯一的标识，索引与关键字用于标识 标题与描述：显示在按纽上的文字以及按纽的说明信息 值：决定按纽的状态 样式：决定按纽的行为特点 宽度：设置按纽的宽度 图像：按纽上显示图片在ImageList控件中的编号工具栏提示文本：程序运行时，当鼠标指向按纽时显示的说明文字。 图6-11 “按钮“标签 3、ImageList控件 向工具栏中添加ImageList控件的步骤为： （1）向主窗体中添加ImageList控件。 （2）使用鼠标右键单击窗体中的ImageList控件，在弹出菜单中选择“属性”，打开“属性页”对话框 。 图6-12 “属性页”对话框 (3)单击“插入图片”按纽，在图6-13的“选定图片”对话框中将所需使用的按纽图片加入到图像框中。 图6-13 选定图片对话框 (4)“图像列表”选项中ImageList控件的名称建立Toolbar控件的关联。 例6-4 为“学生信息管理系统”设计一个工具栏。工具栏中包括有五个按钮，用于打开增加用户窗体，打开查询档案窗体，打开查询成绩窗体，打开查询交费窗体，打开课程查询窗体。 （1）工具箱中选择工具栏控件，将鼠标移至窗体主菜单下最左，按下鼠标左键，向右下方拖动至适合位置，如下图6-12所示，即可为“学生信息管理系统”添加工具栏。 图6-14 “学生信息管理系统”中的空白工具栏 (2)在图6-13中，选中工具栏，单击鼠标右键，即可打开工具栏的属性对话框。在“按纽”标签中，单击插入按钮命令按键，连续插入五个按钮，并将五个按纽的索引值分别为设置为1，2，3，4，5 如下图5-15所示。 图6-15 工具栏中加入5个按钮 (3)在工具箱中选择ImageList控件，在主窗体添加ImageList控件，使用鼠标右键单击ImageList控件，在弹出菜单中选择属性，即可打开属性对话框，在如下图6-16所示，在图像标签中，点击插入图片按钮，在选定图片对话框中为工具栏按钮选择所使用的图片。 图6-16 ImageList控件加入5个按钮图片 (4)将ImageList控件命令为ImageList1，在Toolbar控件“通用对话框”的“图像列表”选项中与Toolbar控件相关联，如图6-17所示。 图6-17 图像列表中与ImageList1相关联 (5)编写工具栏按纽事件代码如下。 Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Frm_AddUser.Show 1 ‘显示增加用户窗体 Case 2 Frm_FindDangA.Show 1 ‘显示打开查询档案窗体 Case 3 Frm_FindChengJ.Show 1 ‘显示打开查询成绩窗体 Case 4 Frm_FindGrean.Show 1 ‘显示课程查询窗体 Case 5 Frm_FindStruJF.Show 1 ‘显示查询交费窗体 End Select End Sub 在ButtonClick响应事件中将五个按钮的功能分别定义为打开增加用户窗体，打开查询档案窗体，打开查询成绩窗体，打开查询交费窗体，打开课程查询窗体。 （6）运行程序效果 图6-18 例6-4运行效果图 6.3.3 对话框设计 在应用程序，对话框应用随处可见，VB为编程者提供了一组通用对话框用来完成一般的对话框的调用，分别为打开对话框（Open）、另存为（Save as）、颜色（Color）、字体（Font）、打印机（Printer）、帮助（Help）。 1、添加通用对话框控件 通用对话框并不是一个标准控件，它是一个ActiveX控件，所以一般不会出现在工具箱中，要在程序中使用它，首先要将它加入到工具箱中。 将通用对话框加入到工具箱的步骤为： （1）单击工程菜单，在弹出的下拉菜单中单击“部件”菜单项（或右键单击控件工具箱，在弹出的快捷菜单中选择部件）即可打开如图6-19所示的对话框。 图6-19