Pessoal Preciso usar um menu no botão direito do mouse, mas ele vai ter que funcionar assim.

 

se eu clicar com o botão direito do mouse em um determinado objeto ele tera que abribr o menu.

 

abraços

Crie um Menu com nome "Menus"
 Visible= desmarcado (não esqueça disso)
    Crie seus outros menus e sub menus
 No exemplo: mnuEmpresas
 Ex:
 Menus
     Funcionários <--- mnuFuncionarios
     Cadastro 
     Relatório
     Ficha
  Empresas <--- mnuEmpresas
     Cadastro 
     Relatório
     Ficha

Agora use o código a baixo para cada objeto que quiser usar seus menus.

Private Sub SeuObjeto_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If Button = vbRightButton Then
          PopupMenu mnuEmpresas
     End If
End Sub

Até +

 

Giovanni Sória

valeu cara...valeu mesmo

Olá, amigos!

 

É importante observar que nem todos os objetos possuem o evento 'MouseDown' e para reforçar o código do Giovanni, sugiro o seguinte:

 

Private Sub Obj_MouseDown(Button As Integer, Shift As Integer, X As Single, Y    As Single)
      If (Button = vbRightButton) Then
           Obj.Enabled = False
           PopupMenu XMenu, , , , XDefaultMenu
           Obj.Enabled = True 
      End If
End Sub

 

que melhora a performance do menu, ao clicar o objeto. 

 

 

Joseph
Técnico em Informática/Programador
São Paulo/SP

 

[jsff77@hotmail.com]