visual bisic程序设计教程 第九节.ppt

9.3 菜单设计 标题(caption)：运行时各项菜单的字面解释，即在菜单中显示的自定义文本。 名称(Name)：菜单名称，用于唯一识别该菜单，也是运行时单击该菜单项所执行的 事件过程的名称。 索引(Index)：如建立菜单数组，必须使用该属性，作为菜单控件数组的索引号。利用菜单控件数组可以动态地增加或删除菜单项；另外，还可以简化编程。 快捷键(ShortCut)：在该下拉列表框中可以为调用事件过程确定快捷键，缺省的表项是None。快捷键将显示在菜单项后，如“打开文件Ctrl+O”。 复选：设置下拉菜单项的Checked属性。当该属性为True时，在下拉菜单项前面显示一个复选标志。若某菜单项有复选标志，再选时无复选标志 有效：设置下拉菜单项的Enabled属性，缺省值为True。若要在程序运行时使某个菜单项不可选，可设置其为False。 可见： 菜单项移动按钮： “下一个”按钮： “插入”按钮： 9.2.3 下拉式菜单 9.2 菜单设计 下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜单栏包括一个或多个选择项，称为菜单标题。 当单击一个菜单标题时，包含菜单项的列表(即菜单)被打开，在列表项目中，可以包含分隔条和子菜单标题(其右边含有三角的菜单项)等。当选择子菜单标题时又会“下拉”出下一级菜单项列表，称为子菜单。 9.2 菜单设计 例：建立一个下拉式菜单，通过菜单来控制文本框中文字的字体、颜色等。程序运行如下图： 1、界面设计： （1）在窗体上添加一个Text1，一个通用对话框控件CommonDialog1。 （2）启动菜单编辑器，按下标设置菜单，建立下拉式菜单如图所示。 菜单标题 菜单名称 索引值 说明 字体 Font 主菜单项1 ….字体名称 FontName 子菜单项11 ……..宋体 FontN 0 子菜单项111，快捷键Ctrl+S ……..楷体 FontN 1 子菜单项112，快捷键Ctrl+K ……..黑体 FontN 2 子菜单项113，快捷键Ctrl+H ….- FF 子菜单项12，用作分隔符 ….文本风格 FontStyle 子菜单项13 ……..粗体(B) Fstyle 0 子菜单项131，热键B ……..斜体(I) Fstyle 1 子菜单项132，热键I ……..下划线(U) Fstyle 2 子菜单项133，热键U 颜色 Color 主菜单项2 ….文字颜色 Fcolor 子菜单项21 ….背景颜色 Bcolor 子菜单项22 结束 Ext 主菜单项3 9.2 菜单设计 9.2 菜单设计 当程序运行时，选择颜色菜单，打开“颜色”对话框，设置标签的文字颜色和背景颜色。 2、过程设计： 9.2.4 弹出式菜单 弹出菜单是用户在某个对象上单击右键所弹出的菜单。弹出式菜单是独立于菜单栏、显示在窗体或指定控件上的浮动菜单，菜单的显示位置与鼠标当前位置无关。实现步骤如下： 在菜单编辑器中建立该菜单； 设置其顶层菜单项(主菜单项)的Visual属性为False(不可见)； 在窗体或控件的MouseUp或MouseDown事件中调用PopupMenu方法显示该菜单。PopupMenu的使用方法如下： PopupMenu 菜单名 [,flag[,x[,y[,Boldcommand]]]] 其中： 关键字”PopupMenu”可以前置窗体名称，但不可前置其他控件名称。 菜单名是指通过菜单编辑器设计的，至少有一个子菜单项的菜单名称(Name); Flags参数为常数，用来定义显示位置与行为，其取值见下表： 9.2 菜单设计 系统常量 值 说明 vbPopupMenuLeftAlign 0 缺省值，指定的x位置作为弹出式菜单的左下角 vbPopupMenuCenterAlign 4 指定的X位置作为弹出式菜单的中心点 vbPopupMenuRightAlign 8 指定的x位置作为弹出式菜单的右上角 vbPopupMenuLeftButton 0 菜单命令只接受鼠标左键单击 vbPopupMenuRightButton 2 菜单命令可接受鼠标左键、右键单击 9.2 菜单设计 前面3个为位置常数，后2个是行为常数。这两组常数可以相加或用or连接，如：vbPopupMenuCenterAlign or vb PopupMenuRightBotton 或6 (即2+4) Boldcommand参数指定需要加粗显示的菜单项，注意只能有一个菜单项加粗显示。 x, y 参数用来设置菜单弹出的坐标位置(使用ScaleMode属性指定的坐标度量单位)，缺省时，在鼠标的光标位置出现。 9.2 菜单设计 9.2