Étape 4: Les cases
36. insertion de code suivant in-between Private Sub et End Sub pour chaque zone :
« NOTE - Assurez-vous bien sûr la forme numéros correspondent boîte que c’est la boîte. »
Si PlayerTurnLabel.Text = « Tour rouge » puis
LineShape1.Visible = True
LineShape2.Visible = True
Else if PlayerTurnLabel1.Text = « Bleu tour » Then
OvalShape1.Visible = True
End If
"Si c’est rouge, il fera une croix s’affiche lorsque vous cliquez sur une boîte. Si on écoute bleu, un cercle. »
Si PlayerTurnLabel.Text = « Tour rouge » puis
PlayerTurnLabel.Text = « Bleu tour »
Else if PlayerTurnLabel.Text = « Bleu tour »
PlayerTurnLabel.Text = « Tour rouge »
End If
"Cela rendra les virages passer lorsqu’on clique sur une boîte. Si rouge, il devient bleu et Vice Versa »
Si LineShape1.Visible = True Then
RectangleShape1.Enabled = False
Else if OvalShpe1.Visible = True Then
RectangleShape1.Enabled = False
End If
« Cela désactive la case à après qu’il a été cliqué. »
37. copiez et collez le code ci-dessus dans le codage pour chacune des cases, juste faire sûr de changement la forme numéros à MATCH!