[R] Fermeture GUI ne fonctionne pas en cours de programme

[ZDS]

Bonjour,

Remplace par ceci dans ton Case 3 :

► Afficher le texteCorrection pour le Case=3

Code : Tout sélectionner

                ElseIf $UpdateType = 3 Then
                    $UpdatePicType = "\Loop.bmp"
                    For $k = 0 To $NOMBRE-1
                        If ($k<$NOMBRE/2 And $i<$NOMBRE/2) Or ($k>=$NOMBRE/2 And $i>=$NOMBRE/2) Then
                            GUICtrlSetStateIfNotAlready($Buttons[$k],cond($i=$k,$GUI_ENABLE,$GUI_DISABLE))
                        EndIf
                    Next
                    For $k0 = 0 to 65535*2 Step Round(65535/20,0)
                        Local $k = cond($k0<65535,$k0,65535*2-$k0)
                        $rr.execute("SETVAR;"&GUICtrlRead($Inputs_Name[$i])&";"&$k)
                        GUICtrlSetData($Inputs_Value[$i],$k)
                        Local $timer = TimerInit()
                        Do
                            $msg = GUIGetMsg()
                            $stop = ($msg = $GUI_EVENT_CLOSE Or $msg = $Button7 Or $msg = $Buttons[$i])
                        Until TimerDiff($timer)>2000 Or $stop
                        If $stop Then
                            If $msg = $Buttons[$i] Then
                                TrayTip($TITRE,"The variable "&GuiCtrlRead($Inputs_Name[$i])&" is stopped at " & GuiCtrlRead($Inputs_Value[$i]),30,2)
                                $stop = False
                            EndIf
                            ExitLoop
                       EndIf
                    Next
                EndIf

Par contre, il ne fait que 0->65535->0, à toi de réajouter la boucle car avec ton $rr.execute, je ne peux pas tester.

A bientôt !

[pierrotm777]

Oui, désolé, il suffit de commenter les 3 lignes commençant par $rr.

[pierrotm777]

Désolé mais j'ai essayé avec un While..Wend mais sans succès