救命啊！！userForm1.show问题

pckite

我的工程名称是：myProject 模块名称是：myModule
我在myModule中建了一个工具条如下：
Set ButtonObject = ToolbarObject.AddToolbarButton(0, "帮助", "帮助", "-vbarun myHelp" & vbCr)　它目的是打开UserForm1窗口 Sub myHelp()
MsgBox "dddd"
UserForm1.Show
End Sub 程序运行到UserForm1.Show 时就出错了，提示说类型不匹配，怎么办呢？

wmz

你没有把问题说清楚,你这里没有对象变量的定义,全部代码贴出来嘛.不好评论.

mccad

UserForm1是否改过名？？

pckite

我的工程名称是：myProject 模块名称是：myModule UserForm1是导进来的，只是一个空的窗体。
模块myModule中的程序如下：
Sub myHelp()
MsgBox "dddd"
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 程序运行到UserForm1.Show 时就出错了，提示说类型不匹配，够详细了吧？怎么办呢？

wmz

这段代码并没有错,问题可能出现在"导进来的"窗体上,你可再用"插入->用户窗体"创建一个新窗体(窗体可以自定义--就是说:给它取个自己认为合适的名字),用你的通用过程(myhelp)调用.准行(我已经测试过了)!否则,有时候,VBA会闹以下脾气的,比如我新加入了一个控件对象,给该对象赋以属性或者进行其他相关操作时,却提示错误,而后退出去再进来---好了!.......

pckite

KAO!~ VBA真是会闹脾气啊！￣ 可以了，谢谢wmz、mccad！