چطور ميشه فهميد كه فورم فعاله يا نه ؟ منظورم حالت تايتل باره ٬ وقتايي كه فاكوس توي فرم نيست رنگ تايتل بار عوض ميشه ...
مي خوام براي فرم سكين بسازم كه مثل پنجره هاي ويندوز دو حالت باشه و لي موندم توش ...
راهنماييم كنين ...
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
از كمكت ممنون ولي اين كه به من دادي يه تابع ست ٬ من كه نميتونم يه تايمر بزارم تا هر چند صدم ثانيه يك بار اين رو اجرا كنه ... من دنبال رخداد (event) مي گردم ...
ولي بازم ممنون
خوب مگه چه عيبي داره
خوب بزار چك بكنه