第十一章菜单程序设计

《第十一章菜单程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

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

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

5、ol.exe",1)EndSubPrivateSubYX2_Click()N=Shell("C:ProgramFilesWindowsNTPinballPINBALL.EXE",1)EndSubPrivateSubGJ1_Click()N=Shell("NOTEPAD.exe"+""+"d:计算机课件常用软件注册码公布",1)EndSubPrivateSubGJ2_Click()N=Shell("c:winntsystem32mspaint.exe"+""+"d:计算机课件素材1111.gif",1)EndSubPrivateSubGJ3_Click()

6、N=Shell("C:ProgramFilesMicrosoftOfficeOfficeWINWORD.exe",1)EndSubPrivateSubQUIT_Click()EndEndSub[例11.1-1]菜单调外部程序11.4设计弹出菜单用PopupMenu方法可显示弹出式菜单[对象.]PopupMenu菜单控件名称若“对象”缺省，则在当前窗体中显示弹出菜单通常，按下鼠标右键时显示弹出菜单，例如：PrivateSubForm或控件名称_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfBu

7、tton=2Then'如果按的是鼠标右键PopupMenu菜单名'显示弹出菜单EndIfEndSub[例11.2]弹出菜单设计(1)打开例11.2所建立的工程(2)添加如下的事件过程：PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumnuEdit'弹出名称为mnuEdit的菜单EndIfEndSub注：若要创建一个不显示在菜单栏中的弹出菜单，