有没有办法测试VB6中是否有Function / Sub？

Question

我们有一些Subs（如WriteErrorToLog和一些AutomatedTesting），如果我们想要重用一个组件，我想使它成为可选项。

我希望能够做一些像AddressOf（Sub）有效的事情然后执行Sub。

Answer 1

这样做的结构化方法是使接口的子/功能部分成为可能。您现在可以让两个不同的类实现该接口，一个提供空实现，另一个提供真实逻辑。

现在您可以简单地指定所需的任何类并调用该方法。如果您分配了空实现类，则不会执行任何代码。

Dim obj As IMyInterface
Set obj = New EmptyImplementationClass

Call obj.SomeSub() ''// Executes no code

Set obj = New RealImplementationClass

Call obj.SomeSub() ''// Executes the real implementation