怎样把几个函数封装成DLL

Question

有2个函数
Public Function encrypt(key As String, shuju As String)
Public Function decipher(key As String, shuju As String)
我在VB用新建DLL工程，把这2个函数代码都复制下去。然后编译成1个DLL。
但是怎么也调用不了。怎样才能调用呢？

Answer 1

假设你的Dll工程名为MyDll,里面的类名为MyCls调用：Dim TestCls As Object
Set TestCls=CreateObject("MyDll.MyCls")
TestCls.encrypt "参数","参数"
TestCls.decipher "参数","参数"

Answer 2

上面的做法是在不引用MyDll的情况下使用，引用MyDll后，可以这样做：Dim TestCls As New MyCls
TestCls.encrypt "参数","参数"
TestCls.decipher "参数","参数"

Answer 3

我不会阿。。我的工程名称为class
Public Function encrypt(key As String, shuju As String)
Public Function decipher(key As String, shuju As String)
2个函数，拿来给个例子吧。谢谢。

Answer 4

先通过"工程-->引用",将你要调用的DLL引入到程序中来 :)
然后在程序中声明:
Dim TestCls As class再进行调用,如:
TestCls.encrypt ......
TestCls.decipher ......