Question : faster version of controltip to display tooltip text

On my machine with access 2003, controltip takes about 5 seconds to display, which is annoying.

So, I am looking for a simple way to speed things up. A tools option (or even a registry hack) changing the 5 second delay to a 1 second delay would be great.

But, since I don't know how to do this, the attached code using the mousemove event is the best I can come up with.
There are several problems
#1, Every form needs its own control named "myToolTip"
#2, I would like to code the mousemove events to be =tooltipper() instead of =tooltipper("form","controlname").
I tried saying =tooltipper(Me), but that does not work.
#3, The tooltipper subroutine runs about 500 times a second for as long as the mouse is in the control

I hope someone can help

rberke

Code Snippet:

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

           
           
             Option Compare Database
Option Explicit
Function tooltipper(ctl, ctlName)
 
Dim myMe, myCtl
If TypeName(ctl) = "String" Then
    Set myCtl = Forms(ctl)
Else
    Set myCtl = ctl
End If
Debug.Print ctlName & Now()
Set myMe = myCtl.Controls(ctlName)
' MsgBox myctl.FormName
With myCtl.[myToolTip]
    .Caption = myMe.ControlTipText
    .Top = myMe.Top - 300
    .Left = myMe.Left
End With
End Function
           
         

Open in New Window

Select All

Answer : faster version of controltip to display tooltip text

Hi Rob,
See this link: http://blogs.msdn.com/access/archive/2009/08/24/cool-tool-tips-a-better-control-tip.aspx
(has a free sample demo mdb that you can download)

The tip is read from the control's Tag property when a control with a tip gets the focus, and the tip is hidden when the control loses the focus. Clicking on the tip while it is displayed hides the tip. A Tip's heading and text are separated by a "~" delimiter in the string assigned to a control's Tag property. The string is parsed by a generic public function in a module, called by another generic function behind the form.