VB弹出式菜单设计案例

通常用户在窗体上右击鼠标键就会弹出一个菜单(即快捷菜单),弹出式菜单是独立于菜单栏而显示在窗体或指定控件上的浮动菜单,菜单出现的位置与鼠标当前位置是相关的。

弹出式菜单也是用“菜单编辑器”来设计的,只不过是在设计阶段将顶级菜单的Visible属性设置为False,在运行阶段通过PoPupMenu方法将已经设计好的菜单在指定位置弹出。PoPupMenu方法的使用格式如下。

[对象名.]PoPupMenu菜单名,Flags,X坐标,Y坐标

说明:对象名省略则默认为当前窗体;菜单名为菜单的标识名称,是必选参数;X、Y坐标是指定弹出菜单显示的坐标位置;Flags(标志)为内部参数,用于进一步定义弹出菜单的位置和鼠标左右钮对某单项的响应性能。Flags参数的功能如表7-2所示。

表7-2　Flags参数的功能

【案例7-2】设计一个简易的弹出式菜单。

【案例要求】

在案例7-1的基础上,设计一个设定文本框文字和背景颜色的弹出式菜单。

图7-5　弹出式菜单运行效果

【案例操作】

(1)设置界面(www.xing528.com)

利用菜单编辑器,在【案例7-1】的基础上,根据表7-3,增加“颜色”菜单。

表7-3　菜单项的设置

(2)代码设计

文本框Text1的MouseDown事件代码:

菜单项Fcolor的Click事件代码:

菜单项Bcolor的Click事件代码:

(3)运行程序

按F5键或点击工具栏中的“运行”按钮运行程序,在文本框中右击,执行效果如图7-5所示。