غير فعال شدن فرم

[Blossom]

چطور ميشه فهميد كه فورم فعاله يا نه ؟‌ منظورم حالت تايتل باره ٬ وقتايي كه فاكوس توي فرم نيست رنگ تايتل بار عوض ميشه ...
مي خوام براي فرم سكين بسازم كه مثل پنجره هاي ويندوز دو حالت باشه و لي موندم توش ...
راهنماييم كنين ...

[Iron_Fist]

Blossom جان بفرما
اينم تابع تشخيص فعال بودن فرم خودمون كه برات نوشتم
نكته : اگر فرم فعال باشه مقدار بازگشتي تابع يك است و در غير اين صورت مقدار
بازگشتي صفر است

کد:

Private Function IsMyWindowActive() As Byte

Dim Buffer As String
Buffer = String(255, 0)
Call GetWindowText(GetForegroundWindow, Buffer, 255)
Buffer = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
If Buffer = Me.Caption Then
IsMyWindowActive = 1
Else
IsMyWindowActive = 0
End If

End Function

دكلريشن

کد:

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long

[Blossom]

از كمكت ممنون ولي اين كه به من دادي يه تابع ست ٬ من كه نميتونم يه تايمر بزارم تا هر چند صدم ثانيه يك بار اين رو اجرا كنه ... من دنبال رخداد (event) مي گردم ...
ولي بازم ممنون

[Iron_Fist]

خوب مگه چه عيبي داره
خوب بزار چك بكنه