probleme avec une combobox

Question

bonjour, j'ai un petit problème avec une combobox. Dans ma combobox je veux afficher plusieurs phrases (ca j'y arrive). suivant la selection de la phrase j'attribue une valeur une variable. je vais faire l'exemple en pseudo language cela sera plus simple :

ma combobox s'appelle renseignement

si renseignement = je pars en voiture alors
   coeff = 0.12
si renseignement = je pars à pied alors 
   coeff = 0.23
si renseignement = je pars en avion alors
   coeff = 0.4567
etc ..

merci beaucoup. bonne journée

cs_DARKSIDIOUS · Answer

Il suffit de tester la propriété Text de ton combo :

If Renseignement.Text = "Je pars en voiture" then

coeff = 0.12

ElseIf renseignement.text = "je pars à pied" then

coeff = 0.23

else

coeff = 0.4567

endif

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_DARKSIDIOUS · Answer

Il suffit de tester la propriété Text de ton combo :

If Renseignement.Text = "Je pars en voiture" then

coeff = 0.12

ElseIf renseignement.text = "je pars à pied" then

coeff = 0.23

else

coeff = 0.4567

endif

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

crenaud76 · Answer

Ou alors utilsies la propriété ItemData !!!
Cela te permet d'affecter une valeur à chaque valeur de la list de la combo.
Tu récupère la valeur correspondante au choix dans la combo par :
ItemData = Combo1.ItemData(Combo1.ListIndex)

Christophe R.

cs_michelc · Answer

L'idée de christophe aurai put être bonne si itemdata pouvait retourner un réel mais ce n'est pas le cas.

Par contre tu peux utiliser ceci:

   pour l'initialisation de ton Combo

    with renseignement
       .clear      

       .AddItem "je pars en voiture alors"
       .ItemData(.NewIndex) = 1

       .AddItem "je pars à pied alors"
       .ItemData(.NewIndex) = 2

       .AddItem "je pars en avion alors"
       .ItemData(.NewIndex) = 3

       ....
    end with

et pour la lecture:
 coeff=choose(renseignement.ItemData(renseignement.NewIndex),0.12,0.23,0.4567,....)

J'espère que cela pourra t'aider

cs_michelc · Answer

Oups,

à la fin faut lire :

coeff=choose(renseignement.ItemData(renseignement.ListIndex),0.12,0.23,0.4567,....)

Sorry!!!!

crenaud76 · Answer

Mea Culpa !!!!

Christophe R.

Probleme avec une combobox

6 réponses

Discussions similaires