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

通过注册表添加

HKEY_CLASSES_ROOT

中添加 项 名字格式 .*（如 .rar）

在该项的 默认值处 数据 随便输 但是 最好有意义的字符

在这个主项下在创建一个项 名字是 你先前在默认处输行桐入的字符

在该项的默认处输入的是 这个扩展名的介绍

在该项下创建名为

DefaultIcon

Shell

ShellEx

三个项

DefaultIcon的码带亩默认值是图标文件的地址和索引

如 "E:\a.exe,0"

在Shell的默认值处 天 Open

该键下创建 Open项

其默认值迟森是 在右键菜单中的首项的名字

在这个项下创建一个 command的项 在默认值处

"程序的地址" 命令行参数 "%1"(这个是要打开的文件地址 %1是由系统指定）如 "E:\a.exe" "%1"

或 "D:\Xmp\bin\Xmp.exe" /play "%1" /openfrom WndExplr /startfrom LocalFile

以我的知识我只能说这些了

---