第十一章菜单程序设计.ppt

1、菜单程序设计,第十一章,11.1 VB中的菜单,菜单的类型 下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动菜单，其菜单项取决于按下鼠标右键时指针所处的位置。 VB中的菜单控件 菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性 名称(Name)：程序代码中用来引用菜单控件 标题(Caption)：出现在控件上的文本 菜单控件只响应Click事件,11.2 “菜单编辑器”对话框,工具栏快捷键：Alt+E。键盘快捷键：CTRL+E。,打开菜单编辑器： “工具菜单编辑器” 工具栏“菜单编辑器”按钮 1. 常用属性 标题：设置Caption属性

2、字符前加&，该字符成为访问键 只输入一个减号- ，创建分隔条 名称：设置Name属性 注：对分隔条，也需定义名称 索引(Index)：用于菜单控件数组 快捷键 、 复选(Checked) 有效(Enabled)、 可见(Visible),2. 编辑菜单控件,如果菜单控件的前面没有内缩符号“”，表明该控件建立的是主菜单，否则为菜单命令或子菜单。,对话框选项 1,“标题” 使用该选项可以输入菜单名或命令名，这些名字出现在菜单条或菜单之中。 如果想在菜单中建立分隔符条，则应在Caption 框中键入一个连字符 (-)。 为了能够通过键盘访问菜单项，可在一个字母前插入 & 符号。在运行时，该字母带有下

3、划线（& 符号是不可见的），按 ALT 键和该字母就可访问菜单或命令。如果要在菜单中显示 & 符号，则应在标题中连续输入两个 & 符号。 “名称” 允许为菜单项输入控件名。控件名是标识符，仅用于访问代码中的菜单项；它不会出现在菜单中。,对话框选项 2,“复选” 允许在菜单项的左边设置复选标记。通常用它来指出切换选项的开关状态。 “激活的” 由此选项可决定是否让菜单项对事件做出响应，而如果希望该项失效并模糊显示出来，则也可清除事件。 “可视的” 将菜单项显示在菜单上。,对话框选项 3,“右箭头” 每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。 “左箭头” 每次单击都把选定的菜

4、单向上移一个等级。一共可以创建四个子菜单等级。 “上箭头” 每次单击都把选定的菜单项在同级菜单内向上移动一个位置。 “下箭头” 每次单击都把选定的菜单项在同级菜单内向下移动一个位置。,方法：先通过菜单编辑器设计菜单，然后编写各菜单控件的Click事件过程。 例11.1 创建简易编辑器 (1) 设计菜单,11.3 程序例子,例11.1 创建简易编辑器 (2) 设计界面 菜单下面绘制两条直线(两个Line控件)，一条为黑色，一条为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3 (3) 编写菜单控件的C

5、lick事件过程,Private Sub YX1_Click() N = Shell(Path & sol.exe, 1) End Sub Private Sub YX2_Click() N = Shell(C:Program FilesWindows NTPinballPINBALL.EXE, 1) End Sub Private Sub GJ1_Click() N = Shell(NOTEPAD.exe + + d:计算机课件常用软件注册码公布, 1) End Sub Private Sub GJ2_Click() N = Shell(c:winntsystem32mspaint.exe

6、+ + d:计算机课件素材1111.gif, 1) End Sub Private Sub GJ3_Click() N = Shell(C:Program FilesMicrosoft OfficeOfficeWINWORD.exe, 1) End Sub Private Sub QUIT_Click() End End Sub,例11.1-1 菜单调外部程序,11.4 设计弹出菜单,用PopupMenu方法可显示弹出式菜单 对象.PopupMenu 菜单控件名称 若“对象”缺省，则在当前窗体中显示弹出菜单 通常，按下鼠标右键时显示弹出菜单，例如： Private Sub Form或控件名称_

7、MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 如果按的是鼠标右键 PopupMenu 菜单名 显示弹出菜单 End If End Sub,例11.2 弹出菜单设计 (1) 打开例11.2所建立的工程 (2) 添加如下的事件过程： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Popup

8、Menu mnuEdit 弹出名称为mnuEdit的菜单 End If End Sub 注：若要创建一个不显示在菜单栏中的弹出菜单，设计菜单时，需取消主菜单的“可见”复选框。,11.5 工具栏和状态栏,11.5.1 工具栏(ToolBar),工具栏为用户带来比用菜单更为快速的操作为窗 体添加工具栏，应使用工具条(ToolBar)控件和图像控 件列表(ImageList)控件.,ToolBar、ImageList控件都是ActiveX控件，使用这些控件前必须先将这些控件添加到工具箱中。添加的方法有两种： 通过“工程”菜单“部件”命令弹出对话框，在“控件”选项卡中选择Microsoft Commo

9、n Control 6.0选项，单击“确定”。 用鼠标右击工具箱，弹出快捷菜单，选“部件”命令。后续操作同上。,创建工具栏的大致步骤： (1)添加ToolBar控件和ImageList控件 (2)用ImageList控件保存要使用的图形 (3)创建ToolBar控件，并将ToolBar控件与ImageList控 件相关联，创建Button对象 (4)编写Button的Click事件过程。 单击工具栏控件时触发Click事件，单击工具栏上按 钮时触发ButtonClick事件，并返回一个Button参数(表 明按下哪个按钮),工具栏的设计-1,1. 添加工具栏控件 (1) “工程部件”，选Mic

10、rosoft Windows Common Controls 6.0,工具栏的设计,(2) 用 在窗体任意位置添加一个ImageList控件，名称默认 为ImageList1 (3) 用 在窗体上添加一个Toolbar控件(该控件自动位于菜 单栏的下面) ，其名称默认为Toolbar1。,工具栏的设计-2,2. 为窗体上的ImageList控件添加所需的图像 右击窗体上的ImageList控件，选择“属性”命令 “通用”选项卡：设置按钮大小 “颜色”选项卡：设定按钮的颜色 “图像”选项卡：选择要加入的图像,工具栏的设计,“图像”选项卡：选择要加入的图像,工具栏的设计,“图像”选项卡：定义“关键

11、字”(在ToolBar控件中引用的图像标识名),工具栏的设计-3,3. 建立ToolBar控件与ImageList控件之间的关联 右击窗体上的Toolbar控件，选择“属性”命令 “通用”选项卡：“图像列表”选择ImageList1,工具栏的设计,“按钮”选项卡：单击“插入按钮”,工具栏第一个按钮： “索引”：自动变为1 “关键字”：输入ImageList1控件中定义的相应关键字 “图像”：输入“1” 以此类推插入其他按钮,工具栏的设计-4,4. 响应ToolBar控件事件 单击工具栏上的某个按钮，将引发ButtonClick事件 Private Sub Toolbar1_ButtonClic

12、k(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_Butto

13、nClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case “open” 或Case 1，表示单击“打开”按钮 OpenDoc End Select End Sub,“打开”按钮的关键字为open，图像值为1,例11.3,11.5.2 状态栏,状态栏(StatusBar)通常位于窗体的底部，主要用于显示应用程序的各种状态信息。StatusBar控件属于ActiveX控件 StatusBar控件由若干个面板(Panel)组成，每一个面板包含文本和图片。StatusBar控件最多能分成16个Panel对象,状态栏的设计,1. 添加状态栏控件 (1) “工程部件”，选Microsoft Windows Common Controls 6.0 (2) 用 在窗体上添加Statusbar控件(通常位于窗体的底部) (3) 设置窗格属性,“插入窗格”按钮：用于在状态栏上插入窗格，最多16个 “索引”：每个窗格的编