質問編集履歴
1
数字の修正をしました
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,7 +2,7 @@
|
|
2
2
|
visual studio2019,windowsフォームアプリケーションにて作業しています。
|
3
3
|
ライツアウトというゲームは画像のような5x5でできている赤と青の色を一色にすればクリアというものです。今回はすべて青になった場合をクリアとします。![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-06-13/6a312d37-1117-4f15-bdde-5ca877f55165.png)
|
4
4
|
関数number(x)はクリックしたボタンとその四方が赤であれば青に、青であれば赤にするよう作りました。(ボタン番号は左から123…となります。)
|
5
|
-
以下プログラムを書きましたがリセットボタン以外のボタン
|
5
|
+
以下プログラムを書きましたが,リセットボタン以外のボタンを押しても色がどこも変わりません。修正点ありましたらよろしくお願いします。
|
6
6
|
|
7
7
|
Private Sub Button26_Click(sender As System.Object, e As System.EventArgs) Handles Button26.Click
|
8
8
|
|
@@ -38,7 +38,7 @@
|
|
38
38
|
End If
|
39
39
|
End Sub
|
40
40
|
|
41
|
-
Dim mybutton(
|
41
|
+
Dim mybutton(25) As Object
|
42
42
|
Private Sub number(x As Integer)
|
43
43
|
|
44
44
|
mybutton(1) = Button1.BackColor
|
@@ -88,7 +88,7 @@
|
|
88
88
|
End If
|
89
89
|
End Sub
|
90
90
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
91
|
-
Dim x As Integer
|
91
|
+
Dim x As Integer=1
|
92
92
|
number(x)
|
93
93
|
End Sub
|
94
94
|
以降button25まで
|