Hallo!
Habe diese UDF für ein Skript von mir erstellt. Sie erstellt eine GUI, die langsam (oder auch nicht ;)) eingeblendet wird.
Funktion
Spoiler anzeigen
;====================================================================
; Funktionsname: _GUICreateBlend()
; Funktion: Erstellt eine GUI die eingeblendet wird
; Parameter: $title: Titel der GUI
; $width/$height/$left/$top: Größenangaben der GUI
; Autor: fabs
;====================================================================
Func _GUICreateBlend($title, $width, $height, $left, $top)
$gui = GUICreate($title, $width, $height, $left, $top, $WS_EX_LAYERED)
_GUICreateBlendCtrls()
GUISetState(@SW_HIDE)
WinSetTrans($title, "", 10)
GUISetState(@SW_SHOW)
For $trans = 10 To 190 Step +5
WinSetTrans($title, "", $trans)
Sleep(15)
Next
EndFunc
;===========================================================
; Hier die Elemente wie Labels, Slider, Buttons etc
; einfügen, damit diese auch eingeblendet werden.
;===========================================================
Func _GUICreateBlendCtrls()
GUICtrlCreateX(...)
Return
EndFunc
Beispiel
Spoiler anzeigen
Beispiel
[autoit]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
_GUICreateBlend("GUI", 526, 354, 193, 125)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
;====================================================================
; Funktionsname: _GUICreateBlend()
; Funktion: Erstellt eine GUI die eingeblendet wird
; Parameter: $title: Titel der GUI
; $width/$height/$left/$top: Größenangaben der GUI
; Autor: fabs
;====================================================================
Func _GUICreateBlend($title, $width, $height, $left, $top)
$gui = GUICreate($title, $width, $height, $left, $top, $WS_EX_LAYERED)
_GUICreateBlendCtrls()
GUISetState(@SW_HIDE)
WinSetTrans($title, "", 10)
GUISetState(@SW_SHOW)
For $trans = 10 To 190 Step +5
WinSetTrans($title, "", $trans)
Sleep(15)
Next
EndFunc
;===========================================================
; Hier die Elemente wie Labels, Slider, Buttons etc
; einfügen, damit diese auch eingeblendet werden.
;===========================================================
Func _GUICreateBlendCtrls()
GUICtrlCreateLabel("Eingeblendet", 215, 160, 65, 17)
Return
EndFunc