title image


Smiley Re: Bild bewegen lassen (auto fährt) kann mir jemand helfen????
Sorry, habe gerade bemerkt dass du wahrscheinlich mit VB6 arbeitest.

Geht aber ähnlich.



Zuerst ein Modul anlegen:



Public Declare Function GetTickCount Lib "kernel32" () As Long



Public Sub Delay(t As Long)

  Dim TimeOut As Long

  TimeOut = (GetTickCount) + t

  Do

    DoEvents

  Loop Until TimeOut < (GetTickCount)

End Sub





Dann im Form:



Private Sub button1_Click()



Dim i As Integer

For i = 0 To 3000 Step 10

    Me.button2.Left = 3000 - i

    Me.button2.Top = 1000

    Delay 10

    DoEvents

Next



End Sub










Gruß Stephan



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: