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 botão no evento MouseMove do Toolbar
Postada em 29/4/2002 por Maninho            
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 Toolbar1.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
    Label1.Caption = "Botão 1"
    Case Is = 2
    Label1.Caption = "Botão 2"
    Case Is = 3
    Label1.Caption = "Botão 3"
    End Select
    
Exit For
   End If
Next

PS: Na seção Projetos VB tem um projeto
End Sub
 


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