Discussion :

[mchurlet]

Bonjour,

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

Code :

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

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 :

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

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

[mchurlet]

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 :

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

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.