Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Pomppiva picturebox

aloitteleva [26.04.2006 11:07:16]

#

Koodivinkki on aika hyödyllinen niille, jotka aloittavat taso hyppy pelien tekoa.
Pictureboxin nimi on lol (en keksinyt parempaa kun tätä asiaa keksin)

Sinun tarvitsee tehdä
- Timer1, Timer2, Timer3, Timer4
- picturebox, jonka nimi on lol
- iso formi

Private Sub Timer1_Timer()
lol.Left = lol.Left - 10
If lol.Left = "120" Then
Timer1.Enabled = False
Timer4.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
lol.Top = lol.Top + 30
If lol.Top = "4320" Then
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
lol.Top = lol.Top - 30
If lol.Top = "120" Then
Timer3.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer4_Timer()
lol.Left = lol.Left + 10
If lol.Left = "7080" Then
Timer4.Enabled = False
Timer1.Enabled = True
End If
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta