[讨论]：呼叫form?

goim00 · 发表于 2006-8-28 22:34:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

小弟想了许久～～
要如何利用下式呼叫userform1之功能呢？

Dim menuItemOpen As AcadPopupMenuItem
'set menuItemO修改pen = newMenu.AddMenuItem(newMenu.Count + 1, "doit(&L)",_
ESCC & "-vbarun" + Chr(32) + "ok.about" + Chr(32))

类似cad中的（说明-->关于）而有form表单出现？？

中世纪骑士 · 发表于 2006-9-4 15:40:52

Dim Openmacro as string
Openmacro="-vbarun show "
Dim menuItemOpen As AcadPopupMenuItem
Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, "打开", Openmacro)

然后你写一个宏
sub show()
userform.show ' 显示窗体
end sub
这样就可以了
不过有时候好像需要回车，才会弹出窗口

goim00 · 发表于 2006-9-4 18:12:17

最初由中世纪骑士发布
[B]Dim Openmacro as string
Openmacro="-vbarun show "
Dim menuItemOpen As AcadPopupMenuItem
Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, "打开", Openmacro)

然后你写一个宏
sub show... [/B]

解决了！！谢

账号		自动登录	找回密码
密码			立即注册

[讨论]：呼叫form?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

thx......