オプションの依存関係の作成

私の「標準ライブラリ」のモジュールの1つは、クラスモジュール（ clsApp ）です。 ）現在のユーザー名やタイトルバーのテキストなど、アプリケーションレベルのプロパティとメソッドが含まれます。 clsApp内から他のクラスモジュールも公開します 、 clsStatusなど およびclsRegistry 、アクセスステータスバーとWindowsレジストリへのより読みやすいアクセスをそれぞれ提供します。

ただし、すべてのプロジェクトでステータスバーやWindowsレジストリにアクセスする必要はありません。したがって、 clsStatusへの依存関係の作成を回避するため またはclsRegistry クラスの場合、一意の「コメントトークン」を使用してそれらのクラスを参照するコードをコメントアウトします。

これは、例を使って説明するのが最も簡単です：

' Notes     
' - Find and replace '$$ with blank to enable Status property (requires clsStatus)
' - Find and replace '&& with blank to enable Reg property (requires clsRegistry)

'$$Private m_objStatus As clsStatus
'&&Private m_objReg As clsRegistry

'$$Public Property Get Status() As clsStatus
'$$    Set Status = m_objStatus
'$$End Property

'&&Public Property Get Reg() As clsRegistry
'&&    Set Reg = m_objReg
'&&End Property

Private Sub Class_Initialize()
    '$$    Set m_objStatus = New clsStatus
    '&&    Set m_objReg = New clsRegistry
End Sub

Statusを有効にしたい場合 上記のクラスのプロパティで、'$$でグローバル検索と置換を実行できます 。

これはしばらくの間はうまくいきましたが、私にはいつも不器用でした。おそらくそうだったからでしょう。もう1つ注意すべき点は、コメントトークンは、コードライブラリ全体でグローバルに一意である必要があるということです。このアプローチを長く続けていたら、これはメンテナンスの悪夢だったでしょう。

' Notes 
' - Replace the '$$ and '&& kludges with conditional compilation

#Const EnableStatusProperty = True  'If True, requires import of clsStatus class
#Const EnableRegProperty = False  'If True, requires import of clsRegistry class

#If EnableStatusProperty Then
Private m_objStatus As clsStatus
#End If
#If EnableRegProperty Then
Private m_objReg As clsRegistry
#End If

#If EnableStatusProperty Then
Public Property Get Status() As clsStatus
    Set Status = m_objStatus
End Property
#End If

#If EnableRegProperty Then
Public Property Get Reg() As clsRegistry
    Set Reg = m_objReg
End Property
#End If

Private Sub Class_Initialize()
#If EnableStatusProperty Then
    Set m_objStatus = New clsStatus
#End If
#If EnableRegProperty Then
    Set m_objReg = New clsRegistry
#End If
End Sub