Bonjour.

Apres quelques heures de recherche , je coince donc si vous avez une idee un grand merci.

Ce code :

IHTMLElement=WebBrowser1>>Document>>parentWindow>>event>>srcElement>>tagName

renvois l'erreur suivante :
//L'objet sur lequel on accède au membre srcElement n'est pas un objet Automation.

Ce meme code en VB fonctionne parfaitement !

Le but est de recuperer le tagName de l'element qui a ete clique dans une page Web.

Merci

Bonjour,

Sans avoir regarder ni testé il me semble que IHTMLElement est un objet automation alors que TagName ne l'est pas!

faite un simple Info(WebBrowser1>>Document>>parentWindow>>event>>srcElement>>tagName)
pour voir si j'ai pas tors.

Bonjour,

Meme combat avec info()
L'objet sur lequel on accède au membre srcElement n'est pas un objet Automation.

La grande difference de code entre windev et VB est :

en VB je vais ajouter la reference : Microsoft HTML Object Library (MSHTML.TLB)

puis declarer
Dim Objet As IHTMLElement
Set Objet=WebBrowser1.Document.parentWindow.event.srcElement.tagName

en WD je ne rajoutes pas la reference MSHTML.TLB parceque je ne vois pas comment le faire et il me sembles qu'il n'y a pas besoin mais c'est peut etre la mon erreur ...

et ensuite :
IHTMLElement est un objet OLE dynamique


Donc voila.

Bonjour,

Je rencontre un probleme avec la ligne de code
Citation :
J'ai tenté sous VB6 via l'activeX WebBrowser et via la référence Microsoft Internet Controls mais je n'arrive pas à trouver le membre parentWindow dans l'une des deux bibliotheques !.

Avez vous un exemple en VB fonctionnel afin de pouvoir tenter la traduction ?

Bonjour drcharly93,

Oui mon exemple etait un petit peut court pour le traduire voici en VB :

Ajouter la reference Microsoft HTML Object Library (MSHTML.TLB) et le composant Microsoft Internet Controls (SHDOCVW.DLL)

Dans la form, ajouter un control Webbrowser.
Declarer dans la form un objet de type HTMLDocument

Dim WithEvents Mydocument as HTMLDocument

Au chargement de la form, charger une page HTML

MyBrowser.Navigate "sample.htm" (avec un champ INPUT et un lien Hypertexte)


Private Sub MyBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next
Set Mydocument = MyBrowser.Document

End Sub



Private Function Mydocument_onclick() As Boolean

Dim ObjectHTML As IHTMLElement
Set ObjectHTML = Mydocument.parentWindow.event.srcElement

Select Case ObjectHTML.tagName
Case "INPUT"
MsgBox "INPUT"

Case "A"
Msgbox "lien hypertexte"
End Select

End Function


Merci pour l'aide.

Bonjour,

Citation :

Vous n'avez pas reussi a tester ou pas trouve, de mon cote en Windev rien de nouveau, il a fallu "contourner" pour l'instant

Amicalement

Bonjour,

Résultat de mes recherches:



Initialisation de l'activeX


//Evènement Download_complete


//Procédure sur évenement onclik


malheureusement l'evenement onclik n'est pas déclenché par la fonction:
AutomationEvénement(DocumentOnClick,MyDocument,"onclick")
Pourtant le code semble correct et cohérent

il faut à mon avis faire une demande ausupport technique!!!

Pas encore vu fonctionner la fonction AutomationEvènement
Si quelqu'un à un exemplepour voir, je suis interressé.

Bonjour,

Citation :

pour le onclick il suffit de declarer l'evenement suivant :
Evénement("mdocDocument_onclick1", "WebBrowser1",WM_LBUTTONDOWN)

la procedure va bien ce declencher mais tjrs avec l'erreur :

"L'objet sur lequel on appelle la méthode srcElement n'est pas un objet Automation"

Concernant AutomationEvènement je penses, car pas teste que cela devrait permettre de detecter les evenements par exemple quand ont pilote IE en OLE et non pas sur un ActiveX, a voir ...

Bon Merci quand meme.
Amicalement

Bonjour,

Dans ce cas la procedure DocumentOnClick devient: