Probleme avec MSHTML

Version imprimable

Bonjour a tous, :)

j'ai crée un nouveau projet VB6 en incorporant :

"Microsoft HTML Object Library" et
"Microsoft Internet Controls"

j'ai mis un control "WebBrowser" sur ma feuille, et au demarrage du
programme, je charge dans celui-ci un fichier HTML, dans lequel
il y a ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 <HTML> <HEAD> <TITLE>Titre</TITLE> </HEAD> <body> <a href="http://www.developpez.net">lien1</a> <a href="http://www.developpez.net">lien2</a> <a href="http://www.developpez.net">lien3</a> </BODY> </HTML>
J'aimerais pouvoir dans mon programme, recuperer la destination du lien
a partir du "WebBrowser" en le selectionnant avec la souris (selection
en bleu). Je selectionne donc le lien sur la page, et avec un bouton
j'essai de faire ceci :
Code:

1 2 3 4 5 6 7 8 9 Dim html As HTMLDocument Dim lien As HTMLLinkElement Dim a$ Set html = WebBrowser1.Document Set lien = html.activeElement a$ = lien.getAttribute("href")
mais il me mets : "Invalid use of Null" :cry:

une chose curieuse, si je remplace la derniere ligne par :
Code:

1 2 a$ = lien.innerText
a$ est egal a : "lien1 lien2 lien3"

j'en conclu que "activeElement" ne me renvoi pas l'element selectionné.

31/12/2007, 15h36
zazaraignée

Salut

As-tu essayé de récupérer l'élément par son identifiant ou son nom (attribut id ou name de l'élément)? Désolée de n'avoir pas d'exemple à te proposer. Je fais ce genre de manipulation habituellement avec JavaScript. Je n'ai jamais fait en VB.
31/12/2007, 15h51
bubu92

Merci zazaraignée pour ta reponse :)

mais..non. J'ai pas essayé. Et je veux pas. Parce que les liens
dans les pages n'ont pas tous une proprieté "Id" ou "Name" :? donc...
Il faut que je puisse identifier un lien dans la page sans pouvoir me
tromper, meme si les texte et les href sont identiques, mais sans
utiliser les proprietés "Name" ou "Id", qui bien sur, m'aurait permis d'y arriver.
Il suffit pour cela que je puisse recuperer l'objet qui identifie de maniere
unique le lien. Objet ou autres chose :). Et il faut que je puisse le faire
en le selectionnant dans la page. C'est pas compliqué c'que j'demande !
non ? :)
31/12/2007, 16h05
zazaraignée

L'autre idée qui me vient est aussi issue de la culture JavaScript (ou VBScript) qui consiste à consulter le tableau des éléments a (hyperliens). Je ne suis pas chez moi (en vacance chez mes parents) alors, je n'ai pas mes ressources habituelles. Je crois cependant que tu pourrais trouver des exemples sur le forum et la faq VBScript. Ça pourra peut-être t'aider.

[Edit] Regarde aussi sur la section développement Web du site et du forum.
31/12/2007, 17h55
bubu92

Merci pour ton idée, mais j'y ai deja pensé :)
je sais comment passer en revu les liens d'une page, mais quand j'ai
justement, 2 liens avec le meme Text et le meme href, comment je
fait pour les differencier ??!! :?
Le mieux c'est de pouvoir operer sur la selection faites dans le Browser.

J'ai reussi a faire ça, mais je n'suis pas sur de moi, dans le sens
ou je n'sais pas si j'arriverais toujours a choper la balise "A" avec
"parentElement"...
j'ai d'ailleurs du utliser "parent.parent" dans le cas ou le lien se
trouve dans une image, car il renvoi "IMG".
Si vous trouvez plus efficace...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim html As HTMLDocument Dim txtrange As IHTMLTxtRange Dim a Set html = WebBrowser1.Document a = html.selection.Type If a <> "Control" Then Set txtrange = html.selection.createRange If txtrange.parentElement.tagName = "A" Then MsgBox txtrange.parentElement.getAttribute("href") ElseIf txtrange.parentElement.parentElement.tagName = "A" Then MsgBox txtrange.parentElement.parentElement.getAttribute("href") End If End If