Nabend zusamm.
Vllt kann mir einer helfen, ich komm nich mehr weiter.
Ich bin grad dabei, ne UDF zu machen, mit der man mehrere Effekte bei GUIs machen kann.
Ich hab bis jetz 3 Funktionen. 2 davon funzen einwandfrei.
Nur die dritte macht probleme. _GUIFlyingFadeIn soll bewirken,
dass die GUI beim start einfliegen soll, und gleichzeitig langsam sichtbar werden soll.
Also das gleiche wie bei _GUIFadeIn ( GUIFadeOut )
Hier mal das Script, wie gesagt, das dritte macht Probleme.
Spoiler anzeigen
; ====================================================
; Funktionsname: _GUIFadeIn
; Funktion: Lässt das Fenster erscheinen (ersetzt auch GUISetState).
;
; Parameter: $WHnd = Handle des Fensters
; $Speed = Geschwindigkeit, mit der das Fenster ersteinen soll. (1 = Sehr langsam bis 255 = erscheint sofort)
; $Start = Transparents, die das Fenster zum Start haben soll.
; $End = Transparents, die das Fenster zum Schluss haben soll.
;
; Autor: Commander21
; ====================================================
Func _GUIFadeIn ($WHnd, $Speed, $Start, $End)
WinSetTrans ($WHnd, "", $Start)
GUISetState (@SW_SHOW, $WHnd)
For $i = $Start To $End Step $Speed
WinSetTrans ($WHnd, "", $i)
Sleep (1)
Next
EndFunc ;==> _GUIFadeIn
; ====================================================
; Funktionsname: _GUIFadeOut
; Funktion: Lässt das Fenster verschwinden.
;
; Parameter: $WHnd = Handle des Fensters
; $Speed = Geschwindigkeit, mit der das Fenster verschwinden soll. (1 = Sehr langsam bis 255 = verschwindet sofort)
; $Start = Transparents, die das Fenster zum Start haben soll.
; $End = Transparents, die das Fenster zum Schluss haben soll.
;
; Autor: Commander21
; ====================================================
Func _GUIFadeOut ($WHnd, $Speed, $Start, $End)
For $i = $Start To $End Step -$Speed
WinSetTrans ($WHnd, "", $i)
Sleep (1)
Next
EndFunc ;==> _GUIFadeOut
; ====================================================
; Funktionsname: _GUIFlyingFadeIn
; Funktion: Lässt das Fenster erscheinen und von einer Seite einfliegen. (Ersetzt auch GUISetState).
;
; Parameter: $WHnd = Handle des Fensters
; $Speed = Geschwindigkeit, mit der das Fenster verschwinden soll. (1 = Sehr langsam bis 255 = verschwindet sofort)
; $Start = Transparents, die das Fenster zum Start haben soll.
; $End = Transparents, die das Fenster zum Schluss haben soll.
; $StartPosX = X-Position des Fensters, von wo es starten soll.
; $StartPosY = Y-Position des Fensters, von wo es starten soll.
; $EndPosX = X-Position des Fensters, wo es stehen beleiben soll.
; $EndPosY = Y-Position des Fensters, wo es stehen bleiben soll.
; $MoveSpeed = Geschwindigkeit, mit der sich das Fenster bewegen sol (1 = Sehr schnell bis 100 = Sehr langsam).
;
; Autor: Commander21
; ====================================================
Func _GUIFlyingFadeIn ($WHnd, $Speed, $Start, $End, $StartPosX, $StartPosY, $EndPosX, $EndPosY, $MoveSpeed)
WinMove ($WHnd, "", $StartPosX, $StartPosY)
WinSetTrans ($WHnd, "", $Start)
GUISetState (@SW_SHOW, $WHnd)
$WinSize = WinGetPos ($WHnd, "")
For $i = $Start To $End Step $Speed
WinSetTrans ($WHnd, "", $i)
Sleep (1)
WinMove ($WHnd, "", $EndPosX, $EndPosY, $WinSize[2], $WinSize[3], $MoveSpeed)
Next
EndFunc ;==> _GUIFlyingFadeIn
Will das Script noch mit vielen weiteren Effekten füttern. doch dazu muss ich erstmal wissen, warum das net funzt...
MfG