|
|
|
|
|
|
|
|
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
|
|
|
|
|
