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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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"

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
a$ = lien.innerText
a$ est egal a : "lien1 lien2 lien3"

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