PDA

View Full Version : سوال: تغییر مکان button



ramezani2010
جمعه 12 آذر 1389, 11:00 صبح
سلام
اگر 9تاbutton روی فرم قرار بدیم وبعد بخوایم کاربر خودش مکان دو buttonکنار هم رو جابه جاکنه.(مثل بازی پازل)
چه طور باید location یا مکان buttonانتخاب شده توسط کاربر رو پیدا کنیم واینکه مطمئن بشیم که buttonهای کنار هم انتخاب شده وبعد با چه دستوری مکان دوbutton رو جابجا کنیم؟؟؟؟؟؟؟؟؟؟

butterfly8528
شنبه 20 آذر 1389, 18:11 عصر
سلام دوست عزیز .

برای جابه جا کردن اشیا بر روی فرم از کد زیر استفاده کنید :

* یک Command Button بر روی فرم قرار دهید .



Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Sub ObjectMove(Obj As Object)

Dim lngReturnValue As Long

Call ReleaseCapture
lngReturnValue = SendMessage(Obj.hWnd, &HA1, 2, 0&)

End Sub


Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ObjectMove Command1
End Sub


میتونید به جای Command1 نام شی مورد نظرتون رو وارد کنید.

موفق باشید .