[求助]用VB做的DLL怎么加载?

jxlsp

如题,请问,用VB做的DLL怎么加载?

azjmjsj

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!"

*********************************************************
西北凡人---http://www.abofanyi.com/blog

jxlsp

谢谢了,哪LISP能不能加载用VB做的DLL呢?

azjmjsj

可以，本论坛就有这方面的资料，自己找一下

*********************************************************
西北凡人---http://www.abofanyi.com/blog

yhjyhjyhj

<img style="BORDER-BOTTOM: #fff 1px="1px"  solid; POSITION: relative; BORDER-LEFT: #ccc 1px="1px"  solid; BORDER-TOP: #ccc 1px="1px"  solid; BORDER-RIGHT: #fff 1px="1px"  solid" class="dveditbgborder" onmouseover="window.dv___[0].t.setIcon(this,2)" title="生成一个交易信息" onmouseout="window.dv___[0].t.setIcon(this,0)" onmousedown="window.dv___[0].t.setIcon(this,1)"  alt="生成一个交易信息" src="skins/default/images/blank.gif" width="100%" height="100%"/>vb dll 在打开多个cad窗口情况下，第一个可用，其它不行，为什么？<img style="BORDER-BOTTOM: #fff 1px="1px"  solid; POSITION: relative; BORDER-LEFT: #ccc 1px="1px"  solid; BORDER-TOP: #ccc 1px="1px"  solid; BORDER-RIGHT: #fff 1px="1px"  solid" class="dveditbgborder" onmouseover="window.dv___[0].t.setIcon(this,2)" title="生成一个交易信息" onmouseout="window.dv___[0].t.setIcon(this,0)" onmousedown="window.dv___[0].t.setIcon(this,1)"  alt="生成一个交易信息" src="skins/default/images/blank.gif" width="100%" height="100%"/>vb dll 在打开多个cad窗口情况下，第一个可用，其它不行，为什么？