楽なやり方教えてください

質問

ラベル１～ラベル１０まで用意されている
コマンドボタンをクリックするたびにランダムに色を変える
（１～１０まですべてばらばらです）

ちなみに

Label1.BackColor = QBColor(i)

Label1.BackColor = BackColor.QBColor(i)

↑はエラーがでます。使い方が間違えているのでしょうか？
ほかにもいろいろしましたが　ダメでした・・・・。

またラベル１～１０まで　for　で処理する方法はないのでしょうか？

ちなみに

．NETです

なので

label1(1)

label1(2)

とクローン（？）は出来ません・・・・。（多分・・）

回答No.1

ARC · ベストアンサー

こんな感じですね。
コレクションを使わないでやる方法は、参考URLにて回答してます。

Public Class Form1
　　Inherits System.Windows.Forms.Form
　　Dim colButtons As Collection

　　'Form_Load時にコレクションにボタンを登録
　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
　　 Handles MyBase.Load
　　　　colButtons = New Collection()
　　　　With colButtons
　　　　　　.Add(Me.Button1)
　　　　　　.Add(Me.Button2)
　　　　　　.Add(Me.Button3)
　　　　　　.Add(Me.Button4)
　　　　　　.Add(Me.Button5)
　　　　End With
　　End Sub

　　'Button1～Button5がクリックされたら、この処理が走る
　　Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
　　 Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
　　　　Dim i As Long
　　　　Dim Btn As Button
　　　　For i = 1 To colButtons.Count
　　　　　　Btn = colButtons(i)
　　　　　　'FromARGB内は、不透明度,R,G,Bの順(各１バイト) ～.Color.Gold などでもOK
　　　　　　'QBColor関数で返る値はGBRの順(だった筈)なので、使うのに工夫が要るかも。
　　　　　　Btn.BackColor = System.Drawing.Color.FromArgb(&HFFFF8833)
　　　　　　Btn.Text = i.ToString
　　　　Next i
　　End Sub
End Class

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=656832

お礼

ご回答ありがとうございます。