VB(6.2)为写字板添加工具栏概念.ppt

汝南县职业教育中心 汝南县职业教育中心 汝南县职业教育中心 Visual Basic 6.0程序设计 第6章 菜单和工具栏设计 ————任务2为写字板添加工具栏 *／9 第5章目录 任务1 制作写字板程序 【知识点】 工具栏控件（Toolbar） 图像列表控件(ImageList) *／9 任务1 制作写字板程序 Toolbar\ ImageList控件不是标准控件，使用之前要把它们添加到工 具箱中，具体操作方法是: (1) 右键单击【工具箱】空白位置，选择弹出菜单中的【部件】命令，弹出【部件】对话框； (2) 在对话框的【控件】列表框中选择MicorSoft Windows Common Controls 6.0选项(使该选项前的复选框中出现对钩)； (3)单击【确定】按钮。 此后，在工具箱中增加一组控件 第5章目录 *／9 任务1 制作写字板程序 设计工具栏的主要步骤是： (1) 将Toolbar和ImageList添加到窗体。Toolbar自动显示在窗体顶部，ImageList运行程序时不可见，它只是存放图标的数据库。 (2)为ImageList添加所需图标。 (3)创建Toolbar的按钮对象。 (4) 编写按钮对象的事件过程。 第5章目录 *／9 任务1 制作写字板程序 1、工具栏控件(Toolbar)： 用途：包含一个Button对象集合，用于创建与应用程序相关联的工 具栏。ToolBar1.Buttons.Add(一) ToolBar1.Buttons.Remove(二) 常用属性如下： Buttons：返回对Toolbar控件的Button对象集合的引用； 语法： Toolbar.Buttons(index) toolbar 对象表达式，其值是 Toolbar 控件。 index 整数或字符串，它唯一标识集合中的对象。整数是 Index 的 属性值（ Index 属性是从数字 1 开始）;字符串是 Key 的属性值。 例： Dim btnX As Button 通过索引数字引用第三个 Button 对象。 Set btnX = Toolbar1.Buttons(3) 或通过唯一关键字引用第三个 Button 对象。 Set btnX = Toolbar1.Buttons(third) 假设 Key 是third。 第5章目录 *／9 任务1 制作写字板程序 1、工具栏控件(Toolbar)： 用途：包含一个Button对象集合，用于创建与应用程序相关联的工 具栏。 常用属性如下： Imagelist：返回或设置与工具栏相关联的ImageList控件； 语法： Toolbar. Imagelist(=imagelist) 例：Set ToolBar1.ImageList = ImageList1 常用事件：ButtonClick 当单击工具栏控件内的按钮对象时发生 使用 Select Case 语句和MSComctlLib类来确定单击的工具栏按钮。 返回值为Toolbar 的Key值 或索引值 例：Private Sub Toolbar1_ButtonClick(ByVal Button As … Select Case Button.Key （Select Case Button.Index） Case New mnuFileNew_Click End Select 第5章目录 *／9 任务1 制作写字板程序 2、图像列表控件(ImageList)： 用途：包含ListImage对象集合，通过索引或关键字被引用，不能 单独使用。 第5章目录 *／9 任务1 制作写字板程序 2、图像列表控件(ImageList)： 用途：包含ListImage对象集合，通过索引或关键字被引用，不能 单独使用。 第5章目录 Visual Basic 6.0程序设计本节内容结束 谢谢 * 汝南县职业教育中心 汝南县职业教育中心 汝南县职业教育中心 *