• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Show ToolTipText of Buttons from a ToolBar in a StatusBar.

Show ToolTipText of Buttons from a ToolBar in a StatusBar.

Show ToolTipText of Buttons from a ToolBar in a StatusBar.

Rate Show ToolTipText of Buttons from a ToolBar in a StatusBar.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim ctr As Long, Compt As Double, Found As Boolean
    Compt = 0
    Found = False
    For ctr = 1 To ToolBar.Buttons.Count
        If ToolBar.Buttons(ctr).Width > 0 Then
            If X >= Compt And X <= Compt + ToolBar.Buttons(ctr).Width Then
                If ToolBar.Buttons(ctr).ToolTipText <> "" Then
                    StatusBar1.Panels(1).Text = ToolBar.Buttons(ctr).ToolTipText
                    Found = True
                End If
            End If
            Compt = Compt + ToolBar.Buttons(ctr).Width
        End If
        DoEvents
    Next
    If Not Found Then
        StatusBar1.Panels(1).Text = "Default Text of StatusBar"
    End If
End Sub