tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 簡単なゲームの作成中【質問】
投稿日： 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

・・・となっています。

ここからが本題です。

３つのボタンのうち真ん中のボタンを押すと両隣のボタンの色が変わるようにしたいのですが、ボタンをコードで記述したため両隣のボタンの指定のやり方がわからないのです。
(例えば「○○.Backcolor」のように○○に何を入れればよいのかわからない)

説明が苦手でわかりにくいとは思いますが、どなたか知恵をお貸しください＞−＜
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。