COORDENADA MOUSE

PROGRAM 18/08/2010 21:10:12
#350642
Queria ajuda para que, quando eu clicasse em algum lugar no form, o Button movesse para lá.
grato!
JONATHANSTECKER 19/08/2010 01:53:07
#350652 Resposta escolhida
Faça dessa forma:

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Dim x As Integer = Control.MousePosition.X - (Me.Location.X)
        Dim y As Integer = Control.MousePosition.Y - (Me.Location.Y)
        Me.Button1.Location = New System.Drawing.Point(x, y)
    End Sub


Obs.: Só tem ajustar a diferença da borda do form.
PROGRAM 19/08/2010 02:11:43
#350654
obrigado, mas fica meio fora do lugar do click, tem como arrumar?
JONATHANSTECKER 19/08/2010 02:21:25
#350655
Citação:

Obs.: Só tem ajustar a diferença da borda do form.



Por exemplo, se a propriedade FormBorderStyle do Form for igual a None fica no local exato..

Tente dessa forma e veja como fica...

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Dim x As Integer = Control.MousePosition.X - (Me.Location.X) - 10
        Dim y As Integer = Control.MousePosition.Y - (Me.Location.Y) - 30
        Me.Button1.Location = New System.Drawing.Point(x, y)
    End Sub
PROGRAM 19/08/2010 11:47:42
#350682
Agora deu certo, obrigado!
Tópico encerrado , respostas não são mais permitidas
Voltar