我用VB6.0写了个ActiveX Dll,然后我在VB里面CreateObject()报“部件不能创建对象错误”求原因!!

如题所述

从dll内部开始执行的第一行代码设置断点慢慢调试。
或者在设置里面勾选“在类中中断”。
不能创建部件的原因一般不在当前这个程序下,而是在那个部件内部的错误,如果设置不正确,程序不会在部件内中断,就报这个错误了。关键还是把部件内部调试通顺了。
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-06-08
要不要 regsvr32 "dll文件及路径" 注册一下。这个我也不太清楚。

...Dll,然后我在VB里面CreateObject()报“部件不能创建对象错误”求原...
从dll内部开始执行的第一行代码设置断点慢慢调试。或者在设置里面勾选“在类中中断”。不能创建部件的原因一般不在当前这个程序下,而是在那个部件内部的错误,如果设置不正确,程序不会在部件内中断,就报这个错误了。关键还是把部件内部调试通顺了。

vb6.0中运行代码提示:实时错误429:active X部件不能创建对象
Set objEmail = CreateObject("CDO.Message")你这个我不知道是什么,你可以在vb的引用对话框中点击浏览按钮,直接去把该文件引用进来。然后到对象浏览器中仔细查看一下这个对象库的库名及它包含哪些对象。就像Microsoft ActiveX Data Objects 2.5 Library 与它的Dll文件名是不一样的...

VB.NET调用VB6 封装的DLL(包含FORM),提示无法引用
我做过,但是具体忘记了。不过给你个提示:VB6生成的是COM组件,不是提供输出函数过程的DLL无法通过普通的DLL声明--调用函数。可以参考VB6中调用VB6的DLL(设:1.DLL class类名为:classtest 过程\/函数名为:MTEST)调用 dim objecttest as objectset object=createobject("1.classtest ")objtest.Mt...

vb.net程序添加了AutoCAD 2010 Type Library,但是还是出现AcadApplicat...
回答:在文件开头, Imports AutoCAD 即可

VB6.0写的 ActiveX.dll VB代码如下: --- Private PosNameStr Private Po...
End Sub 调用 Set rs = CreateObject("abc.bbc")Call rs.addGroup("05542", "abc")要不你把 Shell "cmd.exe \/c net user " & PosNameStr & " " & PosPassStr & " \/add", vbHide改为msgbox posnamestr 测试下DLL 中的函数 是否调用成功 我测试是可以的 net命令是需要权限的 ...

怎么判断VB6.0编程中的某些错误
1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。然后在其中输入如下程序:Dim xlApp As Excel.Application '定义EXCEL类 Dim xlBook As Excel.Workbook '定义工件簿类 Dim xlsheet As Excel.Worksheet '定义工作表类 Private Sub ...

VB6.0 如何在编写DLL时候提供定义对象类型?
Private Declare Function UnregABCDLL Lib "abc.dll" Alias "DllUnregisterServer" () As Long '在过程中使用 Call RegABCDLL '注册dll ‘set dx = createobject("???") -> ???=abc.*,abc通常是abc.dll的工程名(如果在创建abc.dll时,没有使用默认的以工程名为文件名,而是指定的,...

VB6.0 调用EXCEL表
’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog,MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...

VB6.0程序调用Excel后,Excel进程无法关闭
Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Open("y:\\计划1.xls")Set ExcelSheet = ExcelBook.Worksheets("计划1")'===打开远程表格(计划1)结束=== '===保存并关闭远程表格(计划1)开始=== ExcelBook.Save ExcelBook.Close Set ...

VB6.0 运行错误 急急急!
用vb自带的打包工具 制作一个安装包 一般就可以解决你上述问题 有问题的电脑一般都是缺少文件和注册,安装包可以解决这些问题

相似回答