windowfrompoint

در پست قبلی نحوه ی کار با پنجره ها رو توضیح دادم .هم چنین نحوه ی بدست آوردن محل کرسر رو هم آموزش دادم. حالا میخوام یک کد باحال رو آموزش بدم که فقط با استفاده از محل پنجره هندل اون رو به شما بده.خب دو تا مطلب قبلی یا همون پست قبلی رو اینجا استفاده میکنیم بعلاوه ی تابع windowfrompoint .نیازی ه توضیح نداره پس به کد زیر بسنده میکنم.

مواد لازم:1 عدد فرم - 1 عدد تایمر - لیبل(label)به میزان لازم.

()Private Sub Timer1_Time
Dim wnd As Long
Getcursorpos pointapi
(wnd=Windowfrompoint (pointapi.x,pointapi.y
Label1.caption=wnd
End Sub