Liste déroulante en page html (VB.NET)

Bonjour,

Je manipulais une liste déroulante d'une page web en VB6 avec le code suivant.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim HTML_DM 'As HTMLFormElement Dim HTML_DA 'As HTMLFormElement Dim HTML_Btn 'As HTMLFormElement 'HTMLButtonElement   Set HTML_DM = Doc.getElementsByName("mois") Set HTML_DA = Doc.getElementsByName("annee") Set HTML_Btn = Doc.getElementById("bouton-ok")   HTML_DJ.Item(0).Value = "22" HTML_DM.Item(0).Value = "03" HTML_DA.Item(0).Value = "1970"

---

Comment le traduire en VB.NET ?

J'ai essayé :

Code:

---

1 2 3

Dim HTML_Elements As HtmlElementCollection HTML_Elements = Doc.All.GetElementsByName("jour") HTML_Elements(0).InnerText = "22"

---

Etc...

Mais ça ne marche pas.
Ça marche pour un champs texte.

Merci si vous pouvez m'aider.
J'y ai passé des heures et je n'ai pas trouvé d'exemple.

La propriété innerHTML est :

" <OPTION selected value="">Jour</OPTION> <OPTION value=01>1</OPTION><OPTION value=02>2</OPTION><OPTION value=03>3</OPTION><OPTION value=04>4</OPTION><OPTION value=05>5.. etc

J'ai enfin trouvé.
Voici la solution pour entrer les valeurs 28 03 1960 dans trois listes déroulantes de ma page Web chargée dans un control Web WB1

Code:

---

1 2 3 4 5 6

CC = WB1.Document.All.GetElementsByName("jour").Item(0).OuterHtml WB1.Document.All.GetElementsByName("jour").Item(0).OuterHtml = Replace(CC, "<OPTION value=28>", "<OPTION selected value=28>") CC = WB1.Document.All.GetElementsByName("mois").Item(0).OuterHtml WB1.Document.All.GetElementsByName("mois").Item(0).OuterHtml = Replace(CC, "<OPTION value=03>", "<OPTION selected value=03>") CC = WB1.Document.All.GetElementsByName("annee").Item(0).OuterHtml WB1.Document.All.GetElementsByName("annee").Item(0).OuterHtml = Replace(CC, "<OPTION value=1960>", "<OPTION selected value=1960>")

---

Mon erreur était de vouloir modifier la propriété innerHtml alors qu'il fallait modifier la propriété OuterHtml
Le mot clef Item semble optionnel mais je l'ai mis car ça me parait plus propre.