Does anyone know if it is possible to replicate the 'Find text on this Page'
facility common with browsers such as IE, using the Web Browser control in
VB please ?

--
David Bytheway

I have the source for a small demo app which includes this functionality.
The details are:-

    WbrContext.zip (2,171 bytes; Win98; Vb6 Pro SP3; Ie5)

If you would like me to send it to you, please e-mail me direct. No strings
attached.

Barry Evans
Canberra, Australia
---

Does anyone know if it is possible to replicate the 'Find text on this Page'
facility common with browsers such as IE, using the Web Browser control in
VB please ?

--
David Bytheway

Here is what I have done to implement a basic find/find next dialog
(findFirst is just a boolean to determine if this is the first time the user has
clcicked on the find button. If this example isn't

If findFirst Then
        Set oRange =
M_frmViewMessage.brwWebBrowser.Document.Body.createTextRange
        sSearch = findText.text
        If oRange.findText(sSearch) Then
           oRange.Select
           findButton.Caption = "Find Next"
           findFirst = False
        Else
           MsgBox ("Search string " & findText.text & " not found.")
        End If
    Else
        Call oRange.Move("word")
        sSearch = findText.text
        If oRange.findText(sSearch) Then
            oRange.Select
        Else
            MsgBox ("Finished searching mail message for string " &
findText.text)
        End If
    End If

Jamie

I would need it though

--

Daniel Caron
Consultation Informatique Daniel Caron