好消息:该问题获得完美解决,谢谢mccad兄提示。
Dim AppClass As Object Set AppClass = CreateObject("应用程序名.类名") AppClass.方法
举例:编制了DLL,应用程序名为Test,包换类CLASS1,CLASS1的方法有showMsg,显示"Hello,World"。
具体编程代码:
sub Test()
Dim AppClass As Object Set AppClass = CreateObject("Test.class1") AppClass.showmsg
end sub
执行则显示消息框"Hellow,World!" |