有沒有方法可以測試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