Post on 08-Jan-2016
description
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