วิธีทำ effect ตอนปิดและปิดหน้าต่างโปรแกรม

Code:

 #include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PSsix", 419, 168, 607, 274)
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("สวัสดีปีใหม่", 56, 32, 299, 89, $WS_GROUP)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x00FF00)
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00040002)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00050010)
         Exit
      Case $Button1
MsgBox(64,"สวัสดีปีใหม่","ปี "&@YEAR)
   EndSwitch
WEnd

Code:

DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00040002)

AW_ACTIVATE
0x00020000
Activates the window. Do not use this value with AW_HIDE.


AW_BLEND
0x00080000
fade effect. This flag can be used only if hwnd is a top-level window.

AW_CENTER
0x00000010
Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used. The various direction flags have no effect.

AW_HIDE
0x00010000
Hides the window. By default, the window is shown.

AW_HOR_POSITIVE
0x00000001
Animates the window from left to right. This flag can be used with roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.

AW_HOR_NEGATIVE
0x00000002
Animates the window from right to left. This flag can be used with roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.

AW_SLIDE
0x00040000
Uses slide animation. By default, roll animation is used. This flag is ignored when used with AW_CENTER.

AW_VER_POSITIVE
0x00000004
Animates the window from top to bottom. This flag can be used with roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.

AW_VER_NEGATIVE
0x00000008
Animates the window from bottom to top. This flag can be used with roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.

Code:

DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00080000 )

Code:

DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1 , "int", 1000, "long", 0x00040008 )

Code:

DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00040005 )

Code:

DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1 , "int", 1, "long", 0x00090000 )

Code:

DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00040005 )
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1 , "int", 1, "long", 0x00090000 )
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Form1 , "int", 1000, "long", 0x00040008 )

Code:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 346, 235, 192, 124)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

For $i = 0 To 255 Step 10
         WinSetTrans($Form1, "", $i)
         Sleep(100)
      Next

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
            For $i = 255 To 0 Step -10
         WinSetTrans($Form1, "", $i)
         Sleep(100)
      Next
         Exit
   EndSwitch
WEnd