1.7菜单与工具栏的设计.ppt

菜单编辑窗口简介 下拉式菜单 弹出式菜单  制作工具栏 一、 菜单编辑器窗口简介 一、菜单编辑器的使用 工具／菜单编辑器(Ctrl+E)； 窗体上快显菜单／菜单编辑器。 二、下拉式菜单 例] 创建简易编辑器 (2) 设计界面 菜单下面绘制两条直线(两个Line控件)，一条为黑色，一条为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3 (3) 编写菜单控件的Click事件过程 三、弹出式菜单 显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单，仅该菜单名不可显示；要显示时使PopupMenu方法弹出菜单。 语句格式： If Button=2 Then 对象.PopupMenu菜单名，Flags，X，Y End if 其中： 对象—窗体名，若“对象”缺省，则在当前窗体中显示弹出菜单 。 菜单名—在菜单编辑器中定义的主菜单名。 Flags，X，Y—可定义的快捷菜单在窗体上的显示位置 [例] 弹出菜单设计 (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) 将ImageList控件和Toolbar控件添加到工具箱中， 然后添加到窗体上。 (2) 为窗体上的ImageList控件添加所需的图像。 (3) 建立ToolBar控件与ImageList控件之间的关联。 (4) 对ToolBar上的按钮编写Click事件响应代码。 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 …… E