Discussion :

[Rpi78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patxy]

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.

[Rpi78]

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...

[Rpi78]

Lorsque l'on fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Rpi78]

J'ai trouvé une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Le code suivant marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

el_option.SetAttribute("selected", "")