按鈕應該每隔兩次更改文本

Question

我正在嘗試使用Visual Basic創建一個Tic Tac Toe遊戲。按下按鈕後，按鈕應該先轉到「O」，然後下一個按鈕應該是「X」，但它似乎繼續放置「O」。

Dim turn As Boolean 
    turn = True 'true = X turn, false = Y turn 
    Dim b As Button 

    b = DirectCast(sender, Button) 
    If (turn) Then 
     b.Text = "O" 
    Else 
     b.Text = "X" 
     turn = Not turn <<< This seems to not to be working... 

     b.Enabled = False 
    End If 

Answer 1

您需要聲明的方法外turn變量，所以它是類的成員，不是每次重新創建一個局部變量。

此外，您應該在每次更改後翻轉狀態，不僅在放置X時相同，而且在禁用按鈕時也相同。

例子：

Dim turn As Boolean = True 'true = X turn, false = Y turn 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim b As Button = DirectCast(sender, Button) 

    If turn Then 
    b.Text = "O" 
    Else 
    b.Text = "X" 
    End If 

    turn = Not turn 
    b.Enabled = False 
End Sub