如何制作弹出式菜单

VB实现窗口的弹出式菜单

在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu（弹出式菜单），可借助VB的菜单工具来实现。

首先，打开VB的“工具”菜单条，利用“菜单编辑器”为窗体生成一个菜单：

标题(Caption) 菜单条名(Name)

编辑 menuEdit

……复制 mnuCopy

……剪切 munCut

其次，将生成的menuEdit菜单设置为不可视。

Private Sub Form_Load()

Me.menuEdit.Visibe=False

′menuEdit菜单设置为不可视

End Sub

然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例：

本例中以RichTexBox控件为例，在其上面实现复制、剪切功能。

1．复制功能的实现。

Private Sub MnuCopy_Click()

Clipboar.Clear′将剪贴板清空

′将RichTexBox控件上选择上的内容复制到剪贴板

Clipboard.SetTextRichTexBox1.SelText

End Sub

2．剪切功能的实现。

Private Sub MnuCut_Click()

Clipboard.Clear ′将剪贴板清空

′将RichTextBox控件上选择了的内容复制到剪贴板

Clipboard.SetTextRichBox1.SelText

′将Rich