Paintイベントが実行できません。。。

質問

Paintイベントが実行できません。。。

　こんにちは、いつも勉強させていただいております。
質問させていただきます。どうぞよろしくお願いいたします。
新年早々とんちんかんな質問でしたら申し訳ございません＾＾；

　開発環境Vista＋VB2008になります。

　デバッグ開始（再生ボタン）後、Label_E_2.Invalidate()からの
Label_E_2.Paintイベントがしょっちゅう実行できなくなるので、
一時停止ボタンを押してみると毎回、別のイベント(Label_E_1.Paint)中の
決まった行が緑色になり、
「このスレッドによって現在の関数が実行された後、次に実行されるステートメントです。」
と表示されます（←理解できておりませんorz）

　For Each コントロール In Panel1.Controls
　　If InStr(コントロール.name, "_E_") Then
　　　コントロール.Image = My.Resources.Btn_E_OFF
　　End If　　　↑この行でございます
　Next

　毎回この行でPaintイベントが止まっているようなイメージを受けております。
「コントロール」という変数の使い方がまずいのでしょうか。。。？
もしかすると解放作業か何か必要になるのかな？などと試行錯誤いたしております。
以前別のプログラムで同じようなコードを作成したときは問題なかったのですが。。。
　Googleで検索などいたしましても出てこず、悩んでおります。
どのような現象なのかだけでもアドバイスいただくことができれば嬉しいです。

　もしお詳しい方がいらっしゃいましたら，アドバイスいただきたく
どうぞよろしくお願いいたします。

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

Invalidate実行
　　↓
Paintイベントが発生する
　　↓
イベントハンドラで画像を更新する
　　↓
Paintイベントが発生する
　　↓
イベントハンドラで画像を更新する
　　↓
Paintいべんｔ・・・以下無限にループ

といった状況になっているのではないでしょうか？？

Paintイベント内でImageプロパティを変更すると、このような無限ループに陥ることになるので、Paintイベントによる描画処理と画像の設定は別々に扱ったほうがよいと思います。

例：画像を設定してからInvalidaを呼び出す、など。

設計が変更できない状況であれば、フラグを用いて、Paintイベントの処理中に同じイベントが呼び出されたら即座に脱出するような仕組みを組み込めばよいかと。

Private blnPainting As Boolean = False

Private Sub Control_Paint(ByVal sender As Object...(略)

If blnPainting Then Return
blnPainting = True

' 描画処理
' この処理中にControl_Paintが呼び出されても大丈夫。

blnPainting = False

End Sub

お礼

うぃず先生｀ー´ゞ

　どうもありがとうございます！！！
明けましておめでとうございますm(_ _)m

＞Paintイベント内でImageプロパティを変更すると、このような無限ループに陥ることになるので
　おっしゃられます通り、コードの整理目的でImageプロパティ
変更コードをPaintイベント内に移動いたしました＾＾；
この２日で他にも一気にいろんなことをやってしまいましたので
原因が掴めておりませんでしたが、おそらくビンゴでございます。

　過去に他のコードで別サブルーチンを呼び出してしまうことに
気がついた経験がありましたので、今回もバグ取り中に注意していた
つもりでございましたが、まさか自身のサブルーチンを
呼び出してしまいますとは。。。今すぐ直してきます！

　本当にいつもどうもありがとうございます。お陰でまた今から
コーディングの続きを楽しむことができます。
（いろいろとアドバイスいただけますお陰で、いろんな工夫が
できるようになりました。
　年末年始も結構いろんな機能を作製できました＾＾
まだバグ取りタイムがほとんどですが。。。orz）

　今回も勉強になりました！どうもありがとうございました！！！