8、VB与VBA类模块中的属性和事件详解

VB与VBA类模块中的属性和事件详解

1. 类模块与代码复用

在编程中，类模块为代码复用提供了一种结构化的方式。如果使用类来创建库，只需在新的项目中添加对该类的引用，这样既可以避免源代码被查看或修改，又能在一处修改过程，所有引用该类的地方都会生效。

2. 属性的重要性与实现

2.1 属性的概念

属性是类的重要元素，类似于代码模块中的全局或公共变量。但属性具有额外优势，每次为属性赋值时，既可以验证值，还能执行其他代码。而且，类模块中声明的属性可以从当前项目外部访问，有助于消除全局变量带来的混乱。

2.2 属性的实现示例

以下是一个示例，展示了如何通过属性自动填充集合：

Public Property Get Count() As Long
    If mcolAnyColl.Count = 0 Then
        Call PopulateCollection()
    End If
    Count = mcolAnyColl.Count
End Property

2.3 属性的数据验证

属性过程的一个主要用途是验证数据。传统的数据验证通常在表单级别进行，这会导致验证代码分散在多个表单中，增加了出错的风险。而使用属性过程进行验证，验证逻辑集中在一处，任何表单都可以使用该属性，确保只有经过验证的数据才能进入数据库。例如：

Public Property Let ClaimDate(dVal a