vb高手们快快支招

来源：百度知道 编辑：UC知道 时间：2024/05/22 10:29:37
如何在RichTextBox中，按右键，出现菜单，有复制、粘贴等

首先到工具>菜单编辑器里做一个菜单,把顶级菜单的可见属性设置为否(去掉那个勾),然后就可以写代码咯~比如说顶级菜单名字叫Edition,要显示这个弹出菜单就用这边的代码.

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = 2 Then
PopupMenu Edition
End If

End Sub

Edition下边的子菜单比如说有CopyIt,PasteIt等,你要做的就是在CopyIt_Click和PasteIt_Click里写相应的代码了.

不知道我这么说你明不明白. ^ ^