Access 开发框架（翻译+改编）系列之三——集合、类和垃圾回收

Access 的垃圾回收（garbage collection）跟它的健壮性相比差得太多。当我们开始使用更高级的结构，比如类（class）和集合（collection）的时候，我们可能会遇到对象没有从内存中释放的问题。如果你保存了一个指向任何对象，例如窗体，控件或自定义类的指针，并且你永远不释放这个指针，然后你关闭 Access，表面上看，你好像关闭了，但实际上，内存并没有被释放出来还给操作系统。这会导致内存泄露，以及一些古怪的问题，甚至会阻止 Access 的关闭。

假定你使用一个类，这个类可以初始化其他的类。类A实例化后赋给变量 clsA。clsA 实例化其他 10 个类，将这 10 个类的对象变量保存在集合（collection）中。当 clsA 被置为 nothing 后，一般会认为 Access 会自动的清除掉这个类中的所有变量，包含集合中的对象变量，指向记录集的变量，指向窗体和控件的变量等。不幸的是，实际情况并不总是这样。当它不是这样时，你要确保它能被清除。（翻译这段的时候，我特意在 Access 2010上做了一点测试，实际情况似乎总是能正常被清除。有兴趣的可以下载这个文件3.1 通过类创建一个窗体的10个实例，打开该文件后，可以运行宏“CreateObjA”, 实例化 clsA，clsA 在初始化的时候会创建10个Form1，将其保存在它的私有集合变量mcol中。你可以看到10个Form1的拷贝被创建并打开了。最后运行宏“ReleaseObjA”，简单的将 ObjA 置为Nothing。你会发现ObjA的10个Form1对象全部被释放，没有发生内存泄露。）

举例来讲，在我的框架中，我一直都使用类来为窗体和控件定制一些通用的特性。每个窗体的头部都定义了一个窗体类 dclsFrm 的公有变量，然后在该窗体的 OnOpen 事件中被创建和初始化，dclsFrm 初始化时，传递给它一个指向当前窗体内建类（built in class）的对象变量（Me），dclsFrm 将这个指向当前窗体内建类的指针保存在 dclsFrm 类的私有变量中，这个私有变量是在类 dclsFrm 的头部定义的。

这样做的的一个好处就是，当在函数中打开某个窗体的时候，它可以让这个窗体保持打开状态，直到这个函数退出才会被关闭。它也允许 dclsFrm 根据需要直接引用控件和窗体的属性。

注意到没有？这里有问题！问题就出在这是一个环形引用。窗体有一个指向类的对象变量，类也有一个指向窗体的变量。必须采取一点措施将类和窗体中的对象变量重置，以便让类和窗体能正确的关闭和释放内存。对象编程的一条公理就是：一个对象会一直驻留在内存中，直到最后一个指向它的对象变量被设置成 Nothing。（这里我也做了一个示例文件：3.2 环形引用无法卸载的示例下载打开该文件后，运行宏“CreateFrom1”后，代码会实例化一个Form1，然后在Form1的打开时，将Form1的头部定义的类变量实例化，将指向当前Form1的指针“Me”传递给 dclsFrm 的init 方法，该方法将该指针保存在类 dclsFrm 的私有变量mfrm中。这样就形成了一个环形引用。然后运行宏“ReleaseForm1”，你会发现Form1并没有关闭。如果将函数“ReleaseForm1”中的第一句代码取消注释，你重新运行整个环节后，你会发现Form1可以正常关闭了。）

此外，dclsFrm 有一个窗体扫描函数，可以遍历窗体的控件集合，为它扫描到的每一个控件实例化一个类。当它扫描完时，如果某个窗体上有10个控件，那么我就加载了11个类 – dclsFrm 和 10 个控件类。我将指向这些控件的指针保存在 colChildren 集合中，并以控件名作为索引关键字。这样，我就能用控件名通过遍历这个集合找到任何我想控制的控件。

现在，当窗体需要关闭时，我需要清空这个加载的类，关闭里面的所有内容并释放其占用的内存。我通过一个叫做 Term() 的方法函数来做到这一点。这个函数遍历 Children 集合，调用每个子类的 Term 方法，然后将指向这个子类的指针从 Children 集合中移除。

如你所见，如果每个类都有一个类似的结构，任何类卸载前，先调用它的 Term 方法，这个Term 方法遍历并卸载它的 Children 集合中的每一个对象。这样，一个类可能有10个子类，每个子类又可能有10个子子类，每个子子类……不管你继续往下走多深……既然调用父类的 Term 方法会首先调用子类的 Term , 调用子类的 Term 会调用子子类的 Term 方法，一直到最底层的类被卸载，然后这个链接会像涟漪一样返回到最初的父类。调用父类的 Term 方法最终将会有效的卸载掉其所包含的所有子类。

因为这个原因，我们势必要严格定义类的结构，让它有效提供加载和卸载的功能。它必须是永远的，自动的发生。

是的。说的没错。

事情不是这样的。就像上面提到的环形引用，或者一个指向控件的对象变量不能被卸载，导致 Access 不能将其父窗体关闭，所以这个类永远也卸载不掉，卸载链条的涟漪永远不会发生。

混乱发生了。我们需要帮助我们解决故障的工具。在这一点上，我要感谢Shamil Salakhedinov 的工具和想法。在我刚开始学习使用类的时候，我从他那里受益颇丰。

当我开始使用类的时候，我遇到的首要问题之一就是如何跟踪记载类的加载和卸载。加载一个类，当你用完之后，而不卸载它，会导致内存泄露，类所占用的内存不会还给操作系统。有时 Access 会在关闭时将内存释放出来，偶尔它会导致 Access 无法正确的关闭，这不仅会导致内存泄露，也会导致一些其他的问题。这些鬼魂一样的 Access 实例在 Windows 98 下是看不见的，据我所知，Access 2000 之前的版本中，这些实例是无法被关闭的。Access 2000 以及之后的版本，你可以使用任务管理器来关闭它。这两种方法都是丑陋的。因此，我们跟踪记录类的加载和卸载是非常关键的。

在我当前的框架中，我使用一个长整形变量，每个类在加载时，将这个长整形变量递增1。这是我的第一个工具，从 Shamil 那里拿过来的示例代码。

Private mlngObjCounter As Long      '系统中所有类的实例的计数

Public Sub IncObjCounter()
    mlngObjCounter = mlngObjCounter + 1
End Sub

Public Sub DecObjCounter()
    mlngObjCounter = mlngObjCounter - 1
End Sub

这段代码很有用，至少它告诉你加载的对象的总数。我决定我真的想知道加载对象的名字。为了做到这一点，我添加了一个集合，在其中，我添加了类的名字，当类卸载的时候，将类的名字在集合中移除掉。

Private mlngObjCounter As Long      '系统中所有类的实例的计数
Public mcolObjNames As Collection

Public Sub IncObjCounter(strObjName As String)
    mlngObjCounter = mlngObjCounter + 1
    mcolObjNames.Add strObjName
End Sub

Public Sub DecObjCounter(strObjName As String)
    mlngObjCounter = mlngObjCounter - 1
    mcolObjNames.Remove strObjName
End Sub

然后我可以用一个函数将集合中的名字全部读书来：

Public Function ObjNames() As String
On Error GoTo Err_ObjNames

    Dim strName As Variant
    Dim str As String
    For Each strName In mcolObjNames
        If Len(str) > 0 Then
            str = str & "; " & vbCrLf & strName
        Else
            str = strName
        End If
    Next strName
    ObjNames = str

End Function

这段代码工作非常好，我在系统中用了它很长一段时间。

对于新的框架，我决定将一个实际指向这个对象的指针也保存下来，而不仅仅只是保存对象的名字。这个类调用一个函数，在对象加载的时候，该函数将一个指向该对象的指针保存在集合中，另一个函数在该对象卸载的时候将它的指针移除掉。这样做了之后，我就有了一个单独的地方，在这个地方我可以查看和控制任何对象。我们要处理的问题之一是“指向这个类的指针存储在哪里”？换句话讲，类可能在窗体代码中被加载，那么指针就存储在窗体的头部变量中；或者类在某函数的一段代码中被加载，那么指针就存储在这个函数的当前变量中；亦或类在另一个类中被加载，那么指针就这个类的集合变量中。如果你想查看这个类，执行一个方法，检查一个属性等，你如何得到一个指向该类的指针呢？通过将指向所有加载类的指针存储在一个集合中，我们可以：

• 通过集合的Count属性，可以获得所有加载的类的总数
• 通过遍历集合，可以获取其中的对象名字列表
• 通过指向类的指针，可以根据需要来控制其对象

因为这些，我已经决定使用这种方法。

免责声明：非常重要的是，你要意识到，类不会真的从内存中卸载，除非最后一个指向类的指针被设置为 nothing。这样，如果你实例化一个类，将指向这个类的指针存储在集合中，同时也在窗体头部（举例来说）的变量存储这个指针。这个类是不会卸载的，除非你在集合和窗体中都删除掉了指向这个类的指针。如果你的代码在别的地方也保存了指向这个类的指针，这个类也是不会卸载的，除非这3个指针都被设置为nothing。我的类的 init() 和 term() 方法将指针保存在对象跟踪记录类的集合中，同时指针也被保存在当前类的的父类的 child 集合中（详见后续系列），当类卸载的时候，它会将这2个地方的指针清除掉。然而，如果你的代码在另外的地方保存了指向这个类对象的某个变量，我也不知道它，无法将其清除，那么这个类将一直无法卸载，直到你将你的指针设置成nothing。

一旦到了我们要使用这些功能的时候，我将创建一个类 clsInstanceStack 为框架提供对象追踪记录的服务。

（本篇讨论的是建立一个框架必须要解决的对象释放的问题，看不懂也没有关系。从下一篇开始往后，将从最基础的类的介绍开始，详细讨论创建一整套框架的每一个细节问题。有兴趣了解的请留言。另外网站也开通了QQ登陆功能。免去了注册的烦恼^_^）