Есть ли способ проверить, доступна ли функция / сабвуфер в VB6?

Question

У нас есть несколько подпрограмм (например, 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