VB6에서 Function/Sub를 사용할 수 있는지 테스트 할 수 있습니까?

Question

우리는 구성 요소를 재사용하고 싶을 때를 대비하여 선택적으로 만들고 싶은 Sub (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