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

VB 专栏收录该内容
2 篇文章 0 订阅

如何用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.至此结束。


  • 1
    点赞
  • 1
    评论
  • 17
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 精致技术 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值