Probleme avec MSHTML

**bubu92** · 31/12/2007, 15h23

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é.

**zazaraignée** · 31/12/2007, 15h36

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.

**bubu92** · 31/12/2007, 15h51

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 ?

**zazaraignée** · 31/12/2007, 16h05

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.

**bubu92** · 31/12/2007, 17h55

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.

**bubu92** · 02/01/2008, 00h15

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 :

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

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

Probleme avec MSHTML

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager