Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Browser Steuerelement
Autor: Matfi
Datum: 30.05.06 23:12
Danke Dieter für deine schnelle Antwort, doch mir ist schon klar das ich mit dem SendKey die Internet Browser Suche aufrufen kann! Diese Suche hilft mir nur wenig da Sie nur Deutsche Wörter suchen kann. Die Suche die ich benötige muß auch Fremdwörter, wie zb. Thailändisch suchen können. Bei meinen Programm handelt es sich um ein Deutsch Lernprogramm ! Ich habe es auch schon mit dem WebPageContains versucht, bis zu einen gewissen Punkt wo ich einfach nicht weiter komme! Hier der Code: ----------------------------- Private Sub Command1_Click() If WebPageContains( _ Text1.text) = True Then MsgBox "The webpage contains the text" (Bis hier her funktioniert alles! Und genau ab hier sollte mir im Document der gefundene Text selektiert angezeigt werden und das Document zum gefundenen Text scrollen! Leider komm ich hier nicht weiter!!!) End If End Sub --------------------------- Private Function WebPageContains(ByVal s As String) As Boolean Dim i As Long, HTMLElement For i = 1 To brwWebBrowser1.Document.All.length Set HTMLElement = _ brwWebBrowser1.Document.All.Item(i) If Not (HTMLElement Is Nothing) Then If InStr(1, HTMLElement.innerHTML, _ s, vbTextCompare) > 0 Then WebPageContains = True Exit Function End If End If ----------------------------------- Vieleicht weiß hier noch jemand eine andere Lösung!!

Browser Steuerelement	1.115	Matfi	29.05.06 23:28
Re: Browser Steuerelement	679	Dieter	30.05.06 11:46
Re: Browser Steuerelement	704	Matfi	30.05.06 23:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen