Calculating total time of Mousemove event

[teja8100]

Hi all,

I am trying to calculate the total time the mouse pointer is over a particular command button. That is whenever i move my mouse over the command button it shuld compute the ampunt of time it stays on the command button. When i say the total time, it is the total time over multiple visits of the mouse pointer over the command button.

Someone please help me out.

Thanks
Teja

[mstraf]

I had a similar problem (get Enter/Exit events) that I solved with a dirty trick, that works as long as the button is on a form. Otherwise you have to catch the mouse event of the button container.

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Command1.Tag = "" Then
        Debug.Print "Command1_MouseEnter"
        Command1.Tag = "1"  '' I'm in
        '' start date = Now
    End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Command1.Tag = "1" Then
        Command1.Tag = ""   '' I'm out
        Debug.Print "Command1_MouseExit"
        '' total time = total time + (now - start date)
    End If
End Sub

I tried to use the SetCapture and ReleaseCapture API, but I had so much trouble that at the end decided for the 'easy' way.
Marco

[teja8100]

Thanks mstraf...it sure helps me out.