gaouser
Member
how to jump the charcter (imageview)
i try that
i try that
B4X:
Private Sub Button2_Click
MoveStart = ImageView1.top
MoveTo = ImageView1.top - ImageView1.Height
time.Enabled = True
End Sub
B4X:
Private Sub time_Tick
Dim f As Boolean
If ImageView1 = MoveTo Then
f=True
Else
ImageView1.Top = ImageView1.Top - 1
End If
If f = True Then
If ImageView1 = MoveStart Then
Else
ImageView1.Top = ImageView1.Top + 1
End If
End If
End Sub