1.7菜单与-工具栏的设计.pptVIP

;菜单编辑窗口简介 下拉式菜单 弹出式菜单  制作工具栏;一、 菜单编辑器窗口简介;一、菜单编辑器的使用 工具／菜单编辑器(Ctrl+E)； 窗体上快显菜单／菜单编辑器。;二、下拉式菜单;三、弹出式菜单;[例] 弹出菜单设计 (1) 打开例子所建立的工程 (2) 添加如下的事件过程： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit 弹出名称为mnuEdit的菜单 End If End Sub 注：若要创建一个不显示在菜 单栏中的弹出菜单，设计菜单时， 需取消主菜单的“可见”复选框。;四、制作工具栏;1. 添加工具栏控件 (1) “工程→部件”，选Microsoft Windows Common Controls 6.0 ;(2) 用 在窗体任意位置添加一个ImageList控件，名称默认 为ImageList1 (3) 用 在窗体上添加一个Toolbar控件(该控件自动位于菜单栏的下面) ，其名称默认为Toolbar1。;2. 为窗体上的ImageList控件添加所需的图像 右击窗体上的ImageList控件，选择“属性”命令 “通用”选项卡：设置按钮大小 “颜色”选项卡：设定按钮的颜色 “图像”选项卡：选择要加入的图像 ;;“图像”选项卡：定义“关键字”(在ToolBar控件中引用的图像标识名);3. 建立ToolBar控件与ImageList控件之间的关联 右击窗体上的Toolbar控件，选择“属性”命令 “通用”选项卡：“图像列表”选择ImageList1;“按钮”选项卡：单击“插入按钮”;4. 响应ToolBar控件事件 单击工具栏上的某个按钮，将引发ButtonClick事件 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) End Sub 根据按钮的关键字(Button.Key)或者图像值(Button.Image)可判断单击的是哪个按钮，然后通过Select Case语句进行相应的处理 例：菜单中有一个“打开”菜单命令(名称为mOpen)，工具栏上有一个“打开”按钮(关键字为open，图像值为1)，单击它们都执行同样的操作(执行OpenDoc过程)，相应的代码如下：;Private Sub mOpen_Click() 单击“打开”菜单命令 OpenDoc End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case “open” 或Case 1，表示单击“打开”按钮 OpenDoc …… End Select End Sub