Een wandelende image (vb6)

[satriano]

dag

Met deze code :

Dim sprite As Image, finalSprite As Image, finalsprite2 As Image


Private Sub MoveSprite(start As Boolean)

'
Static iniLeft As Integer, iniTop As Integer, endLeft As Integer, endTop As Integer
Static orizDir As Integer, vertDir As Integer, leftStep As Integer, topStep As Integer
Static firstGo As Boolean

If start Then

iniLeft = sprite.Left
iniTop = sprite.Top
endLeft = finalSprite.Left
endTop = finalSprite.Top




orizDir = Sgn(endLeft - iniLeft)
vertDir = Sgn(endTop - iniTop)
leftStep = 20 ' constante waarde

topStep = Abs(iniTop - endTop) \ (Abs(iniLeft - endLeft) \ leftStep)
firstGo = True '

sprite.Left = sprite.Left + leftStep * orizDir
sprite.Top = sprite.Top + topStep * vertDir

Timer1.Enabled = True

Else


sprite.Left = sprite.Left + leftStep * orizDir
sprite.Top = sprite.Top + topStep * vertDir

If firstGo Then

If sprite.Left >= endLeft Then ' hier keert de sprite terug
orizDir = orizDir * -1
vertDir = vertDir * -1
firstGo = False
End If

Else
'
If sprite.Left <= iniLeft Then
'
Timer1.Enabled = False
End If

End If

End If

End Sub

Private Sub cmd_Click()
Set sprite = Img1
Set finalSprite = Img2
MoveSprite True
End Sub

Private Sub Timer1_Timer()
MoveSprite False
End Sub

gaat een imagebox 'wandelend' naar een tweede imagebox.
De naam van eerste image is img1
Naam van de tweede img2
In het programma is de eerste image SPRITE genoemd en de tweede Finalsprite

Dus bij start gaat sprite zacht naar Finalsprite ed dan keer terug waar ze was.

Kan iemand mij helpen op nog x finalsprites te voegen, zodat, sprite gaat over de eerste, dan naar de tweede, dan naar de derde....om terug te komen naar de start plaats?
Mijn probleem is dus andere images (Finalsprites) te voegen.

dank u

 

[That Guy]

voor meer sprites zou je je code gewoon moeten kopieren... maar wat mischien makkelijker is om het niet met timers te doen


hierbij een demo-project toegevoegd

 

[satriano]

Ik heb al geprobeerd om stukken code copy-paste te doen maar het is mij niet gelukt

om wat il zoek te verkrijgen.
Daar mijn vraag om hulp....
Kan niemand mijn code beetje aanpassen ?
(De timer gebruik ik voor de snelheid te aanpassen)

dank u
ik zal uw demo ook bekijken..

 

[satriano]

IK heb het demo bekijkt..
Het is van ongeveer dezelfde soort van mijn programma.
In mijn programma is 1 image die loopt naar de andere images.
Die gaat gewoon 'over 'de images die ontmoet, dus moet de inhoud NIET vervangen
van de gepasseerde. Gewoon overlopen, en dan naar de ander.. en zo tot de laatste
.En dan de ciclus herhalen tot druk op een Stop button;