locked
Como programar no clique do botão do mouse? RRS feed

  • Pergunta

  • Eu preciso programar um "evento" para o botão do meio do mouse, mas não faço ideia se é em KeyDown, PreviewKeyDown, Click, MouseClick... Onde exatamente faço isso? A linguagem é VB.NET e os componentes são um WebBrowser e uma ComboBox.
    sábado, 4 de julho de 2009 14:27

Respostas

  • Fox,

    Vc pode fazer assim:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Button1.Text = "Teste"
    End Sub
    
     Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
         Me.Button1.Text = "Clique"
    End Sub
    
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Me.Button1.Text = "Teste"
    End Sub
    

     Abraço,

     

    Abraço


    Nelson Borges - http://nelsonborgesjr.spaces.live.com/blog/
    domingo, 5 de julho de 2009 21:36
  • Fox,

    Agora entendi oq precisa, bom algum tempo atras eu vi este artigo -> http://www.codeproject.com/KB/miscctrl/vbnet-multitab-browser.aspx


    Acho que ira te ajudar, o mesmo possui o codigo fonte para você estudar, abraço.



    Nelson Borges
    Nelson Borges - http://nelsonborgesjr.spaces.live.com/blog/
    domingo, 5 de julho de 2009 22:56

Todas as Respostas

  • Olá,

    veja se ajuda

    Capture Mouse Click Events
    http://forums.asp.net/p/1234952/2239133.aspx

    []s
    Marcelo Ramos
    http://www.marceloramos.net/Blog

    Marcelo Ramos
    sábado, 4 de julho de 2009 16:52
  • O código é em ASP, eu procuro VB. Estou fazendo uma aplicação, não um website.
    sábado, 4 de julho de 2009 16:58
  • Ok,

    O evento é o MouseDown

    Para WindowsForms, um artigo bem explicativo :
    http://www.c-sharpcorner.com/UploadFile/mahesh/mouse_events12232005014128AM/mouse_events.aspx

    Está em C#, mas é muito simples e de facil tradução para VB.NET

    Att,
    Marcelo Ramos
    http://www.marceloramos.net/Blog

     


    Marcelo Ramos
    sábado, 4 de julho de 2009 22:03
  • Fox,

    Vc pode fazer assim:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Button1.Text = "Teste"
    End Sub
    
     Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
         Me.Button1.Text = "Clique"
    End Sub
    
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Me.Button1.Text = "Teste"
    End Sub
    

     Abraço,

     

    Abraço


    Nelson Borges - http://nelsonborgesjr.spaces.live.com/blog/
    domingo, 5 de julho de 2009 21:36
  • O evento MouseMove é realmente o correto, e ele funcionou na ComboBox do jeito que o Marcelo sugeriu, mas o componente WebBrowser não possui esse evento, o que complica um pouco as coisas.
    domingo, 5 de julho de 2009 21:40
  • Fox,

    Veja se te ajuda -> http://support.microsoft.com/kb/311284

    Apenas lembre-se dos conceitos web (client-side e server-side).


    Abraço,
    Nelson Borges - http://nelsonborgesjr.spaces.live.com/blog/
    domingo, 5 de julho de 2009 21:47
  • Eu já havia visto essa página, mas ela necessita de umas bibliotecas que eu nunca usei na vida. De qualquer jeito, eu vou tentar. Obrigado pela ajuda.
    domingo, 5 de julho de 2009 21:50
  • Fox, quais bibliotecas você diz ?

    Existem muita documentação no msdn, se precisar podeos ajuda-lo.


    Abraço,
    Nelson Borges - http://nelsonborgesjr.spaces.live.com/blog/
    domingo, 5 de julho de 2009 21:52
  • Acontece que recentemente eu terminei meu técnico de informática. Fiz um navegador para a internet com abas de TCC, e sempre quis que ele abrisse uma página em outra aba caso um link fosse clicado com o botão do meio do mouse, como no IE ou Firefox.
    Eu cheguei bem perto disso com o seguinte código:

            If e.KeyCode = Keys.MButton And CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText.StartsWith("http://") Then
                NovaAba()
                CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText)
            End If

    Onde CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser) é a forma de identificar o componente WebBrowser dentro da aba selecionada, e StatusText é uma propriedade do componente WebBrowser que mostra o endereço de um link quando o mouse está em cima dele no formato string.
    Eu preciso de uma forma de capturar o clique com o botão do meio do mouse quando o mouse estiver em cima de um link.

    Mas este link http://support.microsoft.com/kb/311284 parece que pode me ajudar. Com um pouco de tempo eu poso adaptar para o que eu necessito.
    domingo, 5 de julho de 2009 21:58
  • Fox,

    Agora entendi oq precisa, bom algum tempo atras eu vi este artigo -> http://www.codeproject.com/KB/miscctrl/vbnet-multitab-browser.aspx


    Acho que ira te ajudar, o mesmo possui o codigo fonte para você estudar, abraço.



    Nelson Borges
    Nelson Borges - http://nelsonborgesjr.spaces.live.com/blog/
    domingo, 5 de julho de 2009 22:56
  • Ééééé. Bem interessante o programa, sem contar que ele possui um TabControl diferente do que eu uso. Eu andei fuçando em alguns navegadores em VB, mas nunca tinha visto esse. Muito obrigado.
    segunda-feira, 6 de julho de 2009 00:07