[Func] Effets sur votre GUI (_FadeGui et _WinAnimate)
Posté : sam. 30 août 2008 10:54
Vous souhaitez créer des effets de fade in ou fade out sur vos GUI, alors utilisez cette fonction :
Exemple d'utilisation :
Code : Tout sélectionner
;===============================================================================
; Description: Fade in or fade out a GUI.
; Parameter(s): $hGui - The handle of the GUI to fade
; $Fade - The type of the fade to do.
; 0 = Fade Out - 1 = Fade In
; $Speed - The speed of the fade (can be a float number).
; Requirement(s): Requires Windows 2000/XP or later.
; Screen color must be greater or equal to 16-bit.
; Return Value(s): On Success - Returns Non-zero
; On Failure - Returns 0
;
; Author(s): Tlem
; Note(s):
; Example: _FadeGui($MyGui, 1, 5)
;
;===============================================================================
Func _FadeGui($hGui, $Fade = 0, $Speed = 1)
Local $Res
; FadeOut.
If $Fade = 0 Then
For $i = 255 To 0 Step -$Speed
$Res = WinSetTrans ($hGui, "", $i )
Next
Return $Res
; FadeIn
ElseIf $Fade = 1 Then
For $i = 0 To 255 Step $Speed
$Res = WinSetTrans ($hGui, "", $i )
Next
Return $Res
; Error Fade value
Else
Return 0
EndIf
EndFuncCode : Tout sélectionner
#include <GUIConstants.au3>
$MyGui = GUICreate("Ma fenêtre principale")
WinSetTrans ($MyGui, "", 0 )
GUISetState ()
_FadeGui($MyGui, 1, 5)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
_FadeGui($MyGui, 0, 1)
ExitLoop
EndIf
Wend