VB封装DLL实例讲解（一）

tanhong

一、DLL基本概念

（一）概念

DLL即动态链接库（Dynamic Link Library），是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分，而是运行时链接到应用程序中。

（二）主要优点：

1、多个应用程序可以共享一个DLL，而且当多个应用程序调用库的同一个函数时，可执行文件中装入的只是该函数的内存地址，从而节省内存和磁盘空间；

2、使用动态链接库易于我们维护用户程序，即使对动态链接库进行修改也不会影响用户程序；

3、从ACCESS角度而言，还可以更好的确保核心代码的安全。

二、用VB封装VBA代码，构建自定义的DLL动态链接库

（一）ACCESS中实例代码

下面是一个“快速获取数字(Acc).mdb”实例（该实例在文件包中），单击“提取结果”按钮，将文本框中的数字在弹出消息显示出来。

我将就这个实例演示如何将该实例VBA代码封装成为DLL。

? 按钮单击事件代码如下：

1. 
   
2. 
   
3. Private Sub CmdFindnumber_Click()
   
4.   Dim strM   As String     '初始字符串
   
5.   Dim strOut  As String     '输出字符串变量
   
6.   Dim I
   
7.   
   
8.   strM = Me.Text1
   
9. '从第一个字符向最后一个字符循环,以提取每个字符
   
10.   For I = 1 To Len(strM)
    
11.       '判断是否为0到9字符,是则赋值输出
    
12.       If Mid(strM, I, 1) Like "[0-9]" Then
    
13.          strOut = strOut & Mid(strM, I, 1)
    
14.       End If
    
15.   Next I
    
16.   '用MsgBox函数进行输出测试
    
17.   MsgBox strOut
    
18. End Sub

复制代码

   M 以上代码还不能直接用于封装，须将其修改成为公用函数(过程)

（二）VB封装实例中VBA代码

步骤一：在VB编辑窗中，点菜单【文件】-【新建工程】，打开新建工程窗口

yancx

学习

yancx

学习

GOODWIN

谢谢分享，这个值得学习

bcgh

学习一下，谢谢分享。

百舸争流

很好的例子。

jonical

学习中 谢谢

msyangyi

又是一精品，谢谢

馨语馨愿

谢谢楼主分享来自: Android客户端

leonshi

学习借鉴