امکان جابجایی button پس از اجرا؟

[khodam100]

با سلام
من می خوام یه برنامه بنویسم که در آن بتونم Buttonی که روی فرم گذاشتم رو به همه جای فرم درگ کنم(وقتی دکمه ی مووس پایین هست بشود Button رو گرفت و انور و اونور کشید)

از دوستان اگه کسی بتونه کد مورد نظر رو بذاره خیلی ممنون میشم

با تشکر فراوان

[vb.C++‎]

یکم فکر کنی بد نیست ....اینم دوتا راه بقیشم با خودت






Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

[vb.C++‎]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move (X - Command1.Width / 2), (Y - Command1.Height / 2)
End Sub

[saeedzx]

دوست گرامی انم کدش

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Drag
intx = X
inty = Y

End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - intx
Source.Top = Y - inty
End Sub

[khodam100]

یکم فکر کنی بد نیست ....اینم دوتا راه بقیشم با خودت






Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

دست شما درد نکه خیلی کارم رو را انداختین
من زیاد وارد نیستم ولی این سوال دانشگاهی بود
قبلاً یکی از دوستان از من پرسید برای من هم جالب شد.