AxWebBrowserのページ検索とキャッシュを読み込まないようにするには？ (ID:138389)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Hongliangさん、レスありがとうございました。

検索語句のハイライトON/OFFの件については、
何とか自己解決できましたので報告いたします。

Private Sub btnSearchWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchWord.Click
    Static Dim blnHighlight As Boolean = True
    Dim key As String = txtSearchWord.Text

If key = vbNullString Then Exit Sub
    Dim className As String = "keyword: " & key
    Dim spanStart As String = "<SPAN class=" & Chr(34) & className & Chr(34) & " style=" & Chr(34) & "background-color: #FFFF63" & Chr(34) & ">"
    Dim spanEnd As String = "</SPAN>"
    If blnHighlight Then
        '検索語句ハイライトON
        Dim doc As mshtml.IHTMLDocument2 = DirectCast(AxWebBrowser.Document, mshtml.IHTMLDocument2)
        Dim body As mshtml.IHTMLBodyElement = DirectCast(doc.body, mshtml.IHTMLBodyElement)
        Dim range As mshtml.IHTMLTxtRange = DirectCast(body.createTextRange(), mshtml.IHTMLTxtRange)
        Dim blnFoundFirst As Boolean = True
        Dim BMK As String = vbNullString
        While (range.findText(key, 1, 0))
            range.pasteHTML(spanStart & range.htmlText & spanEnd)
            If blnFoundFirst Then
                '最初に見つかった位置を保存しておきます。
                If Len(BMK) = 0 Then BMK = range.getBookmark
                range.moveToBookmark(BMK)
                range.scrollIntoView()
                blnFoundFirst = False
            End If
        End While
        doc = Nothing
        body = Nothing
        range = Nothing
    Else
        '検索語句ハイライトOFF
        Dim doc As mshtml.IHTMLDocument3 = DirectCast(AxWebBrowser.Document, mshtml.IHTMLDocument3)
        Dim docelems As mshtml.IHTMLElementCollection = doc.getElementsByTagName("SPAN")
        For Each HtmlElement As mshtml.IHTMLElement In docelems
            If (HtmlElement.getAttribute("className").Equals(className)) Then HtmlElement.outerHTML = HtmlElement.innerHTML
        Next
        doc = Nothing
        docelems = Nothing
    End If
    blnHighlight = Not blnHighlight
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る