[R] Récuperer valeur combobox de _GUICtrlComboBox_AddDir

[Ephsb]

Bonjour,

Déjà, désolé pour le manque de clarté du titre mais la limite de caractère m'empêche de le formuler plus clairement. Ou je ne sais comment le formuler plus court ^^

Alors voila, mon problème est que je veux récupérer le nom sélectionné dans une combobox qui affiche une liste de nom de fichier appelé par _GUICtrlComboBox_AddDir.

Cela ne pose aucun problème lorsqu'il s'agit d'un contenu généré par GUICtrlSetData mais avec _GUICtrlComboBox_AddDir je ne réussi qu'à afficher la list des fichiers ayant l'extension définit.

J'ai essayé tout ce que j'ai trouvé pour récupérer le nom de fichier que l'utilisateur sélectionne dans la combobox dans le but de pouvoir effectuer une action sur ce fichier précis mais ce en vain.

J'espère que mes explication sont compréhensible mais j'y connais pas grand chose ^^

Je met le script en question pour que vous puissiez mieux comprendre mon soucie :

Code : Tout sélectionner

    Local $Param, $btn01, $Btn02, $Btn03,  $msg
    Local $UserProfil = "Defaut_user.ini"
; Create GUI
    GUICreate(".: Panneau de configuration :.", 310, 500)
    guictrlcreategroup("Selection profil (ini file)",5,5,300,90)
    GUICtrlCreateLabel("Profil disponible :", 15, 32)
    $Param = GUICtrlCreateCombo("", 100, 30, 190, 296)
    GUISetState()
; Add files
    _GUICtrlComboBox_AddDir($Param, @ScriptDir & "\*.ini", "", False)
;imputbox pour coller la selectionner à defaut de reussir à chopper la selection du combo 
    GUICtrlCreateLabel("Profil à utiliser :", 15, 62)
    $UserProfil = GUICtrlCreateInput($UserProfil, 100, 60, 140, 18)
;info bouton :
    $btn01 = GUICtrlCreateButton("Valider",240,60,50,18)
    GUISetState()

Donc dans la section de script ci-dessus, j'ai mis un "GUICtrlCreateInput" pour coller le nom du fichier qu'on sélectionne et copie dans la combobox mais ce que j'essaie de faire c'est qu'on est pas à le copier/coller et donc trouver comment consulter directement ce que la combobox affiche en premier plan.

- guictrlread($param)
ne parviens pas a lire la selection de
- $Param = GUICtrlCreateCombo("", 100, 30, 190, 296)
apparemment c'est à cause du
- _GUICtrlComboBox_AddDir($Param, @ScriptDir & "\*.ini", "", False)
mais j'ai besoin de cette fonction pour détecter les fichiers ini pour permettre à l'utilisateur de créer d'autre configuration sans avoir à éditer le script lui même.

Il doit y avoir une solution sinon afficher une liste de fichier dans une combobox n'aurait aucun intérêt si on ne peut effectuer une action sur celui qui est sélectionner.

Quoi qu'il en soit la solution m'échappe totalement depuis plusieurs jours donc je m'en remet à vous en espérant que vous saurez comment faire ça.

Merci d'avance pour l'attention que vous porterez à mon problème



Le code complet (enfin j'ai viré tout ce qui était en dehors du menu mais il est exécutable quand même):

► Afficher le texte

Code : Tout sélectionner

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIComboBox.au3>
#include <GuiConstantsEx.au3>
#include <Constants.au3>
#Include <GuiButton.au3>

Opt('MustDeclareVars', 1)

$Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work

_Menu()

Func _Menu()
    Local $Param, $btn01, $Btn02, $Btn03,  $msg
    Local $UserProfil = "Defaut_user.ini"
; Create GUI
    GUICreate(".: Panneau de configuration :.", 310, 500)
    guictrlcreategroup("Selection profil (ini file)",5,5,300,90)
    GUICtrlCreateLabel("Profil disponible :", 15, 32)
    $Param = GUICtrlCreateCombo("", 100, 30, 190, 296)
    GUISetState()
; Add files
    _GUICtrlComboBox_AddDir($Param, @ScriptDir & "\*.ini", "", False)
;imputbox pour coller la selectionner à defaut de reussir à chopper la selection du combo 
    GUICtrlCreateLabel("Profil à utiliser :", 15, 62)
    $UserProfil = GUICtrlCreateInput($UserProfil, 100, 60, 140, 18)
;info bouton :
    $btn01 = GUICtrlCreateButton("Valider",240,60,50,18)
    GUISetState()
    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $btn01
                
                if GUICtrlRead($UserProfil) = "" Then
                    msgbox(0,"Erreur","Vous n'avez pas sélectionné de profil"& @lf & "Impossible de charger les parametres necessaire au script")
                else
                    local $UserProfil2=(@ScriptDir&"\"&guictrlread($UserProfil))
                    local $updown, $updown2, $data8_b, $data9_b, $data10_b
                    local $XE = IniRead($UserProfil2,"Global", "$XE", "Erreur - Clef registre introuvable")
                    local $YE = IniRead($UserProfil2,"Global", "$YE", "Erreur - Clef registre introuvable")
                    local $XF = IniRead($UserProfil2,"Global", "$XF", "Erreur - Clef registre introuvable")
                    local $YF = IniRead($UserProfil2,"Global", "$YF", "Erreur - Clef registre introuvable")
                    local $data1 = IniRead($UserProfil2,"Global", "$data1", "Erreur - Clef registre introuvable")
                    local $data2 = IniRead($UserProfil2,"Global", "$data2", "Erreur - Clef registre introuvable")
                    local $data3 = IniRead($UserProfil2,"Global", "$data3", "Erreur - Clef registre introuvable")
                    local $data4 = IniRead($UserProfil2,"Global", "$data4", "Erreur - Clef registre introuvable")
                    local $data5 = IniRead($UserProfil2,"Global", "$data5", "Erreur - Clef registre introuvable")
                    local $data6 = IniRead($UserProfil2,"Global", "$data6", "Erreur - Clef registre introuvable")
                    local $data7 = IniRead($UserProfil2,"Global", "$data7", "Erreur - Clef registre introuvable")
                    local $data8 = IniRead($UserProfil2,"Global", "$data8", "Erreur - Clef registre introuvable")
                    local $data9 = IniRead($UserProfil2,"Global", "$data9", "Erreur - Clef registre introuvable")
                    local $data10 = IniRead($UserProfil2,"Global", "$data10", "Erreur - Clef registre introuvable")
                endif   
                    GUICtrlDelete($param)
                    $Param = GUICtrlCreateCombo("", 100, 30, 190, 296)
                    ; Add files
                    _GUICtrlComboBox_AddDir($Param, @ScriptDir & "\*.ini", "", False)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Groupe 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    GUICtrlCreateGroup("Global", 10, 100, 295, 65)
                    GUIStartGroup()
                    GUICtrlCreateLabel("Parametre 1 :", 15, 120)
                    $data1 = GUICtrlCreateInput($data1, 200, 120, 50, 20)
                    GUICtrlCreateLabel("Parametre 2 :", 15, 140)
                    $data2 = GUICtrlCreateInput($data2, 200, 140, 90, 20)
                    $updown = GUICtrlCreateUpdown($data2)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Groupe 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    GUICtrlCreateGroup("Param Fonction :", 10, 170, 295, 65)
                    GUIStartGroup()
                    GUICtrlCreateLabel("Parametre 4 :", 15, 190)
                    $data3 = GUICtrlCreateInput($data3, 200, 190, 50, 20)
                    GUICtrlCreateLabel("Parametre 5 :", 15, 210)
                    $data4 = GUICtrlCreateInput($data4, 200, 210, 90, 20)
                    $updown2 = GUICtrlCreateUpdown($data4)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Groupe 3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    GUICtrlCreateGroup("Divers :", 10, 240, 295, 105)
                    GUIStartGroup()
                    GUICtrlCreateLabel("Parametre 6 :", 15, 260)
                    $data5 = GUICtrlCreateInput($data5, 200, 260, 45, 20)
                    $data6 = GUICtrlCreateInput($data6, 245, 260, 45, 20)
                    GUICtrlCreateLabel("Parametre 7 :", 15, 280)
                    $data7 = GUICtrlCreateInput($data7, 200, 280, 50, 20)
                    GUICtrlCreateLabel("Parametre 8 :", 15, 300)
                    $data8_b = GUICtrlCreateCheckbox("", 200, 300,20,20)
                    if $data8=1 then
                    _GUICtrlButton_SetCheck($data8_b)
                    Else
                    endif
                    GUICtrlCreateLabel("Parametre 9 :", 15, 320)
                    $data9_b = GUICtrlCreateCheckbox("(Vista only)", 200, 320,100,20)
                    if $data9=1 then
                    _GUICtrlButton_SetCheck($data9_b)
                    Else
                    endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Groupe 4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    GUICtrlCreateGroup("Parametres d'affichage :", 10, 350, 295, 85)
                    GUIStartGroup()
                    GUICtrlCreateLabel("Parametre 10 :", 15, 370)
                    $data10_b = GUICtrlCreateCheckbox("", 200, 370,20,20)
                    if $data10=1 then
                    _GUICtrlButton_SetCheck($data10_b)
                    Else
                    endif
                    GUICtrlCreateLabel("Résolution de l'ecran :", 15, 390)
                    $XE = GUICtrlCreateInput($XE, 200, 390, 45, 20)
                    $YE = GUICtrlCreateInput($YE, 245, 390, 45, 20)
                    GUICtrlCreateLabel("Dimenssion de la fenetre :", 15, 410)
                    $XF = GUICtrlCreateInput($XF, 200, 410, 45, 20)
                    $YF = GUICtrlCreateInput($YF, 245, 410, 45, 20)
                    $Btn02 = GUICtrlCreateButton("Quitter", 20, 440, 120, 20)
                    $Btn03 = GUICtrlCreateButton("Lancer", 180, 440, 120, 20, $BS_DEFPUSHBUTTON)
                    GUISetState()
                    While 1
                        $msg = GUIGetMsg()
                    Select
                        Case $msg = $GUI_EVENT_CLOSE
                            Exit
                        Case $msg = $Btn02
                            Exit
                        Case $msg = $Btn03
                            MsgBox(1,"resultat","$XE = "&guictrlread($XE)& @LF &"$YE = "&guictrlread($YE)& @LF &"$XF = "&guictrlread($XF)& @LF &"$YF = "&guictrlread($YF)& @LF &"Data 1 = "&guictrlread($data1)& @LF &"Data 2 = "&guictrlread($data2)& @LF &"Data 3 = "&guictrlread($data3)& @LF &"Data 4 = "&guictrlread($data4)& @LF &"Data 5 = "&guictrlread($data5)& @LF &"Data 6 = "&guictrlread($data6)& @LF &"Data 7 = "&guictrlread($data7)& @LF &"Data 8 = "&guictrlread($data8)& @LF &"Data 9 = "&guictrlread($data9)& @LF &"Data 10 = "&guictrlread($data10)&"")
                        EndSelect
                        WEnd
                        GUIDelete()
        EndSelect
    WEnd
    GUIDelete()
EndFunc

[DJSIR]

Déja, si tu aurais u les règles de présentation d'un message, tu aurais compris que ce n'est pas [...] mais [..] ce qui te fait gagner un caractère.
Après, tu peux enlever le _GUICtrl de remplacer le de par d'une. Au final tu peux arriver à ca :
[..] Récupérer valeur d'une ComboBox_AddDir.
Pour ton problème de longeur.

[Tlem]

J'ai essayé votre code, mais il manque surement le fichier .ini.
Donc j'ai regardé la doc au sujet de la commande _GUICtrlComboBox_AddDir.

J'y ai pris l'exemple que j'ai modifié et sans doute voulez-vous quelque chose dans ce genre :

► Afficher le texte

Code : Tout sélectionner

#include <GUIComboBox.au3>
#include <GuiConstantsEx.au3>
#include <Constants.au3>


    ; Create GUI
    GUICreate("ComboBox Add Dir", 400, 296)
    $hCombo = GUICtrlCreateCombo("Vide", 2, 2, 396, 296)
    $Button = GUICtrlCreateButton("Get Combo Text", 150, 250, 100, 30)
    GUISetState()

    ; Add files
    _GUICtrlComboBox_BeginUpdate($hCombo)
    _GUICtrlComboBox_AddDir($hCombo, @WindowsDir & "\*.exe")
    _GUICtrlComboBox_EndUpdate($hCombo)

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop

            Case $msg = $Button
            MsgBox(64, 'The text is :', _GUICtrlComboBox_GetEditText($hCombo))

        EndSelect
    WEnd

[Ephsb]

Re bonjour,


Effectivement c'est exactement ce que je cherchais a faire depuis un bon bout de temps

j'avais essayé ça en plus :

► Afficher le texte

Code : Tout sélectionner

   
    _GUICtrlComboBox_BeginUpdate($Profil)
    _GUICtrlComboBox_AddDir($Profil, @Scriptdir & "\*.ini")
    _GUICtrlComboBox_EndUpdate($Profil)
    _GUICtrlComboBox_GetEditText($Profil)
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop

            Case $msg = $Btn01
            MsgBox(64, "The text is :","nom =" &$Profil&"")

        EndSelect
    WEnd

J'en suis pas passé loin

En tout cas merci beaucoup pour ton aide, j'avais abandonné cette façon et étais parti dans une toute autre direction ^^

il me proposer que ca dans l'aide d'autoit moi :

► Afficher le texte

Code : Tout sélectionner

#include <GUIComboBox.au3>
#include <GuiConstantsEx.au3>
#include <Constants.au3>

Opt('MustDeclareVars', 1)

$Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work

_Main()

Func _Main()
    Local $hCombo

    ; Create GUI
    GUICreate("ComboBox Add Dir", 400, 296)
    $hCombo = GUICtrlCreateCombo("", 2, 2, 396, 296)
    GUISetState()

    ; Add files
    _GUICtrlComboBox_BeginUpdate($hCombo)
    _GUICtrlComboBox_AddDir($hCombo, @WindowsDir & "\*.exe")
    _GUICtrlComboBox_EndUpdate($hCombo)

    ; Loop until user exits
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Main

Je vais dl la dernière version des fois que l'aide soit plus complète

Encore merci

------------------------------

Pour DJSIR

Si je n'avais lu le thread sur la présentation des posts, je n'aurais pas mit de point du tout.

Mais bon merci quand même pour ton accueil chaleureux ^^

[Tlem]

Comme je vous l'ai dit, je suis parti de l'exemple de la doc que j'ai modifié ...
Donc il n'y à pas d'autres exemples plus complet.

Lorsque vous cherchez à faire quelque chose en AutoIt, ouvrez l'aide et recherchez les commandes en rapport avec l'élément que vous voulez traiter.
Lisez et essayez de comprendre en quoi telle ou telle fonction peut vous être d'une utilité et adaptez la à votre code.


En ce qui concerne l'accueil de DJSIR, il faut comprendre que chaque nouvel arrivant (enfin presque tous) passe à coté de la présentation des messages.
Pourtant lorsqu'on arrive sur le forum, tous les messages ont une balise à gauche du titre et je trouve navrant que cela ne traverse pas l'esprit de celui qui va écrire un message qu'il faut aussi mettre une balise ...
Imaginez le nombre de fois ou il faut expliquer ce genre de chose.
A force, ça lasse.