Code : Tout sélectionner
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
Traybox("Traybox", @LF & @LF & " Petite fonction créé par silvere", 20, 2000, 15)
Func Traybox($Titre, $Texte, $Vitesse, $Temps = 1000, $Taille_police = 10)
Local $Traybox = GUICreate($Titre, 330, 150, @DesktopWidth - 340, @DesktopHeight, $WS_EX_TOOLWINDOW)
Local $Label = GUICtrlCreateLabel($Texte, 8, 8, 316, 137)
GUICtrlSetFont($Label, $Taille_police)
GUISetState(@SW_SHOW)
For $o = 1 To 200
WinMove($Traybox, $Texte, @DesktopWidth - 340, @DesktopHeight - $o)
Sleep($Vitesse)
Next
Sleep($Temps)
For $o = 1 To 200
WinMove($Traybox, $Texte, @DesktopWidth - 340, @DesktopHeight - 200 + $o)
Sleep($Vitesse)
Next
GUIDelete($Traybox)
EndFunc ;==>Traybox