34、VB与VBA编程关键语法与特性详解

VB与VBA编程关键语法与特性详解

1. Implements语句

Implements语句在VB和VBA中用于在对象模型中实现多态性。多态性相较于继承，具有速度和灵活性的优势。

1.1 语法

Implements objVarName

其中， objVarName 是必需的，类型为类，它是引用标准接口类的对象变量名。

1.2 描述

该语句告知VB，你将为引用的标准接口类中的每个公共方法和属性提供实现。标准接口类仅包含过程声明，具体的实现代码由使用该类接口的开发者编写。

例如，一个标准接口类可以提供一个 Exists 函数：

Public Function Exists(vVal as Variant) As Boolean
End Function

以下是两种不同的实现方式：
实现方式一：

Public Function Exists(vVal As Variant) As Boolean
    On Error Goto Exists_Err
    Dim oTest as TestObject
    Set oTest = m_col.Item(vVal)
    Set oTest = Nothing
    Exists = True
    Exit F