在 VBA 中实现我自己的接口 - 错误：对象模块需要为接口“y”实现“x”

Question

如何实现我的类ClsInterface，它有这个代码：

Public Function add(x As Integer, y As Integer) As Integer
End Function

在我的班级Class2，有这个代码：

Implements ClsInterface

Public Function add(x As Integer, y As Integer) As Integer
add = x + y
End Function

我的测试代码是

Public Sub test()
Dim obj As New Class2
MsgBox obj.add(5, 2)
End Sub

这总是会出现以下错误：

Microsoft Visual Basic
编译错误：

对象模块需要为接口'ClsInterface'实现'add'
好的/帮助

但没有关于 Microsoft 帮助的帮助（当我按下帮助按钮时）。

有什么想法吗？

Answer 1

您的 Class2 必须如下所示：

Implements ClsInterface

Private Function ClsInterface_add(x As Integer, y As Integer) As Integer
    ClsInterface_add = x + y
End Function

查看 Class2 代码窗口顶部的下拉框，可以看到可以引用的基础对象； 类或ClsInterface。

在你想要的测试代码中：

Dim obj As New ClsInterface

如果你想跨接口调用。

我还建议以ISomeDescription 的形式命名接口，然后使用Dim 然后Set 而不是Dim As New。