[R] Attribuer "EXIT" à un bouton dans une GUI

[jeanmimigab]

Bonsoir tlm,

Je désire ajouter un bouton "VALIDER" à mon programme qui aura pour but de fermer la GUI (comme avec la croix rouge)

J'ai testé pas mal de manière mais je ne trouve pas la solution... je vous met un exemple du code où j'ai tenter de faire la chose avec "While" en fin de scrippt , mais je doit mal m'y prendre...

la bouton valider est celui-ci...

Global $Button1 = GUICtrlCreateButton("Valider", 160, 456, 235, 57, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)

Merci d'avance

► Afficher le texte

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\jeanmimi\Desktop\TESTMYJOB\ADD\MyJob_InterventionsVAL.kxf
Global $Form1 = GUICreate("Form1", 570, 526, 228, 184, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0xA0A0A4)
Global $Group2 = GUICtrlCreateGroup(" Interventions ", 8, 72, 201, 225)
Global $Checkbox1 = GUICtrlCreateCheckbox("Mise en service peitit producteur", 16, 96, 185, 17)
Global $Checkbox7 = GUICtrlCreateCheckbox("Repérage robinet 13,2", 16, 112, 185, 17)
Global $Checkbox13 = GUICtrlCreateCheckbox("Relève clio-sam-sar", 16, 128, 185, 17)
Global $Checkbox19 = GUICtrlCreateCheckbox("Mise en service électricité ", 16, 144, 185, 17)
Global $Checkbox25 = GUICtrlCreateCheckbox("Mise en service gaz", 16, 160, 185, 17)
Global $Checkbox31 = GUICtrlCreateCheckbox("Sans interruption", 16, 176, 185, 17)
Global $Checkbox37 = GUICtrlCreateCheckbox("Résiliation ALS", 16, 192, 185, 17)
Global $Checkbox43 = GUICtrlCreateCheckbox("Résiliation coupure", 16, 208, 185, 17)
Global $Checkbox49 = GUICtrlCreateCheckbox("Modification contractuelle", 16, 224, 185, 17)
Global $Checkbox55 = GUICtrlCreateCheckbox("Coupure NP/SMI", 16, 240, 185, 17)
Global $Checkbox61 = GUICtrlCreateCheckbox("Travaux TST", 16, 256, 185, 17)
Global $Checkbox67 = GUICtrlCreateCheckbox("Dépannage", 16, 272, 185, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup(" J'ai assisté ", 216, 72, 113, 225)
Global $Checkbox2 = GUICtrlCreateCheckbox("OUI", 224, 96, 41, 17)
Global $Checkbox3 = GUICtrlCreateCheckbox("NON", 280, 96, 41, 17)
Global $Checkbox8 = GUICtrlCreateCheckbox("OUI", 224, 112, 41, 17)
Global $Checkbox9 = GUICtrlCreateCheckbox("NON", 280, 112, 41, 17)
Global $Checkbox14 = GUICtrlCreateCheckbox("OUI", 224, 128, 41, 17)
Global $Checkbox15 = GUICtrlCreateCheckbox("NON", 280, 128, 41, 17)
Global $Checkbox20 = GUICtrlCreateCheckbox("OUI", 224, 144, 41, 17)
Global $Checkbox21 = GUICtrlCreateCheckbox("NON", 280, 144, 41, 17)
Global $Checkbox26 = GUICtrlCreateCheckbox("OUI", 224, 160, 41, 17)
Global $Checkbox27 = GUICtrlCreateCheckbox("NON", 280, 160, 41, 17)
Global $Checkbox32 = GUICtrlCreateCheckbox("OUI", 224, 176, 41, 17)
Global $Checkbox33 = GUICtrlCreateCheckbox("NON", 280, 176, 41, 17)
Global $Checkbox38 = GUICtrlCreateCheckbox("OUI", 224, 192, 41, 17)
Global $Checkbox39 = GUICtrlCreateCheckbox("NON", 280, 192, 41, 17)
Global $Checkbox44 = GUICtrlCreateCheckbox("OUI", 224, 208, 41, 17)
Global $Checkbox45 = GUICtrlCreateCheckbox("NON", 280, 208, 41, 17)
Global $Checkbox50 = GUICtrlCreateCheckbox("OUI", 224, 224, 41, 17)
Global $Checkbox51 = GUICtrlCreateCheckbox("NON", 280, 224, 41, 17)
Global $Checkbox56 = GUICtrlCreateCheckbox("OUI", 224, 240, 41, 17)
Global $Checkbox57 = GUICtrlCreateCheckbox("NON", 280, 240, 41, 17)
Global $Checkbox62 = GUICtrlCreateCheckbox("OUI", 224, 256, 41, 17)
Global $Checkbox63 = GUICtrlCreateCheckbox("NON", 280, 256, 41, 17)
Global $Checkbox68 = GUICtrlCreateCheckbox("OUI", 224, 272, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup(" J'ai assimilé ", 336, 72, 225, 225)
Global $Checkbox4 = GUICtrlCreateCheckbox("Très bien", 344, 96, 65, 17)
Global $Checkbox5 = GUICtrlCreateCheckbox("Bien", 424, 96, 41, 17)
Global $Checkbox6 = GUICtrlCreateCheckbox("Assez bien", 480, 96, 73, 17)
Global $Checkbox10 = GUICtrlCreateCheckbox("Très bien", 344, 112, 65, 17)
Global $Checkbox11 = GUICtrlCreateCheckbox("Bien", 424, 112, 41, 17)
Global $Checkbox12 = GUICtrlCreateCheckbox("Assez bien", 480, 112, 73, 17)
Global $Checkbox16 = GUICtrlCreateCheckbox("Très bien", 344, 128, 65, 17)
Global $Checkbox17 = GUICtrlCreateCheckbox("Bien", 424, 128, 41, 17)
Global $Checkbox18 = GUICtrlCreateCheckbox("Assez bien", 480, 128, 73, 17)
Global $Checkbox22 = GUICtrlCreateCheckbox("Très bien", 344, 144, 65, 17)
Global $Checkbox23 = GUICtrlCreateCheckbox("Bien", 424, 144, 41, 17)
Global $Checkbox24 = GUICtrlCreateCheckbox("Assez bien", 480, 144, 73, 17)
Global $Checkbox28 = GUICtrlCreateCheckbox("Très bien", 344, 160, 65, 17)
Global $Checkbox29 = GUICtrlCreateCheckbox("Bien", 424, 160, 41, 17)
Global $Checkbox30 = GUICtrlCreateCheckbox("Assez bien", 480, 160, 73, 17)
Global $Checkbox34 = GUICtrlCreateCheckbox("Très bien", 344, 176, 65, 17)
Global $Checkbox35 = GUICtrlCreateCheckbox("Bien", 424, 176, 41, 17)
Global $Checkbox36 = GUICtrlCreateCheckbox("Assez bien", 480, 176, 73, 17)
Global $Checkbox40 = GUICtrlCreateCheckbox("Très bien", 344, 192, 65, 17)
Global $Checkbox41 = GUICtrlCreateCheckbox("Bien", 424, 192, 41, 17)
Global $Checkbox42 = GUICtrlCreateCheckbox("Assez bien", 480, 192, 73, 17)
Global $Checkbox46 = GUICtrlCreateCheckbox("Très bien", 344, 208, 65, 17)
Global $Checkbox47 = GUICtrlCreateCheckbox("Bien", 424, 208, 41, 17)
Global $Checkbox48 = GUICtrlCreateCheckbox("Assez bien", 480, 208, 73, 17)
Global $Checkbox52 = GUICtrlCreateCheckbox("Très bien", 344, 224, 65, 17)
Global $Checkbox53 = GUICtrlCreateCheckbox("Bien", 424, 224, 49, 17)
Global $Checkbox54 = GUICtrlCreateCheckbox("Assez bien", 480, 224, 73, 17)
Global $Checkbox58 = GUICtrlCreateCheckbox("Très bien", 344, 240, 65, 17)
Global $Checkbox59 = GUICtrlCreateCheckbox("Bien", 424, 240, 41, 17)
Global $Checkbox60 = GUICtrlCreateCheckbox("Assez bien", 480, 240, 73, 17)
Global $Checkbox64 = GUICtrlCreateCheckbox("Très bien", 344, 256, 65, 17)
Global $Checkbox65 = GUICtrlCreateCheckbox("Bien", 424, 256, 49, 17)
Global $Checkbox66 = GUICtrlCreateCheckbox("Assez bien", 480, 256, 73, 17)
Global $Checkbox70 = GUICtrlCreateCheckbox("Très bien", 344, 272, 65, 17)
Global $Checkbox71 = GUICtrlCreateCheckbox("Bien", 424, 272, 41, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Checkbox69 = GUICtrlCreateCheckbox("NON", 280, 272, 41, 17)
Global $Checkbox72 = GUICtrlCreateCheckbox("Assez bien", 480, 272, 73, 17)
Global $Group8 = GUICtrlCreateGroup(" Tournée effectuée avec ", 8, 8, 161, 49)
Global $Combo1 = GUICtrlCreateCombo("Journée à l'agence", 24, 24, 129, 25)
GUICtrlSetData(-1, "Technicien 1|Technicien 2|")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group1 = GUICtrlCreateGroup(" Commentaires sur les interventions ", 8, 312, 553, 129)
Global $Edit1 = GUICtrlCreateEdit("", 16, 336, 537, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Valider", 160, 456, 235, 57, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Do
Sleep(10)
Until GUIGetMsg()=$GUI_EVENT_CLOSE
_Exit()

Func _Exit()

$ecri = guictrlread($Edit1)
$tour = GuiCtrlRead($Combo1)
$file = FileOpen(@scriptdir & "/MyJob.txt", 1)
$msg = GUIGetMsg()
$Boutton1 = $msg
FileWrite($file, "<=--- Section_interventions ---=>" & @CRLF & @CRLF )
FileWrite($file, "Tournée effectuée avec : " & $tour & @CRLF & @CRLF)

For $i = $Checkbox1 to $Checkbox1
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox2 to $Checkbox2
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox3 to $Checkbox3
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox4 to $Checkbox6
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox7 to $Checkbox7
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox8 to $Checkbox8
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox9 to $Checkbox9
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox10 to $Checkbox12
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox13 to $Checkbox13
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox14 to $Checkbox14
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1)))
EndIf
Next
For $i = $Checkbox15 to $Checkbox15
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox16 to $Checkbox18
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox19 to $Checkbox19
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox20 to $Checkbox20
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox21 to $Checkbox21
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox22 to $Checkbox24
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox25 to $Checkbox25
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox26 to $Checkbox26
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox27 to $Checkbox27
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox28 to $Checkbox30
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox31 to $Checkbox31
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox32 to $Checkbox32
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox33 to $Checkbox33
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox34 to $Checkbox36
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox37 to $Checkbox37
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox38 to $Checkbox38
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox39 to $Checkbox39
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox40 to $Checkbox42
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox43 to $Checkbox43
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox44 to $Checkbox44
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox45 to $Checkbox45
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox46 to $Checkbox48
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox49 to $Checkbox49
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox50 to $Checkbox50
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox51 to $Checkbox51
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox52 to $Checkbox54
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox55 to $Checkbox55
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox56 to $Checkbox56
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox57 to $Checkbox57
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox58 to $Checkbox60
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox61 to $Checkbox61
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox62 to $Checkbox62
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox63 to $Checkbox63
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox64 to $Checkbox66
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox67 to $Checkbox67
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox68 to $Checkbox68
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
EndIf
Next
For $i = $Checkbox69 to $Checkbox69
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
For $i = $Checkbox70 to $Checkbox72
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, " |---| J'ai assimilé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
Filewrite($file,"" & @CRLF)
Filewrite($file,"Commentaires sur les interventions : " & @CRLF & $ecri)
Filewrite($file,@CRLF & @CRLF & @CRLF)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $Boutton1 = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
Exit
EndFunc

[mikell]

Tu peux (par exemple) faire ça à la place de la boucle Do

Code : Tout sélectionner

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE OR $msg = $Button1 Then Exitloop
Sleep(10)
Wend
_Exit()

Heu les "For $i = $Checkbox7 to $Checkbox7" c'est totalement inutile ^^

[jeanmimigab]

Yes, t'es trop fort mikell

ça marche impeccable....

les "For $i = $Checkbox7 to $Checkbox7" c'est totalement inutile ^^

en fait c'est le seul moyen que j'ai trouvé car si je met pas le "to $Checkbox#" ça me met se message d'erreur


merci beaucoup pour ton aide

Jean-michel

[lesolutionneur]

Je te conseille d'utiliser until :

do
[...]
truc
machin
chose
[...]
until $i=$checkbox7
Comme ça, il fait ton do jusqu'à que $i soit égale à $checkbox7

J'espère t'avoir aidé !

[mikell]

Nan, ce que je voulais dire c'est que

Code : Tout sélectionner

For $i = $Checkbox1 to $Checkbox1
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, ">>> " & GUICtrlRead($i, 1))
EndIf
Next

Peut être simplement remplacé par ça

Code : Tout sélectionner

If BitAnd(GUICtrlRead($Checkbox1),$GUI_CHECKED) = $GUI_CHECKED Then FileWrite($file, ">>> " & GUICtrlRead($Checkbox1, 1))

ou alors si tu tiens à faire une boucle For fais-la plutôt comme ça

► Afficher le texte

Code : Tout sélectionner

For $i = $Checkbox1 To $Checkbox72
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
  If $i = $Checkbox1 Then FileWrite($file, ">>> " & GUICtrlRead($i, 1))
  If $i = $Checkbox2 Then FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1))
  If $i = $Checkbox3 Then FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead($i, 1) & @CRLF)
  ....etc
EndIf
Next

ou alors comme ça

► Afficher le texte

Code : Tout sélectionner

For $i = 1 To 72
If BitAnd(GUICtrlRead(Eval("Checkbox" & $i)),$GUI_CHECKED) = $GUI_CHECKED Then
  If $i = 1 Then FileWrite($file, ">>> " & GUICtrlRead(Eval("Checkbox" & $i), 1))
  If $i = 2 Then FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead(Eval("Checkbox" & $i), 1))
  If $i = 3 Then FileWrite($file, " |---| J'ai assisté : " & GUICtrlRead(Eval("Checkbox" & $i), 1) & @CRLF)
  ....etc
EndIf
Next

[jeanmimigab]

Bonsoir,

Grâce à vous je vais pouvoir optimiser le code.

Un grand merci à tous pour votre aide et bonne soirée

Jeanmimigab