Fade In Fade Out Efektleri

[SimpsoN_Bart]

Bu çalışmamda basit olarak Fade ın ve out efeklerini anlatacağım.Yaptığınız çalışmalar için giriş ve çıkış efektlerini bir kaç şekilde yapabilirsiniz.

 

WinSetTrans ile;

#NoTrayIcon
#RequireAdmin

;Coder By SimpsoN_Bart

Global $GUI_TITLE = 'Tnctr Fade In Fade Out'
Global $HWND, $BTN_ABOUT, $BTN_EXIT

$HWND = GUICreate($GUI_TITLE, 280, 107, 370, 213, -1, 0x00080000)
$BTN_ABOUT = GUICtrlCreateButton("Hakkında", 20, 60, 110, 25)
$BTN_EXIT = GUICtrlCreateButton("Çıkış Yap", 150, 60, 110, 25)
GUISetState()

_SK_Fade_In_Out($HWND, True)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			_SK_Fade_In_Out($HWND) ;Çarpıya Basıldığında Kapatma
			Exit
		Case $BTN_EXIT
			_SK_Fade_In_Out($HWND) ;Butona Basıldığında Kapatma
			Exit
		Case $BTN_ABOUT
			_ABOUT()
	EndSwitch
WEnd

Func _ABOUT()
	MsgBox(64, "Hakkında", "Coder By SimpsoN_Bart", 2)
EndFunc   ;==>_ABOUT

Func _SK_Fade_In_Out($GuiHwnd, $In = False)
	If $In = True Then
		Local $Start = 50, $End = 255, $Step = +1
	Else
		Local $Start = 255, $End = 50, $Step = -4
	EndIf
	For $I = $Start To $End Step $Step
		WinSetTrans($GuiHwnd, "", $I)
		Sleep(2)
	Next
EndFunc   ;==>_SK_Fade_In_Out

 

WinAPI ile;

 

;Coder By SimpsoN_Bart
#NoTrayIcon
#RequireAdmin
Global $GUI_TITLE = 'Tnctr Fade In Fade Out'
Global $HWND, $BTN_ABOUT, $BTN_EXIT
Global $nMsg, $I

$HWND = GUICreate($GUI_TITLE, 280, 107, 370, 213, -1, 0x00080000)
$BTN_ABOUT = GUICtrlCreateButton("Hakkında", 20, 60, 110, 25)
$BTN_EXIT = GUICtrlCreateButton("Çıkış Yap", 150, 60, 110, 25)
GUISetState()
_SK_FadeIn()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			_SK_FadeOut()
			Exit
		Case $BTN_EXIT
			_SK_FadeOut()
		Case $BTN_ABOUT
			_ABOUT()
	EndSwitch
WEnd

Func _SK_FadeIn()
	For $I = 0 To 255 Step 4
		__WinAPI_SetLayeredWindowAttributes($HWND, 0xABABAB, $I, BitOR(0x1, 0x2))
		Sleep(20)
	Next
EndFunc   ;==>_SK_FadeIn

Func _SK_FadeOut()
	For $I = 255 To 0 Step -4
		__WinAPI_SetLayeredWindowAttributes($HWND, 0xABABAB, $I, BitOR(0x1, 0x2))
		Sleep(20)
	Next
	Exit
EndFunc   ;==>_SK_FadeOut

Func _ABOUT()
	MsgBox(64, "Hakkında", "Coder By SimpsoN_Bart", 3)
EndFunc   ;==>_ABOUT


Func __WinAPI_SetLayeredWindowAttributes($HWND, $i_transcolor, $Transparency = 255, $dwFlags = 0x03, $isColorRef = False)
	If $dwFlags = Default Or $dwFlags = "" Or $dwFlags < 0 Then $dwFlags = 0x03
	If Not $isColorRef Then
		$i_transcolor = Hex(String($i_transcolor), 6)
		$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
	EndIf
	Local $aResult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $HWND, "dword", $i_transcolor, "byte", $Transparency, "dword", $dwFlags)
	If @error Then Return SetError(@error, @extended, False)
	Return $aResult[0]
EndFunc   ;==>__WinAPI_SetLayeredWindowAttributes

 

Ayrıca Bkz:

http://www.tnctr.com/topic/205961-sk-animatewindowex/

https://www.box.com/s/ebwmzq0bo9ipmcmilhk2

 

Sleep ve diğer sayısal değerleri kendinize göre ayarlayabilirsiniz..Umarım faydalı olmuştur.

 

 

 

Edited February 6, 2013 by SimpsoN_Bart