USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+
    
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página