Hur får jag ett objekt att röra sig från en punkt till en annan på en viss tid i Visual Basic?
Föremålet är i detta fallet en bild.
------------------
MVH
Anders a part of webAvis
aj2000@mail.bip.net
Vb
6 svar · 195 visningar · startad av Anders Johansson
Ingen aning. Fråga i ett VB forum. Här gör vi bara dynamiska websidor
------------------
Daniel Olsson - Vävkonsult
Personlig sida
KjAM Sekten Community
/N
Ja,
här gör vi dynamiska websidor ... men utesluter det VB??
Tror inte det då det är i det språket man kodar och sedan kompilerar Active X DLL'er för att kunna göra än mer dynamiska websidor, så ett VB forum vore faktiskt något att tänka på här.
Eller det kanske inte är en nödvändighet då det kräver att man har tillgång att kunna registrera dessa ActiveX DLL'er på servern och webhotellen brukar inte vilja regga dessa =( .... så då behöver man sitta med servern i "knät" så att säga ;o)
Tyvärr kan jag ej hjälpa dig med att förflytta en bild mer än med denna länk:
Scrolla ned och kolla in länken om Gameprogramming.
/PatrikB
[Redigerat av PatrikB den 03 apr 2000]
Hello,
detta får ett object att röra sig med hjälp av knapptryckningar.
Private Sub Command1_Click()
Image1.Move Image1.Left - x ' x = avståndet för förflyttning vid varje knapptryck
End Sub
För att få det att röra sig efter tid behövs även ett Timer object.
Testa dig fram, söker vidare själv och ser om jag hittar ngn bra lösning.
Kör du VB 6 (Visual Studio 6)?
Har du MSDN Library skivorna??(hjälpen till VS 6) dessa kan vara en kanonhjälp. Har de ej hemma där jag befinner mig just nu (sjuk idag) men kan kolla dem senare under veckan.
Eller, kolla här: MSDN Library
Sök efter Timer controllen
/PatrikB
[Redigerat av PatrikB den 03 apr 2000]
Här kommer lite mer kod som du kan labba med:
Private Sub Command1_Click()
If Image1.Left < 4080 Then
' förflytta bilden till höger
Do Until Image1.Left = 4080
Image1.Move Image1.Left + 1
Loop
'förflytta bilden tillbaka till utgångsläge
Do Until Image1.Left = 120
Image1.Move Image1.Left - 1
Loop
End If
End Sub
får en bild att förflytta sig från vänster kant av formuläret till höger och sedan tillbaka till utgångsläget =) när man klickar på en knapp ;)
/PatrikB
Hello again,
här kommer lite mer kod angående att flytta en bild med tiden.
Denna bild studsar endast fram och tillbaka i formuläret. Koden:
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Do Until Image1.Left = 4800
Image1.Move Image1.Left + 1
Loop
If Image1.Left = 4800 Then
Do Until Image1.Left = 120
Image1.Move Image1.Left - 1
Loop
End If
End Sub
Du kan ladda ned form och project filerna här:
Hoppas att allt mitt svammel har varit till någon hjälp
cu
/PatrikB
Tack för all hjälp.
Nanne, VB betyder faktiskt Visual Basic och det är Visual Basic, koden ursprungligen kommer ifrån när man talar om VBScript.
------------------
MVH
Anders a part of webAvis
aj2000@mail.bip.net
[Redigerat av Anders Johansson den 08 apr 2000]