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

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

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

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.111 из 5


СДЕЛАЙТЕ РЕПОСТ