Jump to content

Recommended Posts

Posted

Quick and dirty fading effect:

#include <GUIConstants.au3>

GUICreate("My Fading GUI")

GUISetState ()

While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then
        FadeOut()
        ExitLoop
    EndIf
Wend

Func FadeOut()
    For $i = 255 To 0 Step -1
        WinSetTrans ( "My Fading GUI", "", $i )
    Next
EndFunc

Just be sure to use the initial WinSetTrans of zero so you don't have a flicker at the start of the fadein.

- MoChr(77)& Chr(97)& Chr(100)& Chr(101)& Chr(32)& Chr(121)& Chr(97)& Chr(32)& Chr(108)& Chr(111)& Chr(111)& Chr(107)-------I've told you 100,000 times not to exaggerate!-------Don't make me hit you with my cigarette hand...-------My scripts:Random Episode Selector, Keyboard MouseMover, CopyPath v2.1, SmartRename for XP,Window Tracer[sup]New![/sup]

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...