Stap 4: De vakken
36. invoegen volgende code tussen Private Sub en End Sub voor elk vak:
'Opmerking - Make zeker de Shape nummers dialoogven met het vak in.'
Als PlayerTurnLabel.Text = "Rode Turn" Then
LineShape1.Visible = True
LineShape2.Visible = True
ElseIf PlayerTurnLabel1.Text = "Blue Turn" Then
OvalShape1.Visible = True
End If
' Als het rood opwindend, een kruis weergegeven wanneer u op een doos klikt zal maken. Als het blauwe schakelen, een cirkel.'
Als PlayerTurnLabel.Text = "Rode Turn" Then
PlayerTurnLabel.Text = "Blue beurt"
ElseIf PlayerTurnLabel.Text = "Blue beurt"
PlayerTurnLabel.Text = "Rode Turn"
End If
' Hierdoor wordt de bochten overstappen wanneer op een vakje te klikken. Als rood, het blauw en Vice-Versa zal worden '
Als LineShape1.Visible = True Then
RectangleShape1.Enabled = False
ElseIf OvalShpe1.Visible = True Then
RectangleShape1.Enabled = False
End If
'Hiermee schakelt u het vak nadat het is geklikt.'
37. Kopieer en plak de bovenstaande code in de codering voor elk van de vakken, alleen maken zeker te wijzigen de vorm nummers aan MATCH!