Avec un Ami (guitarist) on a créé une GUI mais on ne sais pas si GuiCtrlCreateCheckBox est coché ou non. ?
Merci
► Afficher le texte
Code : Tout sélectionner
#include <GUIconstantsEx.au3>
#NoTrayIcon
$file2 = FileOpen ("cdi21.au3",1)
$file = FileOpen ("cdi.txt",1)
$guil = """"
GUICreate ("Inscription au CDI",400,400)
$var1 = GUICtrlCreateInput ("Code : ",10,50,150,20)
$var2 = GUICtrlCreateInput ("Nom : ",200,50,150,20)
$var3 = GUICtrlCreateInput ("Prénom : ",200,130,150,20)
$var4 = GUICtrlCreateCombo ("Classe (inutile pour codifier)",10,130,150,20)
GUICtrlSetData ($var4,"601|602|603|604|605|606|607|501|502|503|504|505|506|507|401|402|403|404|405|406|407|301|302|303|305|306|307|308|608|508|409|309")
$b1 = GUICtrlCreateButton (">>>Entrée<<<",10,260)
$b2 = GUICtrlCreateButton (">>>Pour Enregistrer<<<",200,260)
$b3 = GUICtrlCreateButton (">>>Ouvrir le fichier texte<<<",10,300)
$o = GUICtrlCreateCheckbox ("Oublier",200,150)
GUISetState (@SW_SHOW)
while 1
$error = 0
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
FileClose ($file)
Exit
Case $msg = $b1
FileOpen ($file,1)
$var = GUICtrlRead ($var1)
$var41 = GUICtrlRead ($var4)
If $var = 6090000003068 Then
FileWrite ($file,"-" & "LEFEVRE Hugo 505" & @CRLF)
Endif
If $var = 6090000003150 Then
FileWrite ($file,"-" & "KHOUADER Billel 505" & @CRLF)
Endif
Case $msg = $b2
FileOpen ($file,1)
$var21 = GUICtrlRead ($var2)
$var31 = GUICtrlRead ($var3)
$var11 = GUICtrlRead ($var1)
$var41 = GUICtrlRead ($var4)
FileWrite ($file2 ," If $var = " & $var11 & " " & "Then" & @CRLF)
FileWrite ($file2," FileWrite ($file,""-"" & " & $guil & $var21 & " " & $var31 & " " & $var41 & $guil & " & @CRLF" & ")" & @CRLF & " Endif" & @CRLF)
FileWrite ($file, "-" & $var21 & " " & $var31 & " " & $var41 & @CRLF)
Case $msg = $b3
FileClose ($file)
FileOpen ("cdi.txt",1)
ShellExecute ("cdi.txt")
EndSelect
WEnd
