本帖最后由 tanhong 于 2010-11-23 14:19 编辑
一、DLL基本概念 (一)概念 DLL即动态链接库(Dynamic Link Library),是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分,而是运行时链接到应用程序中。
(二)主要优点: 1、多个应用程序可以共享一个DLL,而且当多个应用程序调用库的同一个函数时,可执行文件中装入的只是该函数的内存地址,从而节省内存和磁盘空间; 2、使用动态链接库易于我们维护用户程序,即使对动态链接库进行修改也不会影响用户程序; 3、从ACCESS角度而言,还可以更好的确保核心代码的安全。
二、用VB封装VBA代码,构建自定义的DLL动态链接库 (一)ACCESS中实例代码 下面是一个“快速获取数字(Acc).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
- '用MsgBox函数进行输出测试
- MsgBox strOut
- End Sub
复制代码 M 以上代码还不能直接用于封装,须将其修改成为公用函数(过程)
(二)VB封装实例中VBA代码 步骤一:在VB编辑窗中,点菜单【文件】-【新建工程】,打开新建工程窗口 |