Code : Tout sélectionner
#include <GUIconstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
$file = FileOpen ("my.html",1)
$raph = GUICreate ("Bonjour",500,600)
$texte = GUICtrlCreateLabel ("Bonjour merci de remplir le formulaire!!!",1,1,600)
GUICtrlSetColor(-1, 254000000)
GUICtrlSetBkColor($texte,025047)
$nom = GUICtrlCreateInput("",1,30,200)
GUICtrlCreateLabel (": Nom",250,30)
GUICtrlSetColor(-1, 5313129)
GUICtrlSetBkColor($nom,2540000)
$prenom = GUICtrlCreateInput ("",1,65,200)
GUICtrlCreateLabel (": Prénom",250,65)
GUICtrlSetColor(-1, 5313129)
GUICtrlSetBkColor($prenom,2540000)
$datedenaissance = GUICtrlCreateinput ("",1,95,200)
GUICtrlCreateLabel (": Date de naissance",250,95)
GUICtrlSetColor(-1, 5313129)
GUICtrlSetBkColor($datedenaissance,2540000)
$date = GUICtrlCreateDate ("",1,125,200)
$humeur = GUICtrlCreateCombo ("",1,155)
GUICtrlCreateLabel (": Humeur",250,155)
GUICtrlSetColor(-1, 5313129)
GUICtrlSetData ($humeur,"Exellente|Très bonne|Bonne|Moyen-bonne|Moyen|Moyen-mauvaise|Pas tres bonne|Mauvaise|Tres mauvaise","")
$fini = GUICtrlCreateButton("Entrez",100,300,150)
GUICtrlCreatePic ("neuschwanstein1.jpeg",300,300)
GUISetState (@SW_SHOW)
$internet = GUICtrlCreateButton ("Recherche Google",300,300,150)
$musique = GUICtrlCreateButton ("Musique",300,400,150)
GUICtrlSetColor ($internet ,22863104)
GUICtrlSetColor ($musique,2031011)
GUICtrlSetFont ($texte,"Arial Black Label")
GUICtrlSetBkColor ($internet ,5010254)
GUICtrlSetBkColor ($musique,02540)
GUICtrlSetBkColor ($fini,25000)
$image = GUICtrlCreateButton ("Images",100,400,150)
GUICtrlSetColor ($image,2030101)
GUICtrlSetBkColor ($image,14262221)
$texte = GUICtrlCreateButton("Texte",100,500,150)
GUICtrlSetBkColor ($texte,000)
GUICtrlSetColor ($texte,254254254)
$sortir = GUICtrlCreateButton ("Sortir",300,500,150)
GUICtrlSetBkColor ($sortir,888)
GUICtrlSetColor ($sortir,254)
GUICtrlSetFont ($nom,"Arial Black Label")
GUICtrlSetFont ($prenom,"Arial Black Label")
GUICtrlSetFont ($datedenaissance,"Arial Black Label")
$itunes = GUICtrlCreateButton("Itunes",300,200,150)
GUICtrlSetColor($itunes,204099047)
GUICtrlSetBkColor($itunes,026136097)
$moiinfo = GUICtrlCreateLabel ("Bonjour a été créé par Raphaël Alexandre",1,550)
GUICtrlSetColor ($moiinfo,152050254)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
FileClose ($file)
Exit
Case $msg = $fini
$nom1 = GUICtrlRead ($nom)
$prenom1 = GUICtrlRead ($prenom)
$datedenaissance1 = GUICtrlRead ($datedenaissance)
$date1 = GUICtrlRead ($date)
$humeur1 = GUICtrlRead ($humeur)
FileWrite ($file,$nom1 & " " & $prenom1 &" "& $datedenaissance1 &" "&$date1 &" "&"Humeur : " & $humeur1 & @CRLF)
Case $msg = $internet
ShellExecute ("http://www.google.fr")
Case $msg = $musique
ShellExecute ("http://www.youtube.fr")
Case $msg = $image
ShellExecute ("http://www.google.fr/images")
Case $msg = $texte
ShellExecute ("WordPad")
Case $msg = $sortir
FileClose($file)
Exit
Case $msg = $itunes
ShellExecute ("Itunes")
EndSelect
WEnd
