7/17/2019 Exibir Menus Popup

http://slidepdf.com/reader/full/exibir-menus-popup 1/1

Título da Dica: Exibindo menus com o botão direito do mouse

Postada em 5/4/2006 por Dançarino--------------------------------------------------------------------------------EXIBINDO MENUS COM O BOTÃO DIREITO DO MOUSE

A exibição de menus quando o botão direito do mouse é clicado passou a ser muito utilizda no Windows 95. Essa é uma função muito simples de ser implementada no seu programa, basta utilizar o método PopupMenu.

Crie normalmente o menu e defina-o como visível ou invisível, dependendo da necessidade. O método PopupMenu o exibirá independentemente do status da sua propriedade Visible. Escolha o objeto que permitirá ao usuário o uso do botão direito e insira as linhas de código conforme o exemplo descrito abaixo:

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)  If Button = vbRightButton Then  PopupMenu mnuEdit  End IfEnd Sub

No exemplo, o código foi adicionado ao evento MouseUp do objeto ListView1e será executado somente após o usuário soltar o botão do mouse. Na linha de comando que compara

o parâmetro Button, o valor da constante vbRightButton é 2, que representa o botão direito.

AOutros valores desse parâmetro com seus respectivos significados:Situação Nome da Constante Valor da ConstanteBotão esquerdo foi pressionado VbLeftButton 1Botão direito foi pressionado VbrightButton 2Botão do centro foi pressionado VbmiddleButton 4