Visual Basic程序设计教程第09章.pptVIP

（4）设置控件的ToolTipText属性，给控件添加适当的文字提示，运行时，鼠标指向控件时就会显示该文字提示。 （5）为各工具栏控件编写代码，完成相应的功能。 【例9-4】使用手工方式为【例9-3】添加工具栏，实现编辑菜单下的复制、剪切、粘贴功能。 Picture1 * 代码设计：为3个工具栏按钮的Click事件过程编写代码，在代码中可以直接调用“编辑”菜单下的“复制、剪切、粘贴”子菜单项的Click事件过程，具体如下： Private Sub Command1_Click() 复制 txtCopy_Click End Sub Private Sub Command2_Click() 剪切 txtCut_Click End Sub Private Sub Command3_Click() 粘贴 txtPaste_Click End Sub * 使用ActiveX控件：ToolBar控件创建工具栏更方便、快捷，创建出的工具栏与Windows工具栏风格更加统一。 使用ToolBar控件之前，首先要将其添加到工具箱中。 使用ToolBar控件设计基本步骤如下。 （1）设置ImageList控件。在窗体的任意位置画一个ImageList控件，打开ImageList的“属性页”对话框，在 “图像”选项卡中插入需要的图像，VB会按添加次序给每幅图像设置一个索引号，该索引号将在定义工具栏时使用。 9.2.2 使用工具栏控件制作工具栏 * （2）在窗体上任意位置画一个ToolBar控件，如果不希望工具栏出现在窗体的顶部，也可以修改其Align属性使其出现在窗体的底部、左侧或右侧。 （3）设置ToolBar控件的“属性页”。打开Toolbar控件的“属性页”对话框，在该属性页中设置整个工具栏及各按钮的属性。 * （4）编写代码。如果要在单击工具栏按钮时执行一定的操作，可以在窗体上双击工具栏控件，打开其ButtonClick事件过程，将代码添加到ButtonClick事件过程中。如果要在单击按钮菜单时执行操作，需要在代码窗口中选择Toolbar控件的ButtonMenuClick事件过程，在该事件过程中编写代码。 【例9-5】　用Toolbar控件设计工具栏。在例9-3的基础上添加工具栏，实现“编辑”菜单下的复制、剪切、粘贴功能；“格式”菜单下的左对齐、居中、右对齐、删除线、下划线、斜体、粗体功能。 * 复制、剪切、粘贴功能，可以使用命令按钮实现； 左对齐、居中、右对齐功能，可以使用选项按钮实现； 删除线、下划线、斜体、粗体，可以使用复选按钮实现。 ImageList1 ToolBar1 * 添加ToolBar控件和ImageList控件。 设置ImageList控件的属性：打开 “属性页”对话框，在“图像”选项卡中添加工具栏按钮所需要的各图像，记下各图像对应的索引。 设置ToolBar1控件的属性：打开 “属性页”对话框，在“通用”选项卡的“图像列表”中选择ImageList1，使ToolBar控件与ImageList控件相关联。在“按钮”选项卡上依次添加按钮，按书中表9-5设置各按钮的属性。 * 代码设计：由于各工具栏按钮的功能都是菜单功能的重复，因此可以直接在Toolbar1的ButtonClick事件过程中调用相应的菜单项的事件过程。 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 txtCopy_Click 复制 Case 2 txtCut_Click 剪切 Case 3 txtPaste_Click 粘贴 * Case 5 txtleft_Click 左对齐 Case 6 txtCenter_Click 居中 Case 7 txtRight_Click 右对齐 Case 9 txtStrikethru_Click 删除线 Case 10 txtUnderLine_Click 下划线 Case 11 txtItalic_Cli