► Afficher le texte
Code : Tout sélectionner
#AutoIt3Wrapper_UseUpx=n
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
$gui = GUICreate("Evaluation Orale",800,600,-1,-1,-1,0x00000080)
GUISetOnEvent(-3, "quitter")
$guiMENU01 = GUICtrlCreateMenu("Fichier")
$menu01_01 = GUICtrlCreateMenuItem("Ouvrir",$guiMENU01)
$menu01_02 = GUICtrlCreateMenuItem("Enregistrer",$guiMENU01)
$menu01_03 = GUICtrlCreateMenuItem("",$guiMENU01)
$menu01_04 = GUICtrlCreateMenuItem("Quitter",$guiMENU01)
GUISetOnEvent($menu01_04, "quitter")
$guiTAB = GUICtrlCreateTab(2,2,796,576)
GUICtrlCreateTabItem("Critères formels d'evaluation")
GUICtrlCreateTabItem("Critères d'evaluation/CONTENU")
GUICtrlCreateTabItem("Critères de caractère")
GUICtrlCreateTabItem("Résultats")
GUICtrlCreateTabItem("")
GUISetState()
While 1
sleep(100)
WEnd
Func quitter()
Exit
EndFunc