به دست اوردن طول و عرض و مختصات ابجکت با استفاده از هندل

[Veteran]

سلام دوستان.نماز روزه هاتون قبول باشه.

به چه شکل میشه مختصات یک شی رو در دسکتاپ با استفاده از هندل اون شی به دست بیاریم ؟
همچنین طول و عرض شی مورد نظر (اندازه شی)
با تشکر

[M.T.P]

Option Explicit

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command1_Click()
Dim rct As RECT

GetWindowRect Command1.hwnd, rct

Cls
Print "left: " & rct.Left
Print "Top: " & rct.Top
Print "width: " & (rct.Right - rct.Left)
Print "height: " & (rct.Bottom - rct.Top)
End Sub

[Veteran]

خیلی ممنون :قلب:
حالا اگر بخوایم مختصات یک شی رو عوض کنیم به چه شکل باید عمل کنیم ؟

[M.T.P]

با تابع MoveWindow



Private Declare Function MoveWindow Lib "user32" Alias "MoveWindow" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

[setroyd]

یا با setwindowrect با این api هم میشه .