Stap 15: De Code: rood tank verkeer
Als u wilt verplaatsen van de rode tank die ik gebruik Voeg 4 timers, elk voor een van beide omhoog omlaag links of naar rechts Formulier2 ontwerp selecteert u timers 9-12 in en druk op invoeren de volgende code aan elk:
Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Timer9.Tick ' omhoog
tank1. Top-= 5
tank1. Afbeelding = rt1. Afbeelding
End Sub
Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Timer10.Tick ' naar beneden
tank1. Top += 5
tank1. Afbeelding = rt3. Afbeelding
End Sub
Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Timer11.Tick ' links
tank1. Linker += 5
tank1. Afbeelding = rt4. Afbeelding
End Sub
Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Timer12.Tick ' juiste
tank1. Linker-= 5
tank1. Afbeelding = rt2. Afbeelding
End Sub
