2013/05/22(Wed) 08:56:13 編集(投稿者)
■No66748 (ゆきみ さん) に返信
A,B,Cだけのように少ないコントロールなら
各コントロールのEnterイベントで
FLGを持たせるなどで処理が可能です。
またActionを利用した実装例として
こんな書き方も出来ます。実行確認はしていません。
Private act as Action = Nothing
Private Sub A_Enter() Handles A.Enter
act = Nothing
End Sub
Private Sub B_Enter() Handles B.Enter
act = Nothing
End Sub
Private Sub B_Leave() Handles B.Leave
act = AddressOf 実際の処理
End Sub
Private Sub 実際の処理()
〜 ここに処理を書く〜
End Sub
Private Sub C_Enter() Handles C.Enter
If act isnot Nothing Then
act()
End If
act = Nothing
End Sub
#2010の実装を書いてしまったので一部修正