怎么用VB编写DLL？

打开VB，然后先中“ActiveX Dll”工程，然后开始编辑。

编完后，保存一般是以“.cls”和“.vbw”保存。这时你选择“文件”菜单，d出下拉框，选中“生成.dll”选项，它就会在上面d出一个进度条“正在生成.dll文件”。

生成以后是一个有好象齿轮状的图标。如果你要引用，就开一个“标准EXE”工程，然后在“工程”选项中，单击“引用”。

找到你刚才的“.dll”的文件名，在前面的复选框中打勾，就可以引用你刚才在那里面写的方法了。

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文件。

选择“工程”-“引用”，在d出的对话框中选浏览，选择你刚才生成的add.dll。点确定。如果说出现工程名称重复之类的提示，那是因为你的这个工程，和dll文件的工程名称一样了！你改一下工程名就行了，所以不要在新建工程时偷懒，默认的名称“工程1”会引起不必要的麻烦啊！下面是代码

在声明部分（就是代码的最上面）写：

Dim testdll As myfirstdll

form的load事件里写：

Set testdll = New myfirstdll

引用完成了

调用的代码：

MsgBox (testdll.AddN(5))

---