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:
Merci par avance pour votre aide
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
J'utilise vb.net dans visual studio 2013 avec net framework 4.5
Cordialement
Partager