タイトル : 簡単なゲームの作成中【質問】 投稿日 : 2009/01/09(Fri) 13:01 投稿者 : or2
はじめまして。 私は現在簡単なゲームの作成をしているのですが、どうしてもわからないことが出来ましてご質問させていただきます。 ■はボタンだと思ってください。 フォームに下記のようにコードでボタンを配置しました。 ■■■ コードは・・・ Dim SU As Integer = 0 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load While SU < 3 Me.NewB = New Button(SU) {} SuspendLayout() Me.NewB(SU) = New Button Me.NewB(SU).Name = "Button" & SU.ToString + 1 Me.NewB(SU).BackColor = Color.White Me.NewB(SU).Text = SU Me.NewB(SU).Width = 40 Me.NewB(SU).Height = 40 Me.NewB(SU).TextAlign = ContentAlignment.MiddleCenter Me.NewB(SU).Left = 20 + (50 * SU) Me.NewB(SU).Top = 20 Me.Controls.Add(NewB(SU)) AddHandler NewB(SU).Click, AddressOf NewB_Click PerformLayout() SU = SU + 1 End While End Sub そして「AddHandler NewB(SU).Click, AddressOf NewB_Click」のコードは・・・ Private Sub NewB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim SelB As button = DirectCast(sender, Button) (省略) End Sub ・・・となっています。 ここからが本題です。 3つのボタンのうち真ん中のボタンを押すと両隣のボタンの色が変わるようにしたいのですが、ボタンをコードで記述したため両隣のボタンの指定のやり方がわからないのです。 (例えば「○○.Backcolor」のように○○に何を入れればよいのかわからない) 説明が苦手でわかりにくいとは思いますが、どなたか知恵をお貸しください>−< |