Pop-up Menu No Vb

[Rafael Portal]

Alguém sabe me dizer como é que se cria os menu pop-up no VB??? Tipo o menu aquele que aparece quando você clica com o botão direito... Sites, apostilas, sujestões, dicas o que for é bem vindo...

Agradecido.

Rafael Portal

[Guest - jb207 -]

Vou postar um exemplo que fiz procure por "MenuPopUp.zip" ok.

Caso não consigo me passe seu e-mail

[jb207]

heheheheheh

Não consegui mandar o programa.

Não achei a opcao pra enviar arquivo.

Desculpe......

Me escrevam

jb207@bol.com.br

juarezbastos@zipmail.com.br

[William Rodrigues]

Brother...

Veja esse Link

Ah...

Antes de postar sempre faça uma busca aqui no fórum cara...

Você achará vários tópicos sobre o que procura

Abraços,

William Rodrigues

[Guest - Cardoso -]

Pegai

Digite este codigo no evento mousedow de algum controle ou fom

if button = 2 then

popupmenu nomedomenu

end if

Abraços

espero ter ajudado

maisinfo: Lima2003be@yahoo.com.br

[William Rodrigues]

Rafael Portal

Seria resumidamente assim:

Você vai criar o menu (acredito que isso você já saiba), porém, na hora da criação do menu você terá que desativar a opção Visible. Por exemplo, digamos que você já criar um menu com as opções 1, 2 e 3. No Menu Editor você irá criar primeiramente o menu.

Caption            Name                    Visible

Menu                               mnuA                               não

1                                     sub1                                sim

2                                     sub2                                sim

3                                     sub3                                sim

Obs: Coloquei o Menu com o Visible não pois essa opção não irá aparecer quando eu clicar com o botão direito do mouse.

Ah...

Lembrando que as opções 1,2 e 3 são opções do Menu, ou seja, tem aqueles três pontinhos (...)

Após feito isso, basta adicionar o código para que o menu apareça quando clicarmos com o botão direito do mouse. Exemplo:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu mnuA
    End If
End Sub

Acho que tentando você irá conseguir cara.

Qualquer dúvida é só postar

Abraços,

William Rodrigues

[Rafael Portal]

Valeu Wiliam!!

[William Rodrigues]

Opa!!!

Precisando brother, estamos æ

Abraços,

William Rodrigues