Ir para conteúdo
Fórum Script Brasil
  • 0

Toolbar


|Alucard|

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0

Experimente colocar isso aqui no evento MouseMove da Toolbar:

        Dim também As ToolBar = sender

        For Each bt As ToolBarButton In também.Buttons
            If Not bt.DropDownMenu Is Nothing Then
                If (e.X >= bt.Rectangle.X And e.X <= bt.Rectangle.X + também.ButtonSize.Width) And (e.Y >= bt.Rectangle.Y And e.Y <= bt.Rectangle.Y + também.ButtonSize.Height) Then
                    Dim m As ContextMenu = bt.DropDownMenu
                    bt.Pushed = True
                    m.Show(também, New Point(bt.Rectangle.X, bt.Rectangle.Y + também.ButtonSize.Height))
                End If
            End If
        Next

Veja se faz o que você quer.

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0

Sim, você está utilizando o VS 2005, né? Você *não* disse isso, e se referiu a ToolBar, por isso achei que você estivesse no 2003 ou 2002 (isso porque no 2005 ela se chama ToolStrip).

Vou tentar reproduzir esse código no 2005 para ver quais são as diferenças.

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,9k
×
×
  • Criar Novo...