Selectionner un ou plusieurs items d'un menu déroulant à choix multiple via VB

Bonjour à tous,

je rencontre un problème pour sélectionner un ou plusieurs items d'un menu déroulant à choix multiple via du code VB. Ce menu déroulant fait parti d'un formulaire internet. J'espère que quelqu'un pourra me donner la solution.

Le menu déroulant à choix multiple est de la forme :


Menu déroulant :

Code:

---

1 2 3 4 5 6 7 8 9

<select name="couleur[]" id="vos_couleurs" multiple="multiple"> <option value="1">noirs</option> <option value="2">marrons</option> <option value="3">noisettes</option> <option value="4">bleus</option> <option value="5">verts</option> <option value="6">gris</option> </select>

---

Comment peut-on sélectionner un ou plusieurs items sur le formulaire internet ?
Dans mon code VB, j'utilise un webbrowser pour modéliser la page internet.

Je vous remercie d'avance.

Citation:

---

Envoyé par Rpi78

Comment peut-on cocher plusieurs options sur le formulaire internet ?

---

Bonjour, normalement, si tu maintiens la touche ctrl enfoncée, ça doit fonctionner. A moins que ton browser ne le permette pas.

Bonjour Patxy,

je m'étais peut être mal exprimé dans mon explication, il s'agit de cocher plusieurs options via du code Visual Basic et non à l'aide du clavier ou de la souris...

Lorsque l'on fait :

Code:

---

1 2 3 4

WebBrowser.Document.All("couleur[]").Value = 1 WebBrowser.Document.All("couleur[]").Value = 2 WebBrowser.Document.All("couleur[]").Value = 3

---

Seul la dernière option est retenue.
En effet, on écrase les valeurs précédentes. Il faudrait pouvoir faire intervenir une notion de numéro d'items dans le code.

De la forme :

Code:

---

1 2	WebBrowser.Document.All("couleur[]")<référence à un numéro d item> = true

---

WebBrowser.Document.All("couleur[]")..... = true

J'ai trouvé une solution :

Code:

---

1 2 3 4 5

For Each el_option As Object In WebBrowser.Document.GetElementById("vos_couleurs").GetElementsByTagName("option") If el_option.InnerText = "bleus" Then el_option.SetAttribute("selected", "true") End If Next

---

Pour décocher le code suivant semble ne pas marcher (???)

Code:

---

el_option.SetAttribute("selected", "false")

---

Le code suivant marche :

Code:

---

el_option.SetAttribute("selected", "")

---