1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Grid1_CellClick(ByVal Row As Integer, ByVal Col As Integer, ByVal Header As LameGrid.HeaderInfo) Handles Grid1.CellClick
If Grid1.Cell(Row, Col).BackColor = Color.White Then 'si le coup est possible
Grid1.Cell(Row, Col).BackColor = couleur 'on le joue
If IsWinner(couleur) = True Then 'vérifie si qq1 à gagné
MsgBox(WhoWin)
End If
If couleur = Color.Red Then 'si c'est le joueur ROND alors c'est aux CROIX de jouer
couleur = Color.Green
ElseIf couleur = Color.Green Then 'et vice versa
couleur = Color.Red
End If
Else
MsgBox("impossible case non vide")
End If
End Sub |