سلام دوست عزیز .
برای جابه جا کردن اشیا بر روی فرم از کد زیر استفاده کنید :
* یک 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 نام شی مورد نظرتون رو وارد کنید.
موفق باشید .
تغییر مکان button
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول