Hi,
mal was kleines zum Jahresanfang:
Spoiler anzeigen
;gui verschwinden lassen
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$WinMain = GUICreate("WinMain", 633, 454, 192, 114)
$trans = GUICtrlCreateButton("Transparent", 24, 24, 75, 25, $WS_GROUP)
$size1 = GUICtrlCreateButton("Größe 1", 24, 112, 75, 25, $WS_GROUP)
$size2 = GUICtrlCreateButton("Größe 2", 24, 190, 75, 25, $WS_GROUP)
$size3 = GUICtrlCreateButton("Größe 3", 24, 268, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $trans
;unsichtbar werden - ist von einem User "geklaut"
For $i = 255 to 0 Step -15
Sleep(50)
WinSetTrans($WinMain,$WinMain,$i)
Next
Exit
Case $size1
;größe ändern 1
$arPos = WinGetPos($WinMain)
$x = $arPos[3]
for $i = $arPos[2] to 0 step -15
WinMove($WinMain, "", $arPos[0], $arPos[1], $i, $x)
$x -= 15
sleep(1)
Next
Exit
Case $size2
;größe ändern 2
$arPos = WinGetPos($WinMain)
for $x = $arPos[3] to 0 step -15
WinMove($WinMain, "", $arPos[0], $arPos[1], $arPos[2], $x)
sleep(1)
Next
$arPos = WinGetPos($WinMain)
for $i = $arPos[2] to 0 step -15
WinMove($WinMain, "", $arPos[0], $arPos[1], $i, $arPos[3])
sleep(1)
Next
Exit
Case $size3
;größe ändern 3
$arPos = WinGetPos($WinMain)
for $i = $arPos[2] to 0 step -15
WinMove($WinMain, "", $arPos[0], $arPos[1], $i, $arPos[3])
sleep(1)
Next
$arPos = WinGetPos($WinMain)
for $x = $arPos[3] to 0 step -15
WinMove($WinMain, "", $arPos[0], $arPos[1], $arPos[2], $x)
sleep(1)
Next
Exit
EndSwitch
WEnd
Wie lasst ihr eure GUI's verschwinden?
Gruß
x0r