pckite 发表于 2004-6-21 10:19:00

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

VBA代码如下：<BR>Sub myHelp()<BR>               UserForm1.Show        <BR>End Sub
Public Sub CreateToolbar()<BR>                       Dim MenuGroupObject As AcadMenuGroup<BR>                       Dim ToolbarObject As AcadToolbar<BR>                       Dim ToolbarItemObject       As AcadToolbarItem<BR>                       Dim ButtonObject As AcadToolbarItem


                       Set MenuGroupObject = ThisDrawing.Application.MenuGroups.Item(0)<BR>                       Set ToolbarObject = MenuGroupObject.Toolbars.Add("图标内容输入")<BR>                       Set ButtonObject = ToolbarObject.AddToolbarButton(0, "帮助", "帮助", "-vbarun myHelp" &amp; vbCr)                                <BR>                       ToolbarObject.Visible = True                                       <BR>End Sub


在drawing1.dwg中加载test.dvb程序，运行到myHelp()时能正常弹出UserForm1窗口，可是在drawing2.dwg中加载test.dvb程序时，运行时命令行没显示出错，也不弹出UserForm1窗口，为什么呢？怎么办呢？<BR>

wmz 发表于 2004-6-21 13:26:00

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

pckite 发表于 2004-6-21 16:34:00

加载了啊！￣

efan2000 发表于 2004-6-21 21:47:00

工具栏创建成功了没有？

pckite 发表于 2004-6-22 08:27:00

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

雪山飞狐_lzh 发表于 2004-6-22 08:37:00

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

wmz 发表于 2004-6-22 18:34:00

pckite发表于2004-6-22 8:27:00static/image/common/back.gif工具栏创建成功了,奇怪了。

你的工具栏里没有加载test.dvb工程的项目.<BR>
页: [1]
查看完整版本: [求助]VBA怎么会这样呢？