VBA 是 OOP 语言吗？它是否支持多态性？

Question

我实际上正在做我的第一个 VBA 项目。 （来自C++）

我想通过实现类和多态来改进 Microsoft Excel 工作簿使用的现有 VBA 项目。

我的问题是：

1 - 我阅读了很多文章/论坛，其中解释了 VBA 不是面向对象的编程 (OOP) 语言不支持多态。

他们中的一些人提出了一种使用关键字Implements的解决方法。

2 - 我还发现了一些网页，例如 this one，它们解释了如何在 VBA 中使用 Inherits、Overrides 等关键字执行 OOP 和多态性>、可覆盖、MustOverrides。

所以我的问题是：

VBA是一种OOP语言吗，是否支持多态性？

Answer 1

OOP 位于 4 个“支柱”上：

• 抽象 - 通过在类模块中定义对象，可以轻松地抽象出逻辑和概念。严格来说，抽象也是通过使用有意义的标识符，将过程代码提取到方法（类成员）中来实现的。

  这是一个用 VBA 编写的演示抽象的过程示例：

   Public Sub Test(ByVal checkin As Date, ByVal checkout As Date, ByVal custType As CustomerType)
       Dim finder As New HotelFinder
       InitializeHotels finder
       Debug.Print finder.FindCheapestHotel(checkin, checkout, custType)
   End Sub
  

  这个Test 过程的作用一目了然很容易，因为抽象级别非常高：实现细节是抽象的 em> 转向更专业的对象和方法。

• 封装 - 类可以有属性暴露的私有字段；可以创建类PublicNotCreatable，有效地将类型暴露给其他 VBA 项目 - 并且需要一点努力（通过导出类模块，在您喜欢的文本编辑器中打开它，手动编辑类属性，然后重新导入模块） ，可以实现实际的只读类型。没有参数化构造函数这一事实是无关紧要的——只需编写一个工厂方法，它接受你喜欢的所有参数并返回一个实例。这是 COM，而且 COM 无论如何都喜欢工厂。

  这是一个示例，说明上述 sn-p 中的 HotelFinder 类如何封装 Collection 对象并仅通过 Property Get 访问器公开它 - 此类之外的代码根本无法 @ 987654340@ 这个引用，它是封装的：

   Private Type TFinder
       Hotels As Collection
   End Type
   Private this As TFinder
  
   Public Property Get Hotels() As Collection
       Set Hotels = this.Hotels
   End Property
  
   Private Sub Class_Initialize()
       Set this.Hotels = New Collection
   End Sub
  
   Private Sub Class_Terminate()
       Set this.Hotels = Nothing
   End Sub
  

• 多态性 - Implements 允许您实现抽象接口（以及具体的类），然后您可以针对ISomething 抽象编写代码，它也可以是Foo 或 Bar（假设 Foo 和 Bar 都实现了 ISomething）——所有需要查看的代码都是 ISomething。方法重载是VBA缺乏的语言特性，但重载与多态无关，即the ability to present the same interface for differing underlying forms (data types)。

  这里是一个应用多态的例子——LogManager.Register 方法很乐意与任何实现了ILogger 接口的对象一起工作；这里有一个DebugLogger 和一个FileLogger——正在注册该接口的两个截然不同的实现；当稍后调用LogManager.Log(ErrorLevel, Err.Description) 时，这两个实现将各自做自己的事情； DebugLogger 将输出到 immediate 工具窗口，FileLogger 将在指定的日志文件中写入一个条目：

   LogManager.Register DebugLogger.Create("MyLogger", DebugLevel)
   LogManager.Register Filelogger.Create("TestLogger", ErrorLevel, "C:\Dev\VBA\log.txt")
  

• 继承 - VBA 不允许您从另一个类型派生：不支持继承。

---

现在的问题是，不支持继承的语言是否可以称为“面向对象”？事实证明，组合通常比继承更可取，其中有许多警告。 VBA 将让您组合对象随心所欲。

VBA 是 OOP 语言吗？

鉴于缺少的只是继承，而组合比继承更可取，我很想回答“是”。我之前已经编写过成熟的 OOP VBA 代码（模型-视图-演示器与工作单元和存储库，有人吗？），我不会用支持继承的“真正的 OOP”语言编写任何不同的代码。

这里有几个例子，都是 100% VBA：

• Model-View-ViewModel infrastructure & example (proof-of-concept)
• Full-blown OOP Battleship game with Model-View-Controller (MVC) architecture
• A reusable progress indicator
• Model-View-Presenter pattern
• UnitOfWork with Repository pattern
• Polymorphic logger
• Automagic Unit Testing framework

最后一个链接中的代码最终移植到 C#，并迅速演变为 a COM add-in for the VBA IDE，它为您提供重构、更好的导航、代码检查和其他工具。

VBA 的限制与您所做的一样。

Answer 2

简短的回答是不和不。

VBA 是基于对象的，允许您定义类和创建对象实例，但它缺少通常与成熟的 OOP 语言相关联的功能，例如：

• 封装和抽象：VBA 在一定程度上提供了这一点。类可以通过定义的公共接口保持私有，但是类中没有构造函数的规定。类有一个Class_Inititalize 事件，它可以做一些构造但不能接受参数。传递参数需要公共 factory function 变通方法才能创建构造函数风格的设计模式。
• 继承：在 VBA 中并不真正存在，但可以是 almost replicated
• 多态性：可以通过接口（使用Implements）在一定程度上实现，尽管不存在重载函数的能力（例如）并且每个“重载”在技术上都需要一个唯一的函数名。您可以通过将对象作为唯一参数传递给函数或子函数来解决此问题，并根据属性的值改变过程。

因此，虽然您可以在一定程度上使用对象，并且 MS Office 应用程序基于对象模型，但 VBA 并不是真正的面向对象语言。多态性无法达到您在 C++ 中熟悉的程度。