Faça uma pergunta »

VB.Net - Mover uma forma ou PictureBox com o mouse

Julho 2015



O título já diz tudo.
  • Abrir um novo projeto.
  • Colar uma PictureBox.

O código,


Public Class Form1 
    Private Const WM_NCLBUTTONDOWN = &HA1 
    Private Const HTCAPTION = 2 

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 
                 (ByVal hwnd As Integer, ByVal wMsg As Integer, _ 
                  ByVal wParam As Integer, ByVal lParam As String) As Integer 
    Private Declare Sub ReleaseCapture Lib "user32" () 

'Deslocamento da PictureBox 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 
        Dim lHwnd As Int32 
        lHwnd = PictureBox1.Handle 
        If lHwnd = 0 Then Exit Sub 
        ReleaseCapture() 
        SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) 
    End Sub 

'Deslocamento da forma 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove 
        Dim lHwnd As Int32 
        lHwnd = Me.Handle 
        If lHwnd = 0 Then Exit Sub 
        ReleaseCapture() 
        SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) 
    End Sub 

End Class

Clicar na pictureBox ou na forma e mover o mouse; mover o controle ou a forma.
Funciona com qualquer controle que tenha um Handle.

Tradução feita por Lucia Maurity y Nouira
Para uma leitura offline, é possível baixar gratuitamente este artigo no formato PDF:
Vb-net-mover-uma-forma-ou-picturebox-com-o-mouse.pdf

Veja também

Na mesma categoria

VB.Net - Move a form or PictureBox with mouse.
Por jak58 em 2 de janeiro de 2012
VB.Net - Mover un form o PictureBox con el ratón
Por Carlos-vialfa em 6 de janeiro de 2012
[VB.Net] Déplacer une forme ou PictureBox avec la souris.
Por lermite222 em 1 de janeiro de 2012
Artigo original publicado por lermite222. Tradução feita por pintuda.
Este documento, intitulado « VB.Net - Mover uma forma ou PictureBox com o mouse »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.