تشخیص Focus بودن یک شی با استفاده از Handle

[bluemilad]

من می‌خوام یه تابع بنویسم که یک پارامتر ورودی داشته باشه و این تابع از نوع Boolean می‌باشد و مشخص می‌کند که آیا شیی که هندل آن داده شده است فوکس دارد یا نه؟ خیلی ممنون اگه کمکم کنید. فکر کنم با استفاده از تابع SendMessage بشه یه کارایی کرد.

[sinpin]

سلام

روال زیر دستگیره کنترلی که فوکوس رو در اختیار داره برمیگردنه :

Private Declare Function GetFocus Lib "user32" () As Long

شما میتونید این هندل رو با هندل کنترل مورد نظر مقایسه کنید، و اگه یکی بود پس اون کنترل در حال حاضر فوکوس رو در اختیار داره.

Public Function IsActivate(byval hWnd as long) as boolean
dim n as long
n=getfocus()
if n=hWnd then
IsActivate=false
else
isactivate = true
end if
end function