Stap 16: De Code: blauwe tank verkeer
Voeg de volgende code aan elk voor de blauwe tank ik deed het zelfde behalve in verschillende timers zo in Formulier2 ontwerp Selecteer timers 13-16 en druk op enter:
Private Sub Timer13_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Timer13.Tick ' omhoog
tank2. Top-= 5
tank2. Afbeelding = bt1. Afbeelding
End Sub
Private Sub Timer14_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Timer14.Tick
' naar beneden
tank2. Top += 5
tank2. Afbeelding = bt3. Afbeelding
End Sub
Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Timer15.Tick ' links
tank2. Linker-= 5
tank2. Afbeelding = bt2. Afbeelding
End Sub
Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Timer16.Tick ' juiste
tank2. Linker += 5
tank2. Afbeelding = bt4. Afbeelding
End Sub
