[VB .NET] Перемещать окно не только за заголовок

Dim mouseIsDown As Boolean Dim lastCoords As System.Drawing.Point Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles _ MyBase.MouseDown mouseIsDown = True lastCoords = Control.MousePosition End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles _ MyBase.MouseMove If mouseIsDown Then Dim deltaX% = Control.MousePosition.X - lastCoords.X Dim deltaY% = Control.MousePosition.Y - lastCoords.Y Me.Left = Me.Left + deltaX Me.Top = Me.Top + deltaY lastCoords = Control.MousePosition End If End Sub Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles _ MyBase.MouseUp mouseIsDown = False End Sub

 

« Пред.		След. »