Einem Timer in VB6 Parameter übergeben??

[the.mole]

Wie kann ich in VB6 einem Timer Parameter übergeben???

Hier der Code:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Shape1.Left = x
Shape1.Top = y
End Sub

Ich möchte hier die Position der Mouse dem Timer übergeben aber wie??

Danke Im Voraus

MfG the.mole

 

[THRALL]

Direkt geht das nicht kanst es aber so machen:

Dim X1,Y1 as Long 'Globale Variablen
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
X1 = x
Y1 = y
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Shape1.Left = X1
Shape1.Top = Y1
End Sub

 

[the.mole]

THX jetzt funktionierts!!!

Danke

MfG the.mole

 

[THRALL]

Wieso benutzt du überhaupt den Timer ?

 

[the.mole]

Möchte die Position der Mouse verzögern!!! Benötige es für ein Spiel!!

MfG the.mole

 

[THRALL]

Achso

btw Wiso so viele !!! ?

 

[Half-Borg]

und warum zum teufel codest du ein Spiel in VB?

 

[CDW]

und warum zum teufel codest du ein Spiel in VB?

schon mal DOVE gesehen (läuft wurnderbar auf meinem amd k6-2 500 Mhz Rechner)?
Warum soll VB dazu nicht geeignet sein? Ich glaube kaum, dass er eine 3D Engine schreibt, wo man vielleicht noch die Unterschiede hätte messen können würden
*und was hat es eigentlich mit der Frage zu tun?*

 

[THRALL]

Außerdem hat VB(.NET) ne gute anbindung zu DirectX