点击自己创建的下拉菜单弹出窗体问题

fmfm · 发表于 2004-5-30 10:52:00

我创建了一个下拉菜单，我想通过点击他弹出一个窗体，请问代码是什么，搞不懂了

qlucry2erwp.JPG

我这样写不行：Set menuItemOpen = newMenu.AddMenuItem(newMenu.count + 1, "mymenu", "-vbarun userform1.show")

雪山飞狐_lzh · 发表于 2004-5-30 11:06:00

在模块里做个函数sub frmshow
frmtest.show
end sub

fmfm · 发表于 2004-5-30 12:00:00

那怎么和菜单联系起来？
Set menuItemOpen = newMenu.AddMenuItem(newMenu.count + 1, "mymenu", "-vbarun 模块1.frmshow") 这样？
（忘了模块的英文了：））

zzz8662 · 发表于 2004-6-2 10:25:00

我也遇到同样的问题，请详细解释一下，好吗？

gzy · 发表于 2004-6-2 22:47:00

lzh741206的frmshow是过程名，frmtest就是你想要调出的窗体名
-vbarun的最后一个引号前要加上空格。

zzz8662 · 发表于 2004-6-3 14:50:00

谢谢，问题解决了。其实，感觉修改acad.mnu比较方便，
Id_mymenu [mymenu]^C^C-vbarun frmshow