如何用VB编写自己的DLL文件，并调用其中的函数

一、VB编写自己的DLL文件

1.新建一个VB工程，工程类型为ActiveX DLL类型。

2.设定工程的名字和类模块的名字。

这里我使用的工程的名字是DLLTest，类模块的名字是Class1。

3.在类模块中写入要封装的函数

这里我写了一个计算长方体的体积的函数，代码如下：

  1. Function calVolume(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double
  2. calVolume = a * b * c
  3. End Function

4.保存工程，并生成Dll文件。

通过选择 ”文件“->”生成DllTest.dll“，生成Dll文件。

至此，完成Dll文件的制作。

二、如何调用自己制作的Dll文件中的函数

1.新建一个VB工程，工程类型为标准EXE类型。

2.注册制作的Dll文件。

注册命令格式为：regsvr32 dll文件的绝对地址名称

举例说明：比如我把上面我生成的DllTest.dll放在了E盘的VbTest文件里面了，那么我的注册命令为：regsvr32 E:\VbTest\DllTest.dll。

如果注册成功，系统会有弹窗提示。

（测试发现，注册dll文件时，路径文件夹的名字不能有空格）

3.在工程中添加相关引用。

”工程“->”引用“->”DllTest“，在DllTest前面打上对勾，即可。

4.编写调用Dll文件的相关代码。

这里我在主窗体中添加了一个按钮，在按钮里面写入了如下代码：

Private Sub Command1_Click()Dim MyObj As DllTest.Class1Set MyObj = New Class1Dim aa As DoubleDim bb As DoubleDim cc As DoubleDim tempVolume As Doubleaa = 1.1bb = 2.2cc = 3.3tempVolume = MyObj.calVolume(aa, bb, cc)MsgBox tempVolumeEnd Sub

另外，我添加了一个模块，在模块中写入了如下代码：

Public Declare Function calVolume Lib 'DllTest.dll' (ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double 

5.至此结束。

赞 (0)

相关推荐