1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Coordenadas do Rato em VB2005

Discussão em 'Programação' iniciada por Smoklin, 6 de Maio de 2008. (Respostas: 3; Visualizações: 708)

  1. Smoklin

    Smoklin Power Member

    Boas noites,

    Estou no 11º ano no curso Tecnológico de Informática, tenha a disciplina Bases de programação, ao qual tenho me safado bem! Tenho visto algumas dúvidas acerca de coordenadas do rato, como nas aulas demos um programa acerca disso eu decidi partilhar com vocês e assim talvez poder esclarecer dúvidas dos iniciados tal como eu.

    É um programa muito simples:

    Se quiserem saber as coordenadas horizontais, criem uma TextBox e insiram o seguinte código:

    Private Sub TxtB1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TxtB1.MouseMove

    TxtB1.Text = e.X

    End Sub


    Agora é o seguinte o que vêm em Bold têm que ter muita atenção primeiro tem que ter a propriedade mousemove, segunda de puserem no final txtb1.mousemove, só vos irá dar as coordenadas da TextBox, para conseguírem que vos dê as coordenadas do fórum têm que mudar para Me.MouseMove.

    Para as coordenadas Verticais, mas inserirem outra TextBox e em vez de porem no código,

    TxtB1.Text = e.X ----------> vão meter --------> TxtB2.Text = e.Y

    ""Muita atenção aos nomes que dão, isto são exemplos""

    Pronto agora já conseguem saber as coordenadas do vosso rato dentro do forum.

    Se quiserem também brincar um bocado, aqui vai um bocado mais de programação para saberem que botão do vosso rato foi clicado:


    Private Sub TxTB3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    TxTB3.Text = e.Button
    If e.Button = Windows.Forms.MouseButtons.Left Then
    TxTB3.Text = "O Botão esquerdo do rato foi pressionado"
    ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then
    TxTB3.Text = "O Botão Central do rato foi pressionado"
    ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
    TxTB3.Text = "O Botão direito do rato foi pressionado"
    End If
    End Sub


    Não se esqueçam novamente de mudar a propriedade para MouseDown e no final de meterem Me.MouseDown para puderem carregar no fórum e aparecer a mensagem, volto a repetir se não meterem me apenas irá aparecer mensagem quando carregarem dentro da TextBox.

    E é tudo! Espero que consiga ajudar alguém com este código! Não tenham problemas em questionar ou criticarem, estamos todos cá para aprendermos!

    Agradecimentos

    Smok
     
  2. miglituh_pondo

    miglituh_pondo Power Member

    n conheces nenhum codigo semelhante para o vb6???
     
  3. Smoklin

    Smoklin Power Member

    Epah agr não me lembro mas isso foi feito em vb6....
     
  4. bikefire

    bikefire Banido

    :009: no meu vb deu bem -- bom código
     

Partilhar esta Página