VB中怎样添加右键菜单

请进行如下 *** 作。

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

－－－－－－－－－－－

菜单

(名称为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

绝对没问题。

菜单编辑器中编辑好菜单，在编辑器中把菜单隐藏。在鼠标按下事件中判断是否右键，如果是则popupmenu 你起的菜单名，例如你的菜单叫menu_rbtn，代码为：popupmenu menu_rbtn

---