Is there a way to check if the / Sub function is available in VB6?

Question

We have several Subs (e.g. WriteErrorToLog and some AutomatedTesting) that I would like to make optional if we want to reuse the component.

I would like to be able to do something like if AddressOf (Sub) is valid and then execute Sub.

Answer 1

A structured way to do this is to make an auxiliary / functional part of the interface. Now you can let two different classes implement this interface, one of which provides empty implementations, and the other - real logic.

, , . , .

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