MOVER OBJETO COM O MOUSE VB8

HAWER99 21/06/2013 21:21:36
#425084
Olá Galera! Quero saber se alguém sabe algum código para mover objetos com o mouse, mover um button ou picture box por exemplo. Falo arrastar o objeto, como se fosse a Área de Trabalho (Desktop), mover de um canto para outro. Obrigado! Valeu!
CLEVERTON 26/06/2013 09:33:00
#425222 Resposta escolhida
Testa isso ai.

    Private Mover As Boolean
    Private PosX, PosY As Integer

    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown

        Mover = True
        PosX = e.X
        PosY = e.Y

    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If Mover = True Then
            Button1.Location = New Point(Button1.Location.X + e.X - PosY, Button1.Location.Y + e.Y - PosY)
            Me.Refresh()
        End If
    End Sub

    Private Sub Button1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        Mover = False

    End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar