PictureBox با قابلیت Drag and Drop

[saghari]

با سلام
من باید توی برنامه ای که می نویسم امکان این رو بزارم که کاربر بتونه بعضی از قسمت ها رو مثل Label ها و Picturebox ها را جابه جا کنه. در این مورد اگه کسی راه حلی داره لطفا راهنمایی کنه.

[ghafoori]

:چشمک: دوست عزیز من برای سوال شما این کد را پیشنهاد میدم



Dim click_down As Boolean = False
Dim mouse_location As Point
Dim label_location As New Point
Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
click_down = True
mouse_location = e.Location
End Sub
Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If click_down = True Then
label_location.X = Label1.Location.X + e.X - mouse_location.X
label_location.Y = Label1.Location.Y + e.Y - mouse_location.Y
Label1.Location = label_location
End If
End Sub
Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
click_down = False
End Sub

[saghari]

با تشکر فراوان
امتحان می کنم

[saghari]

حل شد.
مشکل بزرگی را برایم حل کردید از توجه شما بسیار ممنونم.