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

2024-07-15 22:35| 来源: 网络整理| 查看: 265

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

一、VB编写自己的DLL文件

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

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

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

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

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

Function calVolume(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double calVolume = a * b * c 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.Class1 Set MyObj = New Class1 Dim aa As Double Dim bb As Double Dim cc As Double Dim tempVolume As Double aa = 1.1 bb = 2.2 cc = 3.3 tempVolume = MyObj.calVolume(aa, bb, cc) MsgBox tempVolume End Sub 另外，我添加了一个模块，在模块中写入了如下代码：

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

5.至此结束。

【本文地址】

公司简介

联系我们