List 6-162　Business.Slipコンポーネントに追加するコンストラクタ文字列の処理

  1： Implements IObjectConstruct
  2： Implements ObjectControl
  3： 
  4： ' 上司の承認が不要な伝票の最大合計金額
  5： Dim g_MaxTotal As Currency
  6： 
  7： ' コンストラクタ文字列関連のメソッド
  8： Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
  9：     ' コンストラクタ文字列を取得し，変数g_MaxTotalに代入
 10：     If IsNumeric(pCtorObj.ConstructString()) Then
 11：         g_MaxTotal = pCtorObj.ConstructString()
 12：     Else
 13：         g_MaxTotal = 0
 14：     End If
 15： End Sub
 16： 
 17： ' オブジェクトのアクティブ化，非アクティブ化における処理
 18： Private Sub ObjectControl_Activate()
 19：     ' アクティブ化されたときの処理（ここでは何もしない）
 20： End Sub
 21： 
 22： Private Sub ObjectControl_Deactivate()
 23：     ' 非アクティブ化されたときの処理（ここでは何もしない）
 24： End Sub
 25： 
 26： Private Function ObjectControl_CanBePooled() As Boolean
 27：     ' オブジェクトのプーリングの設定（VisualBasicの場合には無意味）
 28：     ObjectControl_CanBePooled = True
 29： End Function