Move metod

[Johan Stenström]

Jag skulle vilja veta hur man gör för att få en shape-kontroll eller en bild att röra sig upp och ned i ett VB-formulär. Hur skall jag göra för att få den att gå upp och ned i en jämn och fin fart?

 

 

Hälsningar Johan

 

[Anp]

Skapa en Timerkontroll som innehåller kod för att öka bildens Y-koordinat samt uppdatera bildkontrollens Y-position.

Timerkontrollen skulle kunna innehålla ungefär detta:

 

Static y
y = y + 1
Picture1.Top = y

 

\\Anp

 

 

[Johan Stenström]

Så här gjorde jag och då funkade det till sist. Problemet var att bollen som studsade kom utanför formuläret, och det löste den här koden. Tack för tipset.

 

If img2.Height < (Studs.Height - img2.Top) Then

img2.Move img2.Left + 0, img2.Top + 100

 

Else: tmr1.Enabled = True

tmr2.Enabled = False

 

 

Hälsningar Johan