Tooltip to show Expand/Collapse

Question

4.00/5 (1 vote)

See more:

Hi experts,

I'm new to vb.net. I'm using a button to expand/collapse a panel. This button is used to show/hide a panel contains some other buttons. I want to have a tooltip to show "Expand Panel" when panel hides and "Collapse Panel" when the panel shown.

Below is the code which I tried out.

VB

Private Sub Expand_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.MouseHover
       Dim toolTip As New ToolTip()
       toolTip.SetToolTip(Me.Button, "")

       If Not Me.Expanded Then
           toolTip.SetToolTip(Me.Button, "Expand")
       Else
           toolTip.SetToolTip(Me.Button, "Collapse")
       End If
   End Sub

The problem now is the tooltip text are overlapping each other if hover over the button. And sometimes we can see the text "Expand Panel" before it change to "Collapse Panel".

Anyone have suggestion on this?

Advanced thanks,
Skundhead

[Removed fake c# tag]

Posted 10-Nov-10 20:56pm

skunkhead

Updated 11-Nov-10 2:54am

Toli Cuturicu

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Scubapro · Accepted Answer · 2010-11-10T21:19:00

Solution 1

How about:

VB

Private Sub Expand_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.MouseHover
    Dim toolTip As New ToolTip()
    toolTip.SetToolTip(Me.Button, "")
    If Not Panel1.Visible = True Then
        toolTip.SetToolTip(Me.Button, "Expand")
    Else
        toolTip.SetToolTip(Me.Button, "Collapse")
    End If
End Sub

Posted 10-Nov-10 21:19pm

Scubapro

Comments

Dalek Dave 11-Nov-10 3:48am

Good Answer.

skunkhead 22-Dec-10 23:21pm

thanks Scubapro