asya писал(а):Как бы мне сделать формочку без шапки верхней, но чтобы таскать можно было легко по всей поверхности экрана.
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
IsMouseDown = True 'IsMouseDown as Boolean
MouseOffset.X = e.X ' MouseOffset as System.Drawing.Point
MouseOffset.Y = e.Y
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
IsMouseDown = False
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If IsMouseDown Then
Me.Location = New Point( _
Me.Location.X + e.X - MouseOffset.X, _
Me.Location.Y + e.Y - MouseOffset.Y)
End If
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 73