► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Chargement | Chargement..", 466, 189, -1, -1)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\******\Bureau\1250948322_orange-folder-downloads.gif", -4, 60, 128, 128, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 1)
$Label1 = GUICtrlCreateLabel("Chargement en cours..", 0, 0, 465, 58, $SS_CENTER)
GUICtrlSetFont(-1, 32, 800, 0, "Arno Pro")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Chargement des données en cours , veuillez patientez...", 128, 64, 332, 17, $SS_CENTER)
$Progress1 = GUICtrlCreateProgress(136, 88, 310, 21)
$Button1 = GUICtrlCreateButton("000%", 380, 156, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Icon1 = GUICtrlCreateIcon("C:\Documents and Settings\******\Bureau\1250949111_image-loading.ico", 0, 132, 120, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Label3 = GUICtrlCreateLabel("Temps estimé : 7 secondes", 168, 128, 133, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
For $i = 0 To 100 Step 1
GUICtrlSetData($Progress1,$i)
GUICtrlSetData($Button1,$i & " %" )
Sleep(70)
Next
GUICtrlSetState($Button1,$GUI_ENABLE)
GUICtrlSetState($Icon1,$Gui_Hide)
GuiCtrlSetData($Button1,"Terminer")
GUICtrlSetData($Label1,"Chargement terminer")
GUICtrlSetData($Label2,"Les données sont chargées vous pouvez désormais Quitter")
GUICtrlSetData($Label3,"Temps estimé : 0 seconde")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
EndSwitch
WEnd
