Webbrowser

4 réponses

Pierre Gard

19/12/2003 à 14:37

Bonjour,

A l'aide de l'objet webbrowser, j'affiche un fichier HTML qui se trouve sur
mon disque dans une applic VB6.

J'aimerai faire une recherche de texte dans le document affiché. Comment
exécuter cette recherche ?

d'avance merci
--

Pierre-André

4 réponses

François Picalausa

19/12/2003 à 16:05

"Pierre Gard" a écrit dans le
message de news:

Bonjour,

A l'aide de l'objet webbrowser, j'affiche un fichier HTML qui se
trouve sur mon disque dans une applic VB6.

J'aimerai faire une recherche de texte dans le document affiché.
Comment exécuter cette recherche ?

d'avance merci

Bonjour/soir,

Il existe une fontion findText s'appliquant à un objet textrange.

Pour obtenir un objet textrange:
WebBrowser.document.body.createTextRange

Références ici:
findText Method
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/findtext.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

Pierre Gard

19/12/2003 à 16:32

Merci. J'aimerai effectuer la même fonction que dans IE 6, c'est à dire
rechercher du texte dans le document et me positionner dessus.

--
Pierre-André

"François Picalausa" a écrit dans le message de
news:

"Pierre Gard" a écrit dans le
message de news:
> Bonjour,
>
> A l'aide de l'objet webbrowser, j'affiche un fichier HTML qui se
> trouve sur mon disque dans une applic VB6.
>
> J'aimerai faire une recherche de texte dans le document affiché.
> Comment exécuter cette recherche ?
>
> d'avance merci

Bonjour/soir,

Il existe une fontion findText s'appliquant à un objet textrange.

Pour obtenir un objet textrange:
WebBrowser.document.body.createTextRange

Références ici:
findText Method

http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/findtext.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

François Picalausa

19/12/2003 à 16:40

"Pierre Gard" a écrit dans le
message de news:%

Merci. J'aimerai effectuer la même fonction que dans IE 6, c'est à
dire rechercher du texte dans le document et me positionner dessus.

Bonjour/soir,

Méthode select de l'objet textrange.

voici un exemple (non testé):
Dim range As Object
Set range = WebBrowser.document.body.createTextRange();
r.findText("text here")
r.select()

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

Pierre Gard

20/12/2003 à 13:54

Merci, ça fonctionne

Voici le code final

Set vbRange = WebBrowser1.Document.Body.createTextRange
If vbRange.findText("montexte") = True Then
vbRange.scrollIntoView (False)
WebBrowser1.Document.Body.doScroll
WebBrowser1.Document.Body.Text = &H4000&
End If
Set vbRange = Nothing

--

Pierre-André

"François Picalausa" a écrit dans le message de
news:e$

"Pierre Gard" a écrit dans le
message de news:%
> Merci. J'aimerai effectuer la même fonction que dans IE 6, c'est à
> dire rechercher du texte dans le document et me positionner dessus.

Bonjour/soir,

Méthode select de l'objet textrange.

voici un exemple (non testé):
Dim range As Object
Set range = WebBrowser.document.body.createTextRange();
r.findText("text here")
r.select()

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

Webbrowser

4 réponses

Veuillez sélectionner un problème