Как перемещать форму без бордюров - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

создал форму в vb2010, от отключил верхний бар (заголовок) и теперь невозможно передвигать окно после запуска программы. вопрос: как сделать окно передвижным без включения верхнего бара?

Решение задачи: «Как перемещать форму без бордюров»

textual
Листинг программы
Public Class Form1
    'декларация функций и констант Win32API
    Declare Function ReleaseCapture Lib "user32" () As Integer
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Public Const HTCAPTION = 2
    Public Const WM_NCLBUTTONDOWN = &HA1
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End Sub
End Class

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы