سلام
جا به جا کردن فرم بدون Titlebar
Public Class Form1
Public isMouseDown As Boolean = False
Public xLast As Integer
Public yLast As Integer
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseUp
isMouseDown = False
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove
If isMouseDown Then
Dim newY As Integer = Me.Top + (e.Y - yLast)
Dim newX As Integer = Me.Left + (e.X - xLast)
Me.Location = New Point(newX, newY)
End If
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseDown
isMouseDown = True
xLast = e.X
yLast = e.Y
End Sub
End Class
پاسخ با نقل قول
