我试图实现一个新类,该类正在Excel VBA中实现两个接口,但是我遇到了编译问题,因为接口的成员似乎在实现类中未正确实现(它们不可调用)。
接口如下:
ICrawlable:
Option Explicit
Public Function GetCrawler() As ICrawler
End Function
Run Code Online (Sandbox Code Playgroud)
IEquatable:
Option Explicit
Public Function Equals(CompareObject As Variant) As Boolean
End Function
Run Code Online (Sandbox Code Playgroud)
而ICrawlable还拥有一个返回接口的函数ICrawler:
Option Explicit
Public Property Get CurrentItem() As Variant
End Property
Public Sub MoveNext()
End Sub
Public Function GetNext() As Variant
End Function
Public Function ItemsLeft() As Boolean
End Function
Run Code Online (Sandbox Code Playgroud)
我InterfaceTester使用前两个接口创建了一个示例类:
Option Explicit
Implements ICrawlable
Implements IEquatable
Private Function ICrawlable_GetCrawler() As Variant
End Function
Private Function IEquatable_Equals(CompareObject …Run Code Online (Sandbox Code Playgroud)