Ir para o conteúdo
PJM

Verificar se o botão direito do rato foi pressionado [Resolvido]

Mensagens Recomendadas

PJM    0
PJM

Pessoal no VB 6.0 eu usava:

if Button = vbmouseright then
'código aqui
end if 

No VB .net tentei isto:

    Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
        If MouseButtons = Windows.Forms.MouseButtons.Right Then
            MsgBox("a")
        End If
    End Sub

e nada, alguém sabe o que está mal?

Cumprimentos e obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
PJM    0
PJM

POis não sei :\ eu fiz mesmo por tentativa porque não encontro o raio do comando que recebe a informação de qual o botão foi clicado, já tentei com o sender e nada  :hmm:

Cumprimentos.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vitortomaz    1
vitortomaz

usa isto:

If e.Button==MouseButtons.Right

as informações sobre o click vêm no MouseEventArgs

o source é o objecto que foi clikado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
PJM    0
PJM

Amigo meti

    Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then
            MsgBox("a")
        End If
    End Sub

e não fez nada :S

Estarei a fazer algo mal?

Obrigado e cumps.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vitortomaz    1
vitortomaz

acho que o problema no teu código é que uma ListBox não suporta rigth click logo não dispara o evento! Se meteres o código num form já funciona bem

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Só tens uma coisa errada ... o evento.

É MouseDown ou MouseUp e não MouseClick. O MouseClick só "dispara" quando é clicado um item.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
PJM    0
PJM

Só tens uma coisa errada ... o evento.

É MouseDown ou MouseUp e não MouseClick. O MouseClick só "dispara" quando é clicado um item.

Ahh pois é, nem tinha reparado nisso.

Tens razão jpaulino assim dá.

vitortomaz apesar de ser em C# em VB 2008 .net também dá :)

Já agora aqui fica o código final:

    Private Sub ListBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseUp
        If e.Button = MouseButtons.Right Then
            MsgBox("a")
        End If
    End Sub

Obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade