コミュニティでの活動の履歴として、自身(Orator/魔界の仮面弁士)が掲示板・Mailing List・Newsgroup等へ発言した内容の中で、再利用できそうな物を拾い出して、掲載しています。

« 1999年10月 | Main | 2002年07月 »
[VB6] WebBrowser内の検索 / 2000年06月05日(月)

MSDNの検索機能のように、見つかった単語の背景色を変更させています。


[06/30/2000]D.Free([VB-ML:05476])

Private Sub Command1_Click()
	Dim Doc As Object		'MSHTML.HTMLDocument
	Dim Body As Object		'MSHTML.HTMLBody
	Dim objRange As Object	'MSHTML.IHTMLTxtRange
	Dim BMK As String

	'検索文字列を入れておいてください。
	If Len(Text1.Text) = 0 Then Exit Sub

	Set Doc = WebBrowser1.Document
	Set Body = Doc.Body
	Set objRange = Body.createTextRange

	'≫≫≫≫≫ 検索開始
	Do While objRange.findText(Text1.Text)
		'最初に見つかった位置を保存しておきます。
		If Len(BMK) = 0 Then BMK = objRange.getBookmark

		'検索した語句を黄色く反転させる。
		objRange.execCommand "BackColor", False, "YELLOW"

		'論理カーソル位置を、検索した語句の末尾に移動させる。
		objRange.collapse False
	Loop
	'≪≪≪≪≪ 検索終了

	'ついでに、最初に見つけた語句の位置までスクロールさせています。
	If Len(BMK) Then
		objRange.moveToBookmark BMK
		objRange.scrollIntoView
	End If

	'最後は一応、後始末を。
	Set objRange = Nothing
	Set Body = Nothing
	Set Doc = Nothing
End Sub

 
Posted at 15:32 / Visual Basic / この記事のURL
コメント(0)
P R

Microsoft Most Valuable Professional, Visual Developer - Visual BasicMSMVP for Visual Basic


Global Media Online INC.