TimerInterval & events (any pointers)

[panteraboy]

Hey there again byters .My previous post was called click & hold(need info). I thought i had solved the problem but after testing i realise that its no doing what its supposed to. i wished to open a form after holding down the mouse on an image for 3 seconds. But the code just waits 3seconds to go to the form after clicking. if the user doent hold down the mouse for 3 seconds i dont want the form to open. Any suggestions gurus

Private Sub Form_Timer()
DoCmd.OpenForm ("pcspecs2")
Me.TimerInterval = 0
 
End Sub
Private Sub Image30_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.TimerInterval = 3000
End Sub

I tried using this code too but to know avail

Private Sub Form_Timer()
 
If (Me.TimerInterval <= 3000) Then
DoCmd.OpenForm ("pcspecs2")
Me.TimerInterval = 0
End If
 
End Sub
 
Private Sub Image11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Me.TimerInterval = 0
End Sub

[NeoPa]

I would forget the TimerInterval code.

Consider logging the time the mouse is clicked down, then check the Up-time and if the difference is less than 3,000ms then cancel the Click event.

Does that make sense?

[panteraboy]

Thanks yes it does. But i dont know how to retrieve the time of mouse down event or the time of the mouse up event. Is there a form current time property that i can retrieve this info from.

[NeoPa]

timeGetTime() vs Timer() should give you all you need to know.

If not, let us know the specifics of anything you need help with.