vb菜单与工具栏设计(9).ppt

修改窗体的事件代码如下： Private Sub Form_Resize() With Text1 Left=0 Top=Picture1.Height Height=Form1.ScaleHeight-Picture1.Height Width=Form1.ScaleWidth End With End Sub 编写命令按钮数组Command1()的Click事件代码如下： Private Sub Command1_Click(index As Integer) File_Click (index) End Sub 编写复选框数组Check1()的事件代码如下： Private Sub Check1_Click(index As Integer) Edi_Click (index) End Sub 9.2.1 任务一 使用ToolBar控件 使用ToolBar控件和ImageList控件来创建工具栏非常容易且很方便。在使用这些控件前必须打开“部件”对话框，选择Microsoft Windows Common Controls 6.0选项，将控件添加到工具中，如图9-14所示。 图9-14 添加控件到工具箱 1．ToolBar控件 控件的插入：在工具箱中选择ToolBar控件，然后在窗体中画出控件。 控件属性的设置： （1）通过设置ToolBar的Align属性可以控制工具栏在窗体中的位置。当改变窗体的大小时，Align属性值非0的ToolBar控件会自动地改变大小以适应窗体的宽度或高度。 （2）右击窗体上的ToolBar控件，在弹出的快捷菜单中选择“属性（Properties）”命令或者选中窗体上的ToolBar控件后在属性窗口单击“自定义（Custom）”下拉列表框右侧的下拉按钮，都可以打开ToolBar的“属性”对话框，如图9-15所示。 图9-15 “属性页”对话框 “通用”选项卡中的“图像列表”属性用来与ImageList控件建立关联（见图9-16），“按钮”选项卡用来在ToolBar控件中添加按钮（见图9-17）。 图9-16 与ImageList控件建立关联 图9-17 在ToolBar中添加按钮 “按钮”选项卡的各项功能如下。 插入删除按钮：在按钮集合中添加或删除按钮元素 索引和关键字：工具栏中的每个按钮都有唯一的标识，即索引和关键字。索引是整型，关键字是字符串型，访问按钮时可以引用二者之一。 标题和描述：标题是显示在按钮上的文字，描述是按钮的说明信息。 值：决定按钮的状态，0-tbrUnpressed为弹起状态，1-tbrPressed为按下状态。 样式：决定按钮的行为特点，并且将影响按钮的功能，如表9-8所示。 宽度：当Style属性值为4时，可设置按钮的宽度。 图像：按钮上显示的图片在ImageList控件中的编号 工具提示文本：程序运行时，当鼠标指向按钮时显示的说明性文字。 2．ImageList控件 工具栏（ToolBar）本身没有Picture属性，不能直接添加按钮上显示的图片。Visual Basic专门提供了图像列表控件ImageList，此控件不单独使用，专门为其他控件提供图像库，是一个图像容器控件。工具栏按钮的图像就是通过ToolBar控件从ImageList的图像库中获得的。 控件的插入： 在ToolBar控件所在的窗体中添加ImageList控件及其图片，然后建立ToolBar和ImageList控件之间的关联，最后从ImageList控件的图片库中选择需要的图像加载到工具栏按钮上。 3．创建工具栏的步骤 （1）有窗体中插入工具栏控件（如ToolBar1）和一个图像列表控件（如Imagelist1），并设置工具栏控件的Align属性。 （2）在Imagelist控件中添加所需的图像。 （3）在ToolBar控件中创建按钮（Button）对象。 （4）在工具栏（如ToolBar1）的ButtonClick事件中用Select Case语句对各按钮进行相应的编程。 【例9-5】使用工具栏控件重新设计例9-4中的简易文本编辑器，如图9-18所示。 图9-18 利用工具栏控件设计的带工具栏的简易文本编辑器 在例4-2的基础上进行操作。 （1）修改应用程序用户界面。将窗体上的图片框及其中的命令按钮及复选框删除，再添加一个工具