有没有办法测试函数/子是否在 VB6 中可用？

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