Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Version = "Béta test"
$GUI1 = GUICreate("Projet Célia by © Labougie "& $Version, 680, 600, -1, -1) ; Création de la GUI1
$Lb1 = GUICtrlCreateLabel("Masque de saisie", 150, 10, 200, 24) ; Création du label1
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") ; Mise en gras du texte du contrôle précédent (Label1)
GUISetBkColor(0x00E0FFFF)
; ########### Création Propriétaire
Global $Group1 = GUICtrlCreateGroup("Identification Propriétaire", 10, 40, 659, 250) ;création d'un cadre dans le Gui
$lblpp11 = GUICtrlCreateLabel ("Nom", 18, 65, 30, 20)
Global $Input11 = GUICtrlCreateInput("", 18, 80, 90, 20)
$lblpp12 = GUICtrlCreateLabel("Prénom", 112, 65, 40, 50)
Global $Input12 = GUICtrlCreateInput("", 112, 80, 90, 20)
$lblpp13 = GUICtrlCreateLabel("Adresse", 212, 65, 80, 30)
Global $Input13 = GUICtrlCreateInput("", 212, 80, 150, 20)
$lblpp14 = GUICtrlCreateLabel("Code Postal", 382, 65, 80 ,30)
Global $input14 = GUICtrlCreateInput("", 382, 80, 90, 20)
$lblpp15 = GUICtrlCreateLabel("Ville", 482, 65, 80 ,30)
Global $input15 = GUICtrlCreateInput("", 482, 80, 90, 20)
$lblpp16 = GUICtrlCreateLabel("Téléphone Fixe", 18, 105, 80 ,30)
Global $input15 = GUICtrlCreateInput("", 18, 120, 90, 20)
$lblpp17 = GUICtrlCreateLabel("Téléphone Portable", 112, 105, 100 ,30)
Global $input15 = GUICtrlCreateInput("", 112, 120, 90, 20)
$lblpp17 = GUICtrlCreateLabel("@ Mail", 212, 105, 80 ,30)
Global $input15 = GUICtrlCreateInput("", 212, 120, 150, 20)
; ######## Identification des biens
Global $Group2 = GUICtrlCreateGroup("Identification des biens", 10, 290, 659, 250) ;création d'un cadre dans le Gui
GUICtrlCreateCombo("", 18, 320, 80, 120)
GUICtrlSetData(-1, "Location|Vente", "Location"); default Location
GUICtrlCreateCombo("", 100, 320, 80, 120)
GUICtrlSetData(-1, "Appart|Maison", "Appart"); default Appart
GUICtrlCreateCombo("", 182, 320, 80, 120)
GUICtrlSetData(-1, "Studio|T1|T2|T3|T4|T5|T6|T7", "Studio"); default Studio
GUICtrlCreateCombo("", 264, 320, 80, 120)
GUICtrlSetData(-1, "Electricité|Gaz|Fuel|Mixte", "Electricité"); default Electricité
$lblid1 = GUICtrlCreateLabel("Adresse", 346, 305, 80, 30)
Global $Input13 = GUICtrlCreateInput("", 346, 320, 130, 21)
$lblid2 = GUICtrlCreateLabel("Code Postal", 480, 305, 80 ,30)
Global $input14 = GUICtrlCreateInput("", 480, 320, 80, 21)
$lblid3 = GUICtrlCreateLabel("Ville", 564, 305, 80 ,30)
Global $input15 = GUICtrlCreateInput("", 564, 320, 80, 21)
; ######## Boutons bas de page
$Btn01 = GUICtrlCreateButton("Valide", 30, 560, 65, 20) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0xB9D1EA)
GUISetState(@SW_SHOW) ; très important pour afichier le GUI
While 1 ; Début de la boucle infinie
$nMsg = GUIGetMsg() ; Récupération des messages GUI
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd ; Fin de la boucle infinie