pckite 发表于 2004-6-16 15:48:00

救命啊！！userForm1.show问题

我的工程名称是：myProject 模块名称是：myModule<BR>我在myModule中建了一个工具条如下：<BR>Set ButtonObject = ToolbarObject.AddToolbarButton(0, "帮助", "帮助", "-vbarun myHelp" &amp; vbCr)　它目的是打开UserForm1窗口


Sub myHelp()<BR>                               MsgBox "dddd"        <BR>               UserForm1.Show        <BR>End Sub


程序运行到UserForm1.Show        时就出错了，提示说类型不匹配，怎么办呢？

wmz 发表于 2004-6-16 18:57:00

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

mccad 发表于 2004-6-16 20:57:00

UserForm1是否改过名？？

pckite 发表于 2004-6-18 11:19:00

我的工程名称是：myProject 模块名称是：myModule


UserForm1是导进来的，只是一个空的窗体。<BR>模块myModule中的程序如下：<BR>Sub myHelp()<BR>                               MsgBox "dddd"        <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


程序运行到UserForm1.Show        时就出错了，提示说类型不匹配，够详细了吧？怎么办呢？<BR><BR>

wmz 发表于 2004-6-18 13:35:00

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

pckite 发表于 2004-6-18 16:48:00

KAO!~ VBA真是会闹脾气啊！￣


可以了，谢谢<A name=28229><FONT color=#000066><B>wmz</B></FONT></A>、<A name=27687><FONT color=#990000><B>mccad</B></FONT></A>！
页: [1]
查看完整版本: 救命啊！！userForm1.show问题