[求助]VBA怎么会这样呢？

pckite

VBA代码如下：
Sub myHelp()
UserForm1.Show
End Sub Public Sub CreateToolbar()
Dim MenuGroupObject As AcadMenuGroup
Dim ToolbarObject As AcadToolbar
Dim ToolbarItemObject As AcadToolbarItem
Dim ButtonObject As AcadToolbarItem Set MenuGroupObject = ThisDrawing.Application.MenuGroups.Item(0)
Set ToolbarObject = MenuGroupObject.Toolbars.Add("图标内容输入")
Set ButtonObject = ToolbarObject.AddToolbarButton(0, "帮助", "帮助", "-vbarun myHelp" & vbCr)
ToolbarObject.Visible = True
End Sub 在drawing1.dwg中加载test.dvb程序，运行到myHelp()时能正常弹出UserForm1窗口，可是在drawing2.dwg中加载test.dvb程序时，运行时命令行没显示出错，也不弹出UserForm1窗口，为什么呢？怎么办呢？

wmz

你的test.dvb工程没有加载.要保证每次新建文档或者打开文档时都能加载你的工程.

pckite

加载了啊！￣

efan2000

工具栏创建成功了没有？

pckite

工具栏创建成功了,奇怪了。

雪山飞狐_lzh

可以把完整一点的代码贴上么？

wmz

pckite发表于2004-6-22 8:27:00工具栏创建成功了,奇怪了。

你的工具栏里没有加载test.dvb工程的项目.