جابجا کردن یک Shape (مثلا دایره) با موس روی فرم (همون drag&drop)

[alibarghamadi]

سلام دوستان
من دارم یه برنامه گرافیکی مینویسم که توی اون نیاز دارم بعضی اشکال مثل دایره یا خط رو روی فرم جابجا کنم
حالا توش گیر کردم!!!:ناراحت::افسرده::افسرد ه:

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

ممنون از همه:چشمک:

[dataking]

سلام باید با لوکیشن کار کنی و محل جدید را محل قرار گرفنت موس در نظر بگیری
توضیح بیشتری نیاز هست ؟

[alibarghamadi]

ممنون ولی اگه بیشتر توضیح بدین یا اگه یه مثال بزنین خیلی خوبه.

[talent1]

ممنون ولی اگه بیشتر توضیح بدین یا اگه یه مثال بزنین خیلی خوبه.

یه دایره بزار رو فرم بعد...


Public Class Form1
Dim a As Boolean
Dim x1, y1 As Integer

Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click

End Sub

Private Sub OvalShape1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OvalShape1.MouseDown
a = True
x1 = e.X
y1 = e.Y
End Sub

Private Sub OvalShape1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OvalShape1.MouseMove
If a = True Then
OvalShape1.Left = OvalShape1.Left - x1 + e.X
OvalShape1.Top = OvalShape1.Top - y1 + e.Y
End If
End Sub

Private Sub OvalShape1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OvalShape1.MouseUp
a = False
End Sub
End Class