[..] Combobox qui crée une combobox

[fab31]

Bonjour à tous,

Je souhaiterais savoir comment on peux peux crée une combobox suivant la valeur que l'on a sélectionné sur une combobox.
J'ai réalisé la 1ere combo avec Koda mais apres je n'arrive pas à imbriquer la 2ème en fonction de la valeur choisi.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### 
Global $Form2 = GUICreate("Humi", 624, 492, 936, 191)
GUISetIcon("D:\005.ico")
Global $PageControl1 = GUICtrlCreateTab(8, 8, 588, 400)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
Global $TabSheet1 = GUICtrlCreateTabItem("Paramètre système")
Global $Group5 = GUICtrlCreateGroup("Lecture Paramètre", 32, 64, 537, 153)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Global $Combo41= GUICtrlCreateCombo("Sélection", 286, 109, 217, 25)
GUICtrlSetData(-1, "A4-Arret|D1-Ventillation|D4-Alimentation|D5-Temps de travail")
Global $Label17 = GUICtrlCreateLabel("Sélection du paramètre à visualiser:", 104, 109, 171, 17)


Global $Choisir = GUICtrlRead($Combo41)
If $Choisir = "A4-Arret" Then
 $Input411 = GUICtrlCreateInput("", 231, 154, 34, 17)
Endif

Global $Label18 = GUICtrlCreateLabel("Paramètre sélectionnée : ", 104, 154, 124, 17)
Global $Button5 = GUICtrlCreateButton("Lire", 425, 174, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group6 = GUICtrlCreateGroup("Modification Paramètre", 32, 232, 537, 153)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Global $Label20 = GUICtrlCreateLabel("Sélection du paramètre à modifier :", 104, 277, 167, 17)
Global $Button6 = GUICtrlCreateButton("Modifier", 425, 342, 75, 25, $WS_GROUP)
Global $Label21 = GUICtrlCreateLabel("Valeur paramètre : ", 104, 322, 93, 17)
Global $Label22 = GUICtrlCreateLabel("Valeur", 201, 322, 34, 17)
GUICtrlCreateCombo("Sélection", 286, 277, 217, 25)
GUICtrlSetData(-1, "A4-Arret|D1-Ventillation|D4-Alimentation|D5-Temps de travail")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
Global $Label3 = GUICtrlCreateLabel("Etat du système : ", 104, 40, 88, 17)
Global $Label4 = GUICtrlCreateLabel("Erreur : ", 344, 40, 41, 17)
Global $Label1 = GUICtrlCreateLabel("Valeur état", 198, 40, 55, 17)
Global $Label11 = GUICtrlCreateLabel("Valeur état", 391, 40, 55, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


EndSwitch
WEnd
 

j'ai essayer de faire avec un If mais sans succès.
J'espère que je suis assez clair dans ma demande.

Merci d'avance
Fabien

[Hugues]

Salut, un exemple rapide (pas forcement le meilleur):

► Afficher le texte

Code : Tout sélectionner

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
_First()

Func _First()

    Global $Form2 = GUICreate("Humi", 624, 492, 936, 191)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    Global $Combo41= GUICtrlCreateCombo("Sélection", 286, 109, 217, 25)
    GUICtrlSetData(-1, "A4-Arret|D1-Ventilation|D4-Alimentation|D5-Temps de travail")
    GUICtrlSetOnEvent(-1, "_Load2ndComBoBox")

    Global $Choisir = GUICtrlRead($Combo41)
    If $Choisir = "A4-Arret" Then
     $Input411 = GUICtrlCreateInput("", 231, 154, 34, 17)
    Endif


    Global $2ndCombo = GUICtrlCreateCombo("", 286, 277, 217, 25)


    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit


    EndSwitch
    WEnd
EndFunc

Func _Load2ndComBoBox()
    
    $vCombo41 = GUICtrlRead($Combo41)

    Select
        Case $vCombo41 = "Sélection"
            GUICtrlRead($2ndCombo, "")
            Return
        Case $vCombo41 = "A4-Arret"
            GUICtrlSetData($2ndCombo, "")
            GUICtrlSetData($2ndCombo, "Choix Arrêt 1|Choix  Arrêt 2")
        Case $vCombo41 = "D1-Ventilation"
            GUICtrlSetData($2ndCombo, "")
            GUICtrlSetData($2ndCombo, "Choix Ventilation 1|Choix  Ventilation 2")
        Case $vCombo41 = "D4-Alimentation"
            GUICtrlSetData($2ndCombo, "")
            GUICtrlSetData($2ndCombo, "Choix Alimentation 1|Choix  Alimentation 2")
        Case $vCombo41 = "D5-Temps de travail"
            GUICtrlSetData($2ndCombo, "")
            GUICtrlSetData($2ndCombo, "Choix Temps de travail 1|Choix  Temps de travail 2")
    EndSelect

EndFunc

Func _Exit()
    Exit
EndFunc