SimpsoN_Bart Posted December 3, 2011 Share Posted December 3, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.