VB实现窗口的弹出式菜单
首先打开VB的“工具”菜单条,利用“菜单编辑器”为窗体生成一个菜单:
其次将生成的menuEdit菜单设置为不可视。
′menuEdit菜单设置为不可视
然后利用MouseDown事件实现任意位置弹出PopUpMenu,如下例:
本例中以RichTexBox控件为例在其上面实现复制、剪切功能。
1.复制功能的实现
′将RichTexBox控件上选择上的内容复制到剪贴板
2.剪切功能的实现。
′将RichTextBox控件上选择了的内容复制到剪贴板
′将RichTexBox控件上选择了的内容刪除
′判断RichTexBox控件上选择了的内容是否存在决定复制、剪切菜单条是否可操作。
这样在VB执行环境中,操作窗体上的RichTexBox控件按动鼠标器右键就可弹出下拉菜单,实现复制、剪切功能