社区 › VB › 救命啊！！userForm1.show问题

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

救命啊！！userForm1.show问题

我的工程名称是：myProject 模块名称是：myModule
我在myModule中建了一个条如下：
Set ButtonObject = ToolbarObject.AddToolbarButton(0, "帮助", "帮助", "-vbarun myHelp" & vbCr)　它目的是打开UserForm1窗口
Sub myHelp()
                               MsgBox "dddd"       
               UserForm1.Show       
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是导进来的，只是一个空的窗体。
模块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 发表于 2004-6-18 13:35:00

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

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

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

查看完整版本: 救命啊！！userForm1.show问题