Button description on mouse hover?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Using Office 2003 and Windows XP;

Is it possible to code a few buttons on a userform so that when the mouse
hovers over each one, a one line description of the button appears below the
row of buttons?

Please don't suggest tooltips as these work very intermittently. If hover
can't be done, and apart from tooltips, does anyone have any novel
suggestions on how to accomplish this?

Thanks for your input.
 
I've always used the ControlTip text property of the button to control that-
I'm not sure if you mean you've tried/disliked that method before when you
say "tooltips."

If we're talking about the same thing, and it works poorly for you, have you
tried using the OnMouseMove event? Perhaps setting it to make an unbound text
control visible- as this user has done?
http://www.accessmonster.com/Uwe/Forum.aspx/access-modulesdaovba/20328/Mouse-Move
 
It is possible.
You will need a label control that has its visible property set to No. Now,
depending on how fancy you want to get with it, you can either leave the text
box in a static location or you can specify it's location based on the button
clicked.

In the Mouse Move event of a button

With Me.lblInfo
.Caption = "This Button is for Making Toast"
.Left = 2880
.Top = 5688
.Visible = True
End With

Easy enough? .....Well, now we have to turn it off.
If they are all in the same section, for example the Detail section of the
form, you use the Mouse Move property of the detail section to turn it off by
making it not visible again
 
I place a label at the bottom of my form named HelpLine, formatted to center
the text and long enough to contain the longest help text with text centered,
then to display the text for a given control:

Private Sub YourControl_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
HelpLine.Caption = "This is the help text for YourControl"
End Sub

Then to blank the message out when you roll off of the control:

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
HelpLine.Caption = ""
End Sub

Linq
 
Back
Top