تغییر مکان فرم با حرکت موس

[ahsanjan]

چطور می شود با vb.net کاری کرد که با موس فرم را به توان مکانش را تغییر داد مثل اینکه یک فرم را در ویندوز با کشیدن به چپ یا راست تغییرمکانش می دهیم
من این را نوشتم ولی خیلی غییر می کند امتحانش کنید

کد:

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Me.Location = New Point(e.X, e.Y)
    End Sub

[ajlajlajl]

خداییش چه حرکت خفنی انجام میداد.
اینو ببینید:

کد php:

Public Class Form1
    Dim tp As Point
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        tp = e.Location
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If tp <> Nothing Then Me.Location = New _
        Point(Me.Location.X + (e.X - tp.X), Me.Location.Y + (e.Y - tp.Y))
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        tp = Nothing
    End Sub
End Class