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

名前

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

本文

VB2005とAxWebBrowserを使用してちょっとしたブラウザを作成しています。

テキストボックスに検索文字を入力し、検索ボタンをクリックすると、
AxWebBrowserに表示されているページ上で見つかった検索語句をハイライトし、
最初に見つかった位置までスクロールするというところはできたのですが、
再度、検索ボタンを押すと、ハイライトされた語句をハイライトなしに戻す
というところがうまくできません。
どのように修正したら良いのかアドバイス頂けたら幸いです。

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 = txtSearchWrod.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
		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
		'Object' から 'System.Collections.IEnumerable' への暗黙的な変換です。↓というエラーがでます。
		For Each he As HtmlElement In AxWebBrowser.Document.GetElementsByTagName("SPAN")
			If (he.GetAttribute("className").Equals(className)) Then he.OuterHtml = he.InnerHtml
		Next
	End If
	blnHighlight = Not blnHighlight
End If

また、ページを表示させるときに、キャッシュを読み込んでしまい、
古い情報が表示されることがあるのですが、キャッシュを読み込まずに、
常にサーバーから取得する方法はありますでしょうか？

Private Const navNoHistory As Integer = &H2

AxWebBrowser.Navigate(strUrl, navNoHistory, vbNullString, vbNullString, vbNullString)

としていますが、キャッシュを読み込んでしまいます。

以上、宜しくお願い致しますm(_ _)m

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

戻る