WEBBROSER VB6 htmlelement evenement click

Signaler
Messages postés
29
Date d'inscription
dimanche 8 juillet 2007
Statut
Membre
Dernière intervention
8 mars 2013
-
Bonjour

J'utilise un webbroser en VB6 pour piloter la page web suivante http://www.vbfrance.com/livres/livre_liste.aspx

j' arrive a charger la page dans mon projet et à donner le focus à la liste déroulante à coté du textbox trouver un cote source.
j'aimerai cliquer dans la cinquieme option de cette liste
j'ai essayé ce qui suit mais sans succès
Private WithEvents moInputSearch11 As HTMLSelectElement
Dim oDoc1 As HTMLDocument
Set oDoc1 = OUVERTURE.WebBrowser1.Document


Set moInputSearch11 = oDoc1.getElementById("m_UCTabsHome1_DropSearch")

moInputSearch11.Focus

If moInputSearch11.getAttribute("value") = "blog" Then

moInputSearch11.Click
End If

Dim curElement As IHTMLElement

For Each curElement In moInputSearch11
If curElement.getAttribute("value") = "blog" Then
curElement.Click 'or may be some other action that needs to be done here


End If
Next

pouvez vous m'aider merci