VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

全てのコントロールのイベントを1つのイベントで管理(VB.NET) ( No.0 ) 　[親スレッドへ]

日時： 2009/12/26 21:56
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[イベント][基本コード][]　 *
* キーワード：イベント,1箇所所,まとめる,一括,共有, *
***********************************************************************************

元質問：フォームのClickイベントをどこでもで... - 権太郎　 2007/05/23-14:22 No.5543

フォームのClickイベントは、そのクリックした場所に他のコントロールが無い場合発生する
ようですが、コントロールがある場所においてもフォームのClickイベントが発生できないも
のでしょうか？

-----------------------------------------------------------------------------------
Re: (解決済み）Re^6: フォーム.. - KG 　2007/05/25-18:25 No.5567
-----------------------------------------------------------------------------------

Private Sub SetEvents(ByVal ctrls As System.Windows.Forms.Control.ControlCollection)
　　　For Each ctrl As Control In ctrls
　　　　　If ctrl.HasChildren Then
　　　　　　　SetEvents(ctrl.Controls)
　　　　　ElseIf ctrl.GetType Is GetType(Button) Then
　　　　　　　AddHandler ctrl.MouseEnter, AddressOf Buttons_MouseEnter
　　　　　　　AddHandler ctrl.MouseLeave, AddressOf Buttons_MouseLeave
　　　　　End If
　　　Next
End Sub

似たような処理をしたことがあるので参考までに。