[R] Modifier une liste déroulante

[Wardow]

Bonjour, j'ai un problème :
Je voudrais qu'un utilisateur, en cliquant sur un bouton puisse ajouter des noms dans une liste déroulante.
Quand l'utilisateur auras cliqué sur le bouton, sa lui demanderas le nom qui apparaîtras dans la liste.

Merci d'avance pour votre aide. =)

[DimVar]

Bonjour,


Guictrlcreatelist te crée une liste.
guictrlsetdata te modifie les data d'un control GUI.
Et enfin, inputbox (ou autre) récupère les char entrés au clavier par un user.


Cdlt.

[Wardow]

Merci mais je ne comprend pas très bien votre explication :s

J'ai essayer de créé ce que je voulais mais le problème c'est qui quand on ajoute un non, il s'ajoute a la variable (je pence) mais pas a la liste, il faudrait une fonction pour recharger la gui non ?
Voici mon code :

► Afficher le texteCode

Code : Tout sélectionner

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

$noms="1|2|3"
#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Interface 1", 214, 228, 302, 218)
Global $liste = GUICtrlCreateCombo("Veuillez selectioner un nom", 24, 16, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $noms)
Global $add = GUICtrlCreateButton("Ajouter un nom", 48, 112, 121, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $add
        $nomAjouter = InputBox("ajouter , "Quel est le nom  à ajouter ?", "", "", -1, -1, 0, 0)
        $noms=$noms+"|"+$nomAjouter

    EndSwitch
WEnd

[mikell]

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("My GUI combo", 300, 200) 
$combo = GUICtrlCreateCombo("item1", 10, 10)
GUICtrlSetData(-1, "item2|item3", "item3") 
$Button = GUICtrlCreateButton("ajouter", 70, 80, 80)
GUISetState()

While 1
$msg = GUIGetMsg()
Switch $msg
        Case $GUI_EVENT_CLOSE 
        ExitLoop
    Case $Button 
        $nomAjouter = InputBox("ajouter" , "Quel est le nom  à ajouter ?")
        GUICtrlSetData($combo, $nomAjouter, $nomAjouter)
        Msgbox(0,"", "nouvelle entrée :  " & $nomAjouter)
EndSwitch
WEnd
 

[Wardow]

Merci sa fonctionne parfaitement =)