vb怎么实现点击鼠标右键出现菜单选项

方法1：编写菜单，然后利用菜单项的：Enabled属性或者Visible属性

方法2：建立快捷菜单；右击出现菜单

方法1的实现简单：因为你已经知道创建菜单的方法了

在创建菜单的时候，每个菜单项有1个＂标题＂和＂名称＂，其中名称其实是该菜单项的对象的名称，例如某菜单名称叫＂abc＂，那么：

abc. Visible=false就使它不可见

abc. Visible=　true 就使它可见

请进行如下 *** 作。

打开“菜单编辑器”，按常规方法添加菜单。例如：

－－－－－－－－－－－

菜单

(名称为mnuPop)

....菜单1

(名称为mnuPop1)

....菜单2

(名称为mnuPop2)

－－－－－－－－－－－

把“标题”菜单的“可见”复选框去掉。

添加如下代码：

Private

Sub

Form_MouseDown(Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

If

Button

=

vbKeyRButton

Then

PopupMenu

mnuPop

End

Sub

绝对没问题。

---