vb中制作dll的方法:新建时选择ActiveX Dll
,工程名改为add 把类模块命名为:myfirstdll (原名为class1)然后就可以写你的dll内容了,比如封装一个函数,这里我们封装一个从1加到n的函数:
Public Function AddN(ByVal n As Integer) As Integer
Dim i As Integer
Dim sum As Integer
For i = 0 To n
sum = i + sum
Next
AddN = sum
End Function
完成保存工作后,选择“文件”——“生成add.dll”
这样一个简单的dll完成了。你可以添加多个函数,复杂度任意!这只是以个简单的例子
下面是调用部分:
假设你有已经有了一个工程,现在需要引用刚才的dll文件。
选择“工程”-“引用”,在弹出的对话框中选浏览,选择你刚才生成的add.dll。点确定。如果说出现工程名称重复之类的提示,那是因为你的这个工程,和dll文件的工程名称一样了!你改一下工程名就行了,所以不要在新建工程时偷懒,默认的名称“工程1”会引起不必要的麻烦啊!下面是代码
在声明部分(就是代码的最上面)写:
Dim testdll As myfirstdll
form的load事件里写:
Set testdll = New myfirstdll
引用完成了
调用的代码:
MsgBox (testdll.AddN(5))
联系客服