Movendo um Form sem borda (FormBorderStyle = None): A forma correta – VB.NET

Para mover um Form sem borda apenas cole o código abaixo no código do seu form:

    Const WM_NCLBUTTONDOWN As Integer = &HA1
    Const WM_LBUTTONDOWN As Integer = &H201
    Const HTCAPTION As Long = 2

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

    Protected Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m)
        If m.Msg = WM_LBUTTONDOWN Then
            ReleaseCapture()
            SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, &H0)
        End If
    End Sub

Simples e fácil!

Anúncios

2 comentários

Deixe um comentário :)

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s