做了个简单测试对象
创建个ActiveX DLL工程,名为project。在该工程下新建个类模块ClsTest,该模块下有一方法:
Public Function getConn(ByVal cStrCon As String) As String
getConn = cStrCon & " GetConn"
End Function
然后添加个新EXE工程,在该工程下调用:
Dim CT As project.ClsTest
Set CT = CreateObject("project.ClsTest")
MsgBox CT.getConn(“fengxujian”), vbInformation
谢谢各位的帮助!
to Tiger_Zhao:
现在我在服务器的用户组中,将用户“Everyone”添加到“Distributed COM Users”组中,该组的成员允许启动、激活和使用此计算机上的分布式 COM 对象。
客户端运行时错误由“远程调用出现70错误,拒绝的权限”变成了“运行时错误 '-2147467225 (800040277)' Automation 错误”,不知道是不是配置COM+组件的问题,还是我的dll问题?