'制御対象となる親フォームの部品 Private WithEvents ownerButton As VB.CommandButton
'◎ 案3 : 操作が必要になるたびに、親にそれを通知する ◎ Public Event ButtonClicked()
'☆ 案1 : 子フォームに、操作対象のインスタンスを渡しておく☆ 'パラメータを渡すための初期化処理 Friend Sub Initialize(ByVal Button As VB.CommandButton) Set ownerButton = Button 'この中では、自身のコントロール等を操作しないこと。 'コントロールの初期化等が必要なら、Loadイベントを使うようにする。 End Sub
'子に親の面倒をみさせる場合のサンプル Private Sub Command1_Click() If Not ownerButton Is Nothing Then '制御対象のボタンが、初期化パラメータが渡されていれば、 'それを使って、ボタンの Enabled を制御する。 ownerButton.Enabled = Not ownerButton.Enabled End If End Sub
'子が親に通知する場合のサンプル Private Sub Command2_Click() '◎ 案3 : 操作が必要になるたびに、親にそれを通知する ◎ RaiseEvent ButtonClicked '独自の ButtonClicked イベントを発生させる End Sub