社区 › VB › [求助]VBA怎么会这样呢？

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

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

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 发表于 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

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

查看完整版本: [求助]VBA怎么会这样呢？