درخواست کد درگ و دراپ برای مکان فرم

[aryan99]

سلام به همگی
من یه برنامه ساختم
بعدش اون ضربدر و مینیمایزشو برداشتم یعنی فقط فرم بشه
بعد الان یه مشکلی پیش اومده که فرم یه جا ثابت میمونه
میخواستم چطوری متونم یک دکمه بزارم که وقتی کلیک نگه میداریم روش بتونیم لرنامه(فرم) رو مکانشو تغییر بدیم (مثله درگ دراپ)
؟؟
ممنون میشم جواب بدین.

[aryan99]

ویژوال استودیوم 2013 هستش (زیاد فرقی با 2010 هم نمیکند)

میخوام مثلا یه لیبیل باشه که کاربر روش کلیک نگه داره بتونه فرم1 رو تکون بده

[GGRRSS_2]

سلام

#Region "PictureBox01" Private Sub PictureBox01_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox01.MouseDown
x = e.X
y = e.Y
End Sub
Private Sub PictureBox01_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox01.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Left += e.X - x
Me.Top += e.Y - y
End If
End Sub
Private Sub Label_Title_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label_Title.MouseDown
x = e.X
y = e.Y
End Sub
Private Sub Label_Title_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label_Title.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Left += e.X - x
Me.Top += e.Y - y
End If
End Sub
#End Region