【VB2005】コードの書き方を教えてください。

質問

いつもお世話になります。

ボタンが50個有ります。
それぞれのボタンを押したら色が赤に変わります。
全部のボタンが赤に変わった時点で違う処理を走らせたいのですが、

If button1.backcolor=pink And button2.backcolor=pink And button3.backcolor...... then
　　　messagebox.show("A")
end if

などと頭の悪い方法より、
For eachを使って簡単に書けないでしょうか？

回答No.3

mjsamiasan · ベストアンサー

ANo.1さんの(3)になるのでしょうか。

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　For Each obj As Control In Me.Controls
　　　　If TypeOf (obj) Is Button Then
　　　　　　AddHandler obj.Click, AddressOf btnClick
　　　　End If
　　Next
End Sub

Private Sub btnClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
　　Dim btnWork As Button = CType(sender, Button)
　　btnWork.BackColor = Drawing.Color.Pink
　　For Each obj As Control In Me.Controls
　　　　If TypeOf (obj) Is Button AndAlso obj.BackColor <> Drawing.Color.Pink Then
　　　　　　Exit Sub
　　　　End If
　　Next

　　Call ShowMyDialog()
End Sub

Private Sub ShowMyDialog()
　　MessageBox.Show("A")
End Sub

※画面上の全てのボタンをチェックしています。一部のみの場合はNameで区別するなりTagで区別するなりPanelの中にいれるなりして下さい

お礼

参考にして無事思い通りの処理ができました。
どうもありがとうございました。本当にありがとう。

回答No.2

noname#187541

こんばんは。

コントロールの配列を作成する
http://dobon.net/vb/dotnet/control/buttonarray.html
ここを参考にすればブタンの配列が作れます。

お礼

VB2005はコントロール配列を作るのはじゃまくさいのです。

回答No.1

imogasi

イベントプロになるので
（１）ボタンを押すと、あるＰＵＢＬＩＣ変数に＋１、消すとー１
になるよう、全ボタンのイベントにそのコードを組み入れる。
（２）そして、どれでもボタンを押したとき５０に達したかどうか判断する。
もっと良いのは
（３）５０個のボタンのクリックイベントをあたかも１つのボタンのように記述できる方法を考える。（イベントのクラス化？）
そうできると、（１）（２）は、コード数行で済むでしょう。
（３）は私は詳しくないので、ご存知の方の回答を待つ。

お礼

ありがとうございました。