私はVb.netでTicTacToeプログラムを作成していますが、これは基本的に9つのゲームを1つの「大きな」ゲームにしたものです。だから私は勝者が決定できるように無効にしたい81のボタンを持っています。最短のコードでそれらすべてに対処するにはどうすればよいですか?
Private Sub CheckOverallWinner()
If humangame1 = 1 And humangame2 = 1 And humangame3 = 1 Then
MsgBox("Human Wins")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
End Sub
では、Button_.Enabled = Falseと書く代わりに、81までずっと短い方法がありますか?ありがとう!
Dim o As Object
For Each o In Me.Controls
If TypeOf o Is Button Then
o.Enabled = False
End If
Next
VS2008でこれを試しました
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加