|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Menu/Toobar/Coolbar)
|
|
 |
Título da Dica: Pegar o ToolTipText de cada botão de um Toolbar
|
 |
|
|
|
Postada em 11/4/2002 por Maninho
Para pegar o ToolTipText de cada botão de um Toolbar, para mostrá-lo numa StatusBar, faça assim:
Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim btn As MSComctlLib.Button
For Each btn In Barra.Buttons
If (X >= btn.Left And X <= btn.Left + btn.Width) And (Y >= btn.Top And Y <= btn.Top + btn.Height) Then
Select Case btn.Index
Case Is = 1
StatusBar1.Panels(1).Text = Toolbar1.Buttons(1).ToolTipText
Case Is = 2
StatusBar1.Panels(1).Text = Toolbar1.Buttons(2).ToolTipText
Case Is = 3
StatusBar1.Panels(1).Text = Toolbar1.Buttons(3).ToolTipText
End Select
Exit For
End If
Next
End Sub
Você pode também em vez de usar o ToolTipText colocar o seu texto:
StatusBar1.Panels(1).Text = "Botão Salvar"
T+
|
|
|
|
|
