Balloon tip

[guitardave78]

Hi all. I now have the following code working to make a tooltip on a listbox item

It work perfectly for a normal tooltip.
If I want it to be a ballon type it shows but flashes even if the mouse is still!!
Can any of you help?


}...the bane of my life!

http://www.fuzzyd.co.uk

 

[guitardave78]

    Private Sub lstTabs_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstTabs.MouseMove
        Dim MousePositionInClientCoords As Point = New Point(e.X, e.Y)
        Dim indexUnderTheMouse As Integer = Me.lstTabs.IndexFromPoint(MousePositionInClientCoords)
        If indexUnderTheMouse > -1 Then
            Dim s As String = tabTitle(indexUnderTheMouse)
            Dim g As Graphics = Me.lstTabs.CreateGraphics
            If g.MeasureString(s, Me.lstTabs.Font).Width > Me.lstTabs.ClientRectangle.Width Then
                Me.ToolTip1.SetToolTip(Me.lstTabs, s)
            Else
                Me.ToolTip1.SetToolTip(Me.lstTabs, "")
            End If
            g.Dispose()
        End If
    End Sub

}...the bane of my life!

http://www.fuzzyd.co.uk

 

[PGoRule]

Can we introduce any timer control in-between? So that you can control the visible time period to some extent.

Sharing the best from my side...

--Prashant--

 

[guitardave78]

With luck this should not be nessacery as the normal tool tip works ok!!!

}...the bane of my life!

http://www.fuzzyd.co.uk

 

[ThatRickGuy]

Try removing the g.dispose

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[guitardave78]

Tried that as i am currently using

        Dim MousePositionInClientCoords As Point = New Point(e.X, e.Y)
        Dim indexUnderTheMouse As Integer = Me.lstTabs.IndexFromPoint(MousePositionInClientCoords)
        If indexUnderTheMouse > -1 Then
            Dim s As String = tabTitle(indexUnderTheMouse)
                Me.ToolTip1.SetToolTip(Me.lstTabs, s)
        End If

}...the bane of my life!

http://www.fuzzyd.co.uk