VB封装DLL实例讲解（二）

（二）DLL的封装ACCESS对象实现

1、打开VB6.0编辑器，点菜单【新建工程】，在【新建工程】对话框中，点选【ActiveX DLL】，点【确定】。

2、修改工程名及类名，实例中我定义的工程名：GetAccVer ，类名：ClsAccVer ，修改完成以后点选菜单【保存】工程 （见下图)。

? 工程名就是我们后面将引用的DLL库名，类模块名为代码中我们申明的类名。

3、点菜单【工程】-【引用】，打开【引用对话框】，点选“Microsoft Access 11.0 Object Library”完成对当前版本ACCESS应用程序对象的引用。

4、将MDB中类模块ClsVeresion代码复制到VB中ClsAccVer类模块中，按前面我们所述的VB中实现ACCESS对象编程的注意要点略做修改。（见下图划红线部分）

? 1、因为VB与ACCESS VBA 中标签类对象都为Label，因此加上库名（Access.Label）加以区别；

2、因为VB与ACCESS VBA顶层应用程序对象，表述原本就有区别，所以无需特别区分。

? 例程：ClsAccVer类模块代码

'程序功能：定义DLL接口，将版本信息输出并在标签实例中显示 Public Sub objAddItem(m_label As Access.Label) m_label.Caption = AppVersion End Sub

'函数功能：输出ACCESS版本信息 Private Function AppVersion() As String Dim strVer As String '定义字符串变量

'将版本号赋值给字符串变量 strVer = Application.Version

'根据版号输出对应版本信息 Select Case strVer Case \

AppVersion = \ Case \

AppVersion = \ Case \

AppVersion = \ Case \

AppVersion = \ Case \

AppVersion = \ End Select End Function

4、编译DLL，点菜单【文件】-【GetAccVer.dll】动态链接库，封装DLL就完成了。

你现在可以在ACCESS中引用该DLL测试一下看看成果了。参看实例中frmVer7窗体，如实例引用报错，请重新引用GetAccVer.dll即可。

因为本人认知及文字水平所限,不免有错漏之处,还请大家斧正。本文的Word文稿、VB源码、MDB实例均在实例包中。在后文中我们主要就动态链接库引用的方法和技巧结合实例进行探讨。

江羽 2010-05-30午