List 6-91　コンストラクタ文字列の処理

  1： Implements IObjectConstruct
  2： Implements ObjectControl
  3： 
  4： ' データベース接続文字列
  5： Dim g_DBConnection As String
  6： 
  7： Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
  8：     ' コンストラクタ文字列を取得し，変数g_DBConnectionに代入
  9：     g_DBConnection = pCtorObj.ConstructString()
 10： End Sub
 11： 
 12： Private Sub ObjectControl_Activate()
 13：     ' アクティブ化されたときにg_DBConnection変数が初期化されて
 14：     ' いなければデフォルトの値を設定する
 15：     If g_DBConnection = "" Then
 16：         g_DBConnection = "Driver=SQL Server;Server=(local);" & _
   　                          "UID=sa;Database=businesssampleDB;"
 17：     End If
 18： End Sub
 19： 
 20： Private Sub ObjectControl_Deactivate()
 21：     ' 非アクティブ化されたときの処理（ここでは何もしない）
 22： End Sub
 23： 
 24： Private Function ObjectControl_CanBePooled() As Boolean
 25：     ' オブジェクトのプーリングの設定（VisualBasicの場合には無意味）
 26：     ObjectControl_CanBePooled = True
 27： End Function