这是我调试时写的代码:
*****************************************
Private ClsHZK As New HZK.Class_noerngPrivate Sub Command1_Click()
If ClsHZK.open = "1" Then
Call MsgBox("OK", vbOKOnly, "OK")
End If
End Sub
*****************************************
1、该DLL是Power Builder写的,详细代码没有
2、该DLL无法用regedt32注册,说“指定文件不是注册脚本”,用的是DLL附带的reg文件注册的
3、我在工程中引用了这个HZK.DLL,可以在对象浏览器中查到DLL里的方法
4、编译成功,但当运行到 If ClsHZK.open = "1" Then 是就说
实时错误'-2147024770 (8007007e)':
自动化错误
后来我又先后用了其他写法如Private Declare Function open Lib "hyjk.dll" () As String 会说找不到文件Set oa = CreateObject("HZK.Class_noerng") 会说“AtciveX 部件不能创建对象”我自己用VB写的DLL引用就没问题,用这个就不行,已经想不出还有什么其他方法,求教一下大家了~~~~~
*****************************************
Private ClsHZK As New HZK.Class_noerngPrivate Sub Command1_Click()
If ClsHZK.open = "1" Then
Call MsgBox("OK", vbOKOnly, "OK")
End If
End Sub
*****************************************
1、该DLL是Power Builder写的,详细代码没有
2、该DLL无法用regedt32注册,说“指定文件不是注册脚本”,用的是DLL附带的reg文件注册的
3、我在工程中引用了这个HZK.DLL,可以在对象浏览器中查到DLL里的方法
4、编译成功,但当运行到 If ClsHZK.open = "1" Then 是就说
实时错误'-2147024770 (8007007e)':
自动化错误
后来我又先后用了其他写法如Private Declare Function open Lib "hyjk.dll" () As String 会说找不到文件Set oa = CreateObject("HZK.Class_noerng") 会说“AtciveX 部件不能创建对象”我自己用VB写的DLL引用就没问题,用这个就不行,已经想不出还有什么其他方法,求教一下大家了~~~~~
然后你这个语句就能运行通过了
dll1是c++写的,cdecl调用约定,该dll使用到其他2个dll2\dll3,使用VB.NET 新建项目,把3个dll全部复制到项目目录下,无法调用,将编译后的exe放到该dll1、2、3 原始目录下,运行正常这样有个问题,我怎么把这个程序分发?