VB 封装 DLL 实例讲解（一）
一、 DLL 基本概念
（一）概念
DLL 即动态链接库（Dynamic Link Library），是由可被其它程序调用的函数集合组成的可执行文件
模块。DLL 不是应用程序的组成部分，而是运行时链接到应用程序中。
（二）主要优点：
1、多个应用程序可以共享一个 DLL，而且当多个应用程序调用库的同一个函数时，可执行文件中
装入的只是该函数的内存地址，从而节省内存和磁盘空间；
2、使用动态链接库易于我们维护用户程序，即使对动态链接库进行修改也不会影响用户程序；
3、从 ACCESS 角度而言，还可以更好的确保核心代码的安全。
二、 用 VB 封装 VBA 代码，构建自定义的 DLL 动态链接库
（一）ACCESS 中实例代码
下面是一个“快速提取字符串中数字.mdb”实例（该实例在文件包中），单击“提取结果”按钮，将文
本框中的数字在弹出消息显示出来。
我将就这个实例演示如何将该实例 VBA 代码封装成为 DLL。
按钮单击事件代码如下：
Private Sub CmdFindnumber_Click()
Dim strM As String '初始字符串
Dim strOut As String '输出字符串变量
Dim I
strM = Me.Text1
'从第一个字符向最后一个字符循环,以提取每个字符
For I = 1 To Len(strM)
'判断是否为 0 到 9 字符,是则赋值输出
If Mid(strM, I, 1) Like "[0-9]" Then
strOut = strOut & Mid(strM, I, 1)
End If
Next I
- 1
- 2
- 3
- 4
前往页