今晚打老虎 发表于 2004-9-15 16:36:00

求助关于MSComDlg无法创建对象

我用VBA在CAD环境中使用 CreateObject("MSComDlg.CommonDialog") 创建对象。在开发环境中一切正常，而在测试的机器上却不能创建对象。诸位斑竹，是不是在测试机器上缺少了什么必须的控件，如果是的话，缺少的是什么控件？


代码如下：


Public Sub gsImportDwg()<BR>       On Error GoTo Err_Proc<BR>       <BR>       '1 选择设计文件<BR>       Dim dlgOpen As Object                               '在这个地方就连这样都不行                set dlgOper = new MSComDlg.CommonDialog


<BR>       Set dlgOpen = CreateObject("MSComDlg.CommonDialog")<BR>       With dlgOpen<BR>                       .DialogTitle = "选择Dwg文件"<BR>                       .Filter = "Dwg 文件(*.dwg)|*.dwg|所有文件(*.*)|*.*"<BR>                       .DefaultExt = "*.dwg"<BR>                       .CancelError = False<BR>                       .ShowOpen<BR>                       <BR>                       Dim sFile As String<BR>                       sFile = .FileName<BR>       End With<BR>       Set dlgOpen = Nothing


<BR>end sub

雪山飞狐_lzh 发表于 2004-9-15 17:18:00

这两天怎么都是关于CommonDialog的？


试试CommonDialog类，本论坛有提供下载

今晚打老虎 发表于 2004-9-15 17:34:00

呵呵，down下来look,look.

今晚打老虎 发表于 2004-9-15 17:39:00

不对啊斑竹用这个类能解决


<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=22235" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=22235</A>帖子中的8楼的问题么？

雪山飞狐_lzh 发表于 2004-9-15 17:43:00

这个类可以直接调用，不用注册

今晚打老虎 发表于 2004-9-15 18:06:00

看错了是10楼提出的问题。

mccad 发表于 2004-9-15 19:24:00

这是二次开发栏目的两篇文章，使用是就是CommonDialog类：<BR><A href="http://www.mjtd.com/a2/list.asp?id=357" target="_blank" >通过选定目录来插入目录中的所有图形文件到当前图形中</A> <BR><A href="http://www.mjtd.com/a2/list.asp?id=356" target="_blank" >通过选定多个图形文件插入到图形中</A> <BR>而实用函数栏目下有两个API的函数，可以直接用：<BR><A href="http://www.mjtd.com/function/list.asp?id=367&amp;ordertype=byletter" target="_blank" >GetFile</A> ：<A href="http://www.mjtd.com/function/list.asp?id=367&amp;ordertype=byletter" target="_blank" >调用文件打开对话框</A> <BR><A href="http://www.mjtd.com/function/list.asp?id=368&amp;ordertype=byletter" target="_blank" >GetFolder</A> ：<A href="http://www.mjtd.com/function/list.asp?id=368&amp;ordertype=byletter" target="_blank" >调用系统选择文件夹对话框</A>
页: [1]
查看完整版本: 求助关于MSComDlg无法创建对象