امکان جابجایی 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

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