if tooltiptext.visible = true then

[dimava]

is it possible to do something like

if tooltiptext.visble = true then
msgbox "hi"

or maybe some other way to detect if the mouse was still over a object for 3 seconds (or how many the tool tip text is)

I hope you get what I'm trying to say


thanks in advance

[DIGITALPUPPET]

try this under the mouse move. if you want it to pause for
3 secs then just add a PAUSE FUNCTION.



Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.ToolTipText = "This Is The ToolTip Text"

If Label1.ToolTipText = "This Is The ToolTip Text" Then
MsgBox "Hi Peep!!"
End If

End Sub

[dimava]

where do I put Pause Function?

[DIGITALPUPPET]

put the following in a module


Sub Pause(interval)
Dim Current
'pauses
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub




put the call out in the code like below

'Pause for Pause...... 3 for the number of secs to hold
'The Pause should go right after if tooltiptext = "Bla"
'Pause for 3 secs. then show msgbox

Pause(3)

[DIGITALPUPPET]

PS....Don't forget to add a timer to the form and set the intervals to 1

[dimava]

ok, thanks