1、VB 封装 DLL 实例讲解（一）一、 DLL 基本概念（一）概念DLL 即动态链接库（Dynamic Link Library） ，是由可被其它程序调用的函数集合组成的可执行文件模块。DLL 不是应用程序的组成部分，而是运行时链接到应用程序中。（二）主要优点：1、多个应用程序可以共享一个 DLL，而且当多个应用程序调用库的同一个函数时，可执行文件中装入的只是该函数的内存地址，从而节省内存和磁盘空间；2、使用动态链接库易于我们维护用户程序，即使对动态链接库进行修改也不会影响用户程序；3、从 ACCESS 角度而言，还可以更好的确保核心代码的安全。二、 用 VB 封装 VBA 代码，构建自定义的
2、 DLL 动态链接库（一）ACCESS 中实例代码下面是一个“快速提取字符串中数字.mdb ”实例（该实例在文件包中） ，单击“提取结果”按钮，将文本框中的数字在弹出消息显示出来。我将就这个实例演示如何将该实例 VBA 代码封装成为 DLL。 按钮单击事件代码如下：Private Sub CmdFindnumber_Click()Dim strM As String 初始字符串Dim strOut As String 输出字符串变量Dim IstrM = Me.Text1从第一个字符向最后一个字符循环,以提取每个字符For I = 1 To Len(strM)判断是否为 0 到 9 字符,是则
3、赋值输出If Mid(strM, I, 1) Like “0-9“ ThenstrOut = strOut & Mid(strM, I, 1)End IfNext I用 MsgBox 函数进行输出测试MsgBox strOutEnd Sub 以上代码还不能直接用于封装， 须将其修改成为公用函数( 过程)（二）VB 封装实例中 VBA 代码步骤一：在 VB 编辑窗中，点菜单【文件】-【新建工程】 ，打开新建工程窗口步骤二：修改工程名，这即生成的 DLL 库名1、点选 ActiveX DLL2、点确定1、修改工程名为：我的动态库步骤三：修改类名步骤四：在代码窗口输入如下代码。将 ACCESS 中的
4、单击事件代码，略做修改成为一个公用函数，然后复制到 VB 代码编辑窗口1、改类名为：提取数字代码如下将这前的 ACCESS 代码改成一个公用函数输入:strPutString 字符串变量,需分离数字的字符串输出: fFindNumber 字符串变量,得到的数字字符Public Function fFindNumber(strPutString As String) As StringDim strOut As String 输出字符串变量Dim I从第一个字符向最后一个字符循环,以提取每个字符For I = 1 To Len(strPutString)判断是否为 0 到 9 字符,是则赋值输出
5、If Mid(strPutString, I, 1) Like “0-9“ ThenstrOut = strOut & Mid(strPutString, I, 1)End IfNext I数字输出fFindNumber = strOutEnd Function步骤五：编译 DLL，点菜单【文件】-【生成我的动态库.dll】 ，VBA 代码封装 DLL 就完成了。三、 在 mdb 中调用自定义 DLL 动态链接库（一）新建数据库及窗体新【快速提取数字(DLL)实例.mdb】数据库，新建一个窗体【frmMain】,在窗体添文本框【text0】,按钮【CmdFindNum】,Caption 属性：
6、“提取数字”(见下图)（二）引用【我的动态库.dll】库按【Alt+F11】打开 VBE 窗口，点菜单 【工具】-【引用】 ，打开引用对话框，完成对我们自己编译的 DLL 的引用。（三）在【CmdFindNum】按钮单击事件中加入如下代码。Private Sub CmdFindNum_Click()申明自定义类Dim MyFindNum As 提取数字Dim strOut As String实例化“ 提取数字类“ 对象Set MyFindNum = New 提取数字将函数输出结果赋值给自定义字符串变量strOut = MyFindNum.fFindNumber(Text0)在消息框中显示Msg
7、Box “你提取的数字为：“ & strOut, vbInformation, “江羽提示：“End Sub点击保存后，你就可以运行一下窗体测试你的成果了 本文实例见实例包，下 载测试如果提示错误，请重新对自定义类库进行引用。本文只是通过一个简单的实例演示了，如何通过 VB 封装一般的 VBA 中代码，因为该代码中并未涉及到 ACCESS 应用程序对象，所以在 VB 中没有对 ACCESS 对象类库进行引用，另外实例中只是简单演示了，如何手动实现对 DLL 的注册引用，在后续文章中我将就如何实现 DLL 与 ACCESS 应用程序对接及 DLL 的自动注册及引用结合实例进行讲解。江羽 2010
8、-05-16 晚2、选择引用的 DLL3、点打开1、点浏览4、点确定VB 封装 DLL 实例讲解（二）上文中我们已经就 DLL 的基本概念，以及如何将 VBA 代码封装为 DLL，如何引用该生成的 DLL动态链接库，进行了初步的讲解，我想大家对于 VB 封装 DLL 应该有了一个初步的了解。下面主要就 DLL 如何实现对 ACCESS 对象进行封装方法进行探讨。一、如何在 VB 中实现对 ACCESS 对象编程（一）在 VB 中引用 ACCESS 对象类库我们要通过编译 DLL 来实现对 ACCESS 对象的封装，首先必须在 VB 中引用 ACCESS 对象类库，这样我们就可以在 VB 中，实
9、现对 ACCESS 应用程序中的对象进行编程。打开 VB 编辑窗口，点菜单【工程】-【引用】 ，打开【引用对话框】 ，点选“Microsoft Access 11.0 Object Library”完成对当前版本 ACCESS 应用程序对象的引用。(实例演示版本为 ACCESS 2003) 对 ACCESS 对象库的引用很关键，否则我们无法实现对 ACCESS 对象的编程（二）了解 ACCESS 对象模型在 VB 中要对 ACCESS 对象进行编程，还必需对 ACCESS 所提供的各项对象有一定了解，因为 VB就是通过 ACCESS 对象的方法与属性，来完成各项操作与设置，下图为 ACCESS
10、 2003 的对象部分模型图例。库文件所在路径1 钩选 ACCESS 对象库2 点击确定 上图为 ACCESS 2003 对象模型，因为篇幅的问题，文中只显示模型中部分对象，要了解全部 对象模型，请大家参阅帮助。（三）VB 编程中 ACCESS VBA 与 VB 对象表述区别1、ACCESS VBA 与 VB 的顶层对象都为 Application ，但在编程中 ACCESS VBA 顶层对象表述为：Application ，而在 VB 编程中顶层对象用简写： App 表述（到 VB.NET 又改回了 Application） 。 例程：在 VB 编程中获得 VB 及 ACCESS VBA 获
11、取当前路径实例：在 VB 中获得当前路径：App.Path在 VB 中获得 ACCESS 的当前路径：Application.CurrentProject.Path 在 office 各应用程序之间调用各组件时,通常在对象前加上库名，如：Access.Application 来表述，但因为 VB 与 ACCESS 顶层对象原本表述就存在区别，在 VB 中可以直接用 Application 表述 ACCESS 应用程序对象，并不会产生冲突的 问题。2、ACCESS VBA 和 VB 中部分预定义类对象（如：窗体、控件等）表述基本相同，以“标签控件”为例，VB 与 ACCESS VBA 均为 La
12、bel，在 VB 编程中为了与 ACCESS 预定义类对象加以区别，ACCESS 标签对象通常用 ACCESS.Label 表述。 例程：在 VB 编程中定义 VB 及 ACCESS 标签控件对象实例：在 VB 中定义 VB 标签对象：Dim m_Label As Label在 VB 中定义 ACCESS 标签对象：Dim m_Label As Access.Label 在进行 DLL 编程时，特别需注意对象表述区别的问题 ，否则无法编译或是编译后在 ACCESS调用中报错。（四）VB 编程中关于 ACCESS VBA 专属常量ACCESS VBA 专属常量以“ac”开头，如：控件类（ AcC
13、ontrolType）中的文本控件常量为acTextBox，这些常量不一定能被 VB 所识别，解决办法通常不使用“常量名” ，而直接使用“常量值” ，或以输入参数方式传递的方法来解决。 例程：实现隐藏所有文本控件。acTextBox 常量值为 109。Dim ctl As Access.Control 申明 ACCESS 控件对象Dim frmClt As Access.Controls 申明 ACCESS 控件集合遍历所有 ACCESS 控件集合，如为文本控件，则不显示该控件For Each ctl In frmClt.Controls文本控件类常量值为 109，以常量值替代 acTextB
14、ox 常量名If ctl.ControlType = 109 Then ctl.Visible = FalseNext 你可以通过帮助查阅 ACCESS 专属常量值，也可以在 ACCESS VBA 中通过程序方式获取，如：在立即窗口输入:?acTextBox 回车，就可以 acTextBox 常量值为：109。二、DLL 封装 ACCESS 对象实例演示（一）ACCESS 的 MDB 实例MDB 实例演示获得 ACCESS 版本信息，并在标签 Label0 中显示（见下图） ，具体参看实例中frmVer6 窗体中的代码，及类模块 ClsVeresion 中代码。 mdb 实例中 frmVer1
15、-frmVer6 各窗体中具体演示了，代码按 DLL 封装需要整理的思路。 例程：frmVer6 窗体加载事件代码 Private Sub Form_Load()申明自定义类的实例Dim m_Ver As New ClsVeresion m_Ver.objAddItem Label0 调用自定义类的 objAddItem 方法End Sub 例程：ClsVeresion 类模块代码 程序功能：定义类接口，将版本信息输出并在标签中显示Public Sub objAddItem(m_label As Label)m_label.Caption = AppVersionEnd Sub函数功能：输出
16、ACCESS 版本信息Private Function AppVersion() As StringDim strVer As String 定义字符串变量将版本号赋值给字符串变量strVer = Application.Version根据版号输出对应版本信息Select Case strVerCase “8.0“AppVersion = “Access 97“Case “9.0“AppVersion = “Access 2000“Case “10.0“AppVersion = “Access 2002“Case “11.0“AppVersion = “Access 2003“Case “12
17、.0“AppVersion = “Access 2007“End SelectEnd Function（二）DLL 的封装 ACCESS 对象实现1、打开 VB6.0 编辑器，点菜单【新建工程】 ，在【新建工程】对话框中，点选【ActiveX DLL】 ，点【确定】 。2、修改工程名及类名，实例中我定义的工程名：GetAccVer ，类名：ClsAccVer ，修改完成以后点选菜单【保存】工程 （见下图)。 工程名就是我们后面将引用的 DLL 库名，类模块名为代码中我们申明的类名。3、点菜单【工程】-【引用】 ，打开【引用对话框】 ，点选“Microsoft Access 11.0 Object Library”完成对当前版本 ACCESS 应用程序对象的引用。
