Bonjour, j'essaie de faire une appli de recherche de texte dans un Web browser.
Jusqu'ici tout va bien, les problèmes interviennent au niveau des résultats.
j'obtient :
L'exception System.Runtime.InteropServices.COMException s'est produite
ErrorCode=-2146827682
HResult=-2146827682
Message=Exception de HRESULT : 0x800A025E
InnerException:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function FindNext(ByVal text As String, ByVal webBrowser1 As WebBrowser) As Boolean
        Dim doc As IHTMLDocument2 = CType(Form1.WebBrowser1.Document.DomDocument, IHTMLDocument2)
        Dim sel As IHTMLSelectionObject = doc.selection
        Dim rng As IHTMLTxtRange = CType(sel.createRange, IHTMLTxtRange)
        rng.collapse(False)
        If rng.findText(text, 1000000, 0) Then
            rng.select() 'Le code qui bloque
            Return True 
        Else
            FindFirst(text, Form1.WebBrowser1)
        End If
        Return False
    End Function
Merci par avance pour votre aide
J'utilise vb.net dans visual studio 2013 avec net framework 4.5

Cordialement