AutoIt Français

Bonjour,
Je développe un petit programme qui affiche dans une premier fenêtre 2 radioBox et un bouton.
Le choix de l'un des bouton déclenche l'ouverture d'une fenêtre secondaire avec d'autres boutons.
Je n'arrive pas à récuperer les action sur ces bouton.
Je pense que je n'ai pas bien compris comment fonctionne AutoIT, d'ou mon interrogation.
Je vous joins un bout de code simplifié pour m'aider si vous le souhaitez.
Me donner une solution serait un plus, mais l'explication ne serait bien plus utile pour d'autre développement .
Merci de votre aide.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         Megaten

#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <Misc.au3>

Local $font
$Form_header = "Camping-Car Info"
$inst = "Installation de l'application CCI"
$DriveKeyLetter = "C:"

;Creation du menu principal de sélection
$Main_frm   =   GUICreate("Installation application Camping-car Info CCI", 400, 200)
                GUISetBkColor(0xE0FFFF, $Main_frm) ; will change background color
                GUICtrlCreateLabel("Sélectionnez le type d'utilisation de CCI", 50, 10, 400, 50)
                GUICtrlSetFont(-1, 12, 700, 4, $font, 5) ; will display italic characters
                Local $radio1, $radio2, $msg
$radioUSB   =   GUICtrlCreateRadio("A partir de la clé USB .", 20, 50, 250, 50)
$radioHDD   =   GUICtrlCreateRadio("A partir de votre disque ( Plus rapide).", 20, 80, 250, 50)
                #GUICtrlSetState($radio2, $GUI_CHECKED) ; Pas de selection par défaut
$BtnFermer  =   GUICtrlCreateButton("Fermer", 160, 150, 60)

; Cette fonction permet la selection du dossier d'installation de l'application
$text         = "Sélectionner votre dossier d'installation, puis lancer l'installation"
$Hdd_Frm      = GUICreate($Form_header, 500, 200, 400, 200)
                GUISetBkColor(0xE0FFFF,$Hdd_Frm) ; will change background color
$Label        = GUICtrlCreateLabel($text, 10, 30, 450, 150)
$font         = GUICtrlSetFont(-1, 10, 700, 4, $font, 5) ; will display italic characters
$Input        = GUICtrlCreateInput("", 40, 100, 300, 20)
$BtnParcourir = GUICtrlCreateButton("Parcourir", 360, 97, 75, 25)
$BtnInstall   = GUICtrlCreateButton("Lancer l'installation", 80, 150, 200, 25)
$BtnCancel    = GUICtrlCreateButton("Annuler l'installation", 360, 150, 120, 25)

MsgBox(0, "ID bouton Wind 1: ", $Main_frm  & " ** "  & $radioUSB & " * " & $radioHDD & " * "  & $BtnFermer, 5)
MsgBox(0, "ID bouton Wind 2: ", $Hdd_Frm & " ** "  & " * "  & $Label & " * "  & $Input & " * "  & $BtnParcourir & " * "  & $BtnInstall & " * " & $BtnCancel, 5)

; On s'assure qu'il n'y a pas une autre instance du script en cours
If _Singleton("Install_CCI", 1) = 0 Then
    MsgBox(0, "Warning", "L'installation de l'application CCI est déjà en cours.")
    Exit
EndIf
;Ouverture fenetre principale
GUISetState(@SW_SHOW,$Main_frm)

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $radioUSB ;And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
            Install_USB()
        Case $msg = $radioHDD ;And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
            Install_HDD()
        Case $msg = $BtnFermer Or $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd
Exit    ; Fin du programme

Func Install_USB()
      MsgBox ( 4096, "USB install", "Installation terminée", 4)
      Exit
  EndFunc   ;==>Install_USB

Func Install_HDD()

    ;Affichage fenêtre secondaire
    GUISetState (@SW_SHOW,$Hdd_Frm) ; Secondary windows

    ;Choix du dossier d'installation
    Local $rmsg = ""
    While 1
        $nMsg = GUIGetMsg()
        Select
            Case $nMsg = $BtnParcourir
                    Local $var = FileSelectFolder("Choississez votre dossier d'installation.", " ")
                    If @error Then
                        MsgBox(4096, "", "Pas d'emplacement sélectionné, arrêt de l'installation?")
                        $rmsg = "Not OK"
                        ExitLoop
                    Else
                        $var = StringTrimRight($var, 1) & "\CCI"
                        GUICtrlSetData($Input, $var)
                        ;ContinueLoop volontaire pour permettre l'action sur le bouton 'Lancer l'installation'
                    EndIf
            Case $nMsg = $BtnInstall
                    GUIDelete();    ; will return 1
                    $rmsg = "OK"
            Case    $nMsg = $BtnCancel  Or $nMsg = $GUI_EVENT_CLOSE ; Close the GUI
                    $rmsg =  "Cancel"
                    ExitLoop
            Case Else
                    ;MsgBox(0, "Default Case", "No preceding case was true!" & " * " & $nmsg & " * "  & $BtnParcourir & " * "  & $BtnInstall & " * " & $BtnCancel, 5)
        EndSelect
    WEnd

    MsgBox(4096, "", "rmsg:" & $rmsg & " * " & $nmsg, 5)

    If $rmsg = "Cancel" then
        MsgBox(4096, "CCI Info:", "L'installation de l'application CCI a été abandonnée.",4)
        Exit
    ElseIf  $rmsg = "OK" then
        MsgBox(4096, $Form_header, "Copie des fichiers.",3)
        MsgBox(4096, $Form_header, "HDD: L'installation de l'application CCI est terminée.",4)
        Exit
    EndIf

    ;MsgBox(4096, $Form_header, "HDD: Return: " & $result,4)
EndFunc   ;==>Install_HDD

Salut,

Par exemple sur un Radio:

Code : Tout sélectionner

If BitAND(GUICtrlRead($rRadio), $GUI_CHECKED) = $GUI_CHECKED Then ;Ton code...

Sinon tu as le code fournit dans l'aide:

► Afficher le texte

Je pense que tu t'es trompé dans la déclaration:

► Afficher le texte

au lieu de

► Afficher le texte

Donc ce qui nous donne:

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         Megaten

#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <Misc.au3>

Local $font
$Form_header = "Camping-Car Info"
$inst = "Installation de l'application CCI"
$DriveKeyLetter = "C:"

;Creation du menu principal de sélection
$Main_frm   =   GUICreate("Installation application Camping-car Info CCI", 400, 200)
                GUISetBkColor(0xE0FFFF, $Main_frm) ; will change background color
                GUICtrlCreateLabel("Sélectionnez le type d'utilisation de CCI", 50, 10, 400, 50)
                GUICtrlSetFont(-1, 12, 700, 4, $font, 5) ; will display italic characters
                Local $radioUSB, $radioHDD, $msg
$radioUSB   =   GUICtrlCreateRadio("A partir de la clé USB .", 20, 50, 250, 50)
$radioHDD   =   GUICtrlCreateRadio("A partir de votre disque ( Plus rapide).", 20, 80, 250, 50)
                ;GUICtrlSetState($radioHDD, $GUI_CHECKED) ; Pas de selection par défaut
$BtnFermer  =   GUICtrlCreateButton("Fermer", 160, 150, 60)

; Cette fonction permet la selection du dossier d'installation de l'application
$text         = "Sélectionner votre dossier d'installation, puis lancer l'installation"
$Hdd_Frm      = GUICreate($Form_header, 500, 200, 400, 200)
                GUISetBkColor(0xE0FFFF,$Hdd_Frm) ; will change background color
$Label        = GUICtrlCreateLabel($text, 10, 30, 450, 150)
$font         = GUICtrlSetFont(-1, 10, 700, 4, $font, 5) ; will display italic characters
$Input        = GUICtrlCreateInput("", 40, 100, 300, 20)
$BtnParcourir = GUICtrlCreateButton("Parcourir", 360, 97, 75, 25)
$BtnInstall   = GUICtrlCreateButton("Lancer l'installation", 80, 150, 200, 25)
$BtnCancel    = GUICtrlCreateButton("Annuler l'installation", 360, 150, 120, 25)

;MsgBox(0, "ID bouton Wind 1: ", $Main_frm  & " ** "  & $radioUSB & " * " & $radioHDD & " * "  & $BtnFermer, 5)
;MsgBox(0, "ID bouton Wind 2: ", $Hdd_Frm & " ** "  & " * "  & $Label & " * "  & $Input & " * "  & $BtnParcourir & " * "  & $BtnInstall & " * " & $BtnCancel, 5)

; On s'assure qu'il n'y a pas une autre instance du script en cours
If _Singleton("Install_CCI", 1) = 0 Then
    MsgBox(0, "Warning", "L'installation de l'application CCI est déjà en cours.")
    Exit
EndIf
;Ouverture fenetre principale
GUISetState(@SW_SHOW,$Main_frm)

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $radioUSB And BitAND(GUICtrlRead($radioUSB), $GUI_CHECKED) = $GUI_CHECKED
            Install_USB()
        Case $msg = $radioHDD And BitAND(GUICtrlRead($radioHDD), $GUI_CHECKED) = $GUI_CHECKED
            Install_HDD()
        Case $msg = $BtnFermer Or $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd
Exit    ; Fin du programme

Func Install_USB()
      MsgBox ( 4096, "USB install", "Installation terminée", 4)
      Exit
  EndFunc   ;==>Install_USB

Func Install_HDD()

    ;Affichage fenêtre secondaire
    GUISetState (@SW_SHOW,$Hdd_Frm) ; Secondary windows

    ;Choix du dossier d'installation
    Local $rmsg = ""
    While 1
        $nMsg = GUIGetMsg()
        Select
            Case $nMsg = $BtnParcourir
                    Local $var = FileSelectFolder("Choississez votre dossier d'installation.", " ")
                    If @error Then
                        MsgBox(4096, "", "Pas d'emplacement sélectionné, arrêt de l'installation?")
                        $rmsg = "Not OK"
                        ExitLoop
                    Else
                        $var = StringTrimRight($var, 1) & "\CCI"
                        GUICtrlSetData($Input, $var)
                        ;ContinueLoop volontaire pour permettre l'action sur le bouton 'Lancer l'installation'
                    EndIf
            Case $nMsg = $BtnInstall
                    GUIDelete();    ; will return 1
                    $rmsg = "OK"
            Case    $nMsg = $BtnCancel  Or $nMsg = $GUI_EVENT_CLOSE ; Close the GUI
                    $rmsg =  "Cancel"
                    ExitLoop
            Case Else
                    ;MsgBox(0, "Default Case", "No preceding case was true!" & " * " & $nmsg & " * "  & $BtnParcourir & " * "  & $BtnInstall & " * " & $BtnCancel, 5)
        EndSelect
    WEnd

    MsgBox(4096, "", "rmsg:" & $rmsg & " * " & $nmsg, 5)

    If $rmsg = "Cancel" then
        MsgBox(4096, "CCI Info:", "L'installation de l'application CCI a été abandonnée.",4)
        Exit
    ElseIf  $rmsg = "OK" then
        MsgBox(4096, $Form_header, "Copie des fichiers.",3)
        MsgBox(4096, $Form_header, "HDD: L'installation de l'application CCI est terminée.",4)
        Exit
    EndIf

    ;MsgBox(4096, $Form_header, "HDD: Return: " & $result,4)
EndFunc   ;==>Install_HDD

C'est ce que tu désires?

Merci pour ton aide mais le problème ne vient pas de là.
Ce code proposé était mis en commentaire.
Effectivement il y a eu une erreur lorsque j'ai changé le nom des radio bouton, mais cela n'est pas la cause du problème.
La deuxième fenêtre s'ouvre, mais je n'arrive pas à intercepter les clics sur les bouton, pourtant je suis bien dans la boucle d'attente?
Je n'intercepte que 'Esc' ? qui est bien affecté à la deuxième fenêtre.

Je pense que cela devrais t'aider à gerer tes GUI... http://www.autoitscript.com/wiki/Managing_Multiple_GUIs ou sinon celui là... http://www.autoitscript.fr/forum/viewto ... =3&t=11404.

Bonjour.
J'ai consulté votre code et je souhaiterais vous soumettre certaines réflexions.

- La fonction _Singleton() devrait être placée juste après les "#includes", car il est inutile d'initialiser des variables et de construire une interface graphique si c'est pour fermer le programme parce qu'il est déjà lancé.

- Dans votre cas, le GUISetState() devrait être placé juste après l'initialisation du dernier élément graphique ($BtnCancel).

- Concernant l'affichage de la fenêtre "fille" et la gestion de ses événements, vous devriez plutôt utiliser la méthode avancée de GUIGetMsg() (voir la doc).
Mais généralement dans un cas comme celui-ci, il est grandement préférable d'utiliser le mode événementiel que est bien plus souple sur la gestion des événements des éléments graphique. Jetez un œil ici : http://www.autoitscript.fr/autoit3/docs ... ntMode.htm

Merci pour vos remarques, mais j'ai un peu tailler à la serpe pour réduire l'exemple.
Je vais étudier vos propositions car je démarre avec AutoIT.

Mais je viens de trouver la cause de ce blocage et pour moi il s'agit d'un 'BUG', oui c'est prétentieux de ma part mais j'ai beaucoup plus d'expérience avec d'autres langages. Bref ce n'est pas l'objet de ce thread.
Je reposte le code en ayant tenu compte des remarques précédentes.
Voici le problème
Lorsque je commente $Label dans ma deuxième Form le script fonctionne sans rien changer à ma logique ( bonne ou mauvaise ).
Curieux non! d'autant plus que j'utilise la même structure dans ma première Form sans avoir ce soucis.

Si vous jugez le cas intéressant pour être remonter aux supports, n'hésitez pas à m'indiquer comment, sinon je clos l'incident mais je pense que l'info mérite d'être diffusée.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         Megaten

#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <Misc.au3>

Local $font, $msg, $nMsg, $rmsg
$Form_header = "Camping-Car Info"
$inst = "Installation de l'application CCI"
$DriveKeyLetter = "C:"

;Creation du menu principal de sélection
$Main_frm   =   GUICreate("Installation application Camping-car Info CCI", 400, 200)
                GUISetBkColor(0xE0FFFF, $Main_frm) ; will change background color
                GUICtrlCreateLabel("Sélectionnez le type d'utilisation de CCI", 50, 10, 400, 50)
                GUICtrlSetFont(-1, 12, 700, 4, $font, 5) ; will display italic characters
Local $radioUSB     =   GUICtrlCreateRadio("A partir de la clé USB .", 20, 50, 250, 50)
Local $radioHDD     =   GUICtrlCreateRadio("A partir de votre disque ( Plus rapide).", 20, 80, 250, 50)
                        #GUICtrlSetState($radioHDD, $GUI_CHECKED)   ; Pas de selection par défaut
Local $BtnFermer    =   GUICtrlCreateButton("Fermer", 160, 150, 60)

; Cette fonction permet la selection du dossier d'installation de l'application
Local $text         = "Sélectionner votre dossier d'installation, puis lancer l'installation"
Local $Hdd_Frm      = GUICreate($Form_header, 500, 200, 400, 200)
                      GUISetBkColor(0xE0FFFF,$Hdd_Frm) ; will change background color of Form

;Local $Lbl         = GUICtrlCreateLabel($text, 10, 30, 450, 150)       <============================BUG ??? BUG??? BUG ??? si décommenté

Local $font         = GUICtrlSetFont(-1, 10, 700, 4, $font, 5) ; will display italic characters
Local $Input        = GUICtrlCreateInput("", 40, 100, 300, 20)
Local $BtnParcourir = GUICtrlCreateButton("Parcourir", 360, 97, 75, 25)
Local $BtnInstall   = GUICtrlCreateButton("Lancer l'installation", 80, 150, 200, 25)
Local $BtnCancel    = GUICtrlCreateButton("Annuler l'installation", 360, 150, 120, 25)

;MsgBox(0, "ID bouton Wind 1: ", $Main_frm  & " ** "  & $radioUSB & " * " & $radioHDD & " * "  & $BtnFermer, 5)
;MsgBox(0, "ID bouton Wind 2: ", $Hdd_Frm & " ** "  & " * "  & $Label & " * "  & $Input & " * "  & $BtnParcourir & " * "  & $BtnInstall & " * " & $BtnCancel, 5)

;Ouverture fenetre principale
GUISetState(@SW_SHOW,$Main_frm)

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $radioUSB And BitAND(GUICtrlRead($radioUSB), $GUI_CHECKED) = $GUI_CHECKED
            Install_USB()
            Exit
        Case $msg = $radioHDD And BitAND(GUICtrlRead($radioHDD), $GUI_CHECKED) = $GUI_CHECKED
                ;Affichage fenêtre secondaire
                GUISetState (@SW_SHOW,$Hdd_Frm) ; Secondary windows
                Parcourir()
                ExitLoop
    EndSelect

WEnd


Func Install_USB()
      MsgBox ( 4096, "USB install", "Installation terminée", 4)
      Exit
  EndFunc   ;==>Install_USB

Func Parcourir()
;Fenêtre principale :
While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $BtnParcourir
            ;Ouverture fenetre de dialogue pour sélection fichier
            Local $var = FileSelectFolder("Choose a folder.", "")
            ;$var = FileOpenDialog( "Sample", @WindowsDir & "", "Tous(*.*)", 9)
            If @error Then
                MsgBox(4096, "", "No File(s) chosen")
            Else
                GUICtrlSetData($Input, $var)
                MsgBox(4096,"Info", "Selection de " & $var , 5)
                ExitLoop
            EndIf
        Case    $GUI_EVENT_CLOSE        ; Close the GUI when Cross Icon is pressed
                Exit

    EndSwitch
WEnd
EndFunc

Vous devez utiliser le mode avancé pour GUIGetMsg(), sans quoi les événements capturé seront systématiquement ceux de la fenêtre principale (donc pas de bug). De plus vous devriez créer la 2nd GUI en spécifiant le paramètre "parent" puisque elle est censée être une fenêtre fille ...

Le mode événementiel vous évitera la gestion de deux boucles (voir plus si vous créez d'autres fenêtres) et permettra une meilleure structure de votre code.

Ok, Je suis convaincu de la gestion événementielle, et je vais m'y attacher, grâce aux éléments de documentations que vous m'avez indiquer.
Mais tout de même cela est un peu fort.
Bon week-end à tous et je vais essayer d'être plus performant.
Encore merci de vos remarques
Meg

Bonsoir, par curiosité, j'ai épluché votre code et vous aviez "raison". Il s'agit bien d'un "bug", mais pas lié à AutoIt. Le "bug" est tout simplement lié à la taille que vous avez donné à votre label (il empiétait sur la zone des boutons). D’où le fait que commenter cette ligne améliorait le fonctionnement de votre code. Maintenant il y avait d'autres petites choses qui faisaient que tout ne fonctionnait pas correctement. Je vous ai adapté le code pour que vous étudiez comment gérer plusieurs interfaces avec AutoIt en mode classique, mais je maintiens que le mode événementiel sera plus adapté à votre conception. Certes, plus il y a de contrôle et plus il y a de ligne de code (2 lignes par contrôle dont une qui correspond à EndFunc), mais au moins, chaque bouton ce voit attribuer une fonction définie et cela revient presque au même que de faire les Case de la boucle, sans compter qu'une fonction peut en appeler une autre.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------
    
    AutoIt Version: 3.3.8.1
    Author:         Megaten
    
#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <Array.au3>

; On s'assure qu'il n'y a pas une autre instance du script en cours
If _Singleton(@ScriptName, 1) = 0 Then
    MsgBox(0, "Warning", "L'installation de l'application CCI est déjà en cours.")
    Exit
EndIf

Local $font
$Form_header = "Camping-Car Info"
$inst = "Installation de l'application CCI"
$DriveKeyLetter = "C:"

;Creation du menu principal de sélection
$Main_frm = GUICreate("Installation application Camping-car Info CCI", 400, 200)
GUISetBkColor(0xE0FFFF, $Main_frm) ; will change background color
GUICtrlCreateLabel("Sélectionnez le type d'utilisation de CCI", 50, 10, 400, 50)
GUICtrlSetFont(-1, 12, 700, 4, $font, 5) ; will display italic characters
Local $radio1, $radio2, $msg
$radioUSB = GUICtrlCreateRadio("A partir de la clé USB .", 20, 50, 250, 50)
$radioHDD = GUICtrlCreateRadio("A partir de votre disque ( Plus rapide).", 20, 80, 250, 50)
#GUICtrlSetState($radio2, $GUI_CHECKED) ; Pas de selection par défaut
$BtnFermer = GUICtrlCreateButton("Fermer", 160, 150, 60)

; Cette fonction permet la selection du dossier d'installation de l'application
$text = "Sélectionner votre dossier d'installation, puis lancer l'installation"
$Hdd_Frm = GUICreate($Form_header, 500, 200, 400, 200, -1, -1, $Main_frm)
GUISetBkColor(0xE0FFFF, $Hdd_Frm) ; will change background color
$Label = GUICtrlCreateLabel($text, 10, 30, 95, 15) ; ***    taille du bloc trop grand
$font = GUICtrlSetFont(-1, 10, 700, 4, $font, 5) ; will display italic characters
$Input = GUICtrlCreateInput("", 40, 100, 300, 20)
$BtnParcourir = GUICtrlCreateButton("Parcourir", 360, 97, 75, 25)
$BtnInstall = GUICtrlCreateButton("Lancer l'installation", 80, 150, 200, 25)
$BtnCancel = GUICtrlCreateButton("Annuler l'installation", 360, 150, 120, 25)

; Affichage fenetre principale
GUISetState(@SW_SHOW, $Main_frm)

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $radioUSB ;And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
            Install_USB()
        Case $msg = $radioHDD ;And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
            Install_HDD()
        Case $msg = $BtnFermer Or $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd
Exit ; Fin du programme

Func Install_USB()
    MsgBox(4096, "USB install", "Installation terminée", 4)
    Exit
EndFunc   ;==>Install_USB

Func Install_HDD()
    GUISetState(@SW_HIDE, $Main_frm) ; Primary windows
    GUISetState(@SW_SHOW, $Hdd_Frm) ; Secondary windows

    ;Choix du dossier d'installation
    Local $rmsg = ""
    While 1
        $nMsg = GUIGetMsg()

        Select
            Case $nMsg = $BtnParcourir
                Local $var = FileSelectFolder("Choississez votre dossier d'installation.", " ")
                If @error Then
                    ContinueLoop
                Else
                    $var = StringTrimRight($var, 1) & "\CCI"
                    GUICtrlSetData($Input, $var)
                    ;ContinueLoop volontaire pour permettre l'action sur le bouton 'Lancer l'installation'
                EndIf

            Case $nMsg = $BtnInstall
                If GUICtrlRead($Input) = "" Then ContinueLoop
                GUISetState(@SW_HIDE, $Hdd_Frm)
                $rmsg = "OK"

            Case $nMsg = $BtnCancel Or $nMsg = $GUI_EVENT_CLOSE ; Close the GUI
                $rmsg = "Cancel"
                GUISetState(@SW_HIDE, $Hdd_Frm)
                ExitLoop
            Case Else
                ;MsgBox(0, "Default Case", "No preceding case was true!" & " * " & $nmsg & " * "  & $BtnParcourir & " * "  & $BtnInstall & " * " & $BtnCancel, 5)
        EndSelect
    WEnd

    MsgBox(4096, "", "rmsg:" & $rmsg & " * " & $nMsg, 5)

    If $rmsg = "Cancel" then
        MsgBox(4096, "CCI Info:", "L'installation de l'application CCI a été abandonnée.", 4)
        Exit
    ElseIf $rmsg = "OK" then
        MsgBox(4096, $Form_header, "Copie des fichiers.", 3)
        MsgBox(4096, $Form_header, "HDD: L'installation de l'application CCI est terminée.", 4)
        Exit
    EndIf

EndFunc   ;==>Install_HDD

Bravo et merci pour votre perspicacité. Il est vrai qu'après 2 jours pour détecter l'origine de cette anomalie j'ai lévé le pied.
En effet c'est lorsque je me suis mis à traiter l'esthétique que le problème à surgi, mais bien sur impossible de tester à chaque ligne de code.

Voila ce que j'appelle une bonne expérience pour débuter avec un nouveau langage que je trouve puissant et proche du système.
Je vais donc poursuivre mon éducation, cerise sur le gâteau je sais que l'équipe du forum sera là pour m'épauler si besoin.

Bonnes fêtes de fin d'année, il n'est jamais trop tard pour bien faire la fête.

Meg

Merci. Bonnes fêtes à vous aussi et surtout, bon développement.

AutoIt Français

[R] Récupération des click-bouton dans un menu secondaire.

[R] Récupération des click-bouton dans un menu secondaire.

Re: [..] Récupération des click-bouton dans un menu secondai

Re: [..] Récupération des click-bouton dans un menu secondai

Re: [..] Récupération des click-bouton dans un menu secondai

Re: [..] Récupération des click-bouton dans un menu secondai

Re: [..] Récupération des click-bouton dans un menu secondai

Re: [..] Récupération des click-bouton dans un menu secondai

Re: [..] Récupération des click-bouton dans un menu secondai

Re: [R] Récupération des click-bouton dans un menu secondair

Re: [R] Récupération des click-bouton dans un menu secondair

Re: [R] Récupération des click-bouton dans un menu secondair

Re: [R] Récupération des click-bouton dans un menu secondair