Webブラウザコントロールでオブジェクトをウィンドウの上端までスクロールさせて表示させるには？ (ID:101271)

名前

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

本文

魔界の仮面弁士さん、ご回答有り難うございます。
いつも勉強させていただいております。

ご提示いただいたサンプルコードを早速試させて頂きましたが、私の環境では、オプションボタンを「上合わせ」にしても「下合わせ」にしても、下端に表示されました。
環境は「WinXP、VB5、IE6」です。

私の場合、
http://madia.world.coocan.jp/vb/vb_bbs/200505/200505_05050074.html
ここの、魔界の仮面弁士さんのコードを、ほとんどそのまま既存のIE用にしたものですが、それでも下端に表示されます。

objRange.scrollIntoView True 
この行に True を加えただけです。False に指定しても下端に表示されました。

Private WithEvents Doc As HTMLDocument
Dim IE As Object

Private Sub Form_Load()
    Text1.Text = "2005/05/27(金) 22:32:53"
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate2 "http://madia.world.coocan.jp/vb/vb_bbs/200505/200505_05050074.html"
    IE.Visible = True
End Sub

Private Sub Command1_Click()

If IE Is Nothing Then Exit Sub
    
    Dim Doc As Object       'MSHTML.HTMLDocument
    Dim Body As Object      'MSHTML.HTMLBody
    Dim objRange As Object  'MSHTML.IHTMLTxtRange
    Dim BMK As String
    'Dim L As Long

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

'≫≫≫≫≫ 検索開始
    'For L = 0 To 255
    '   If objRange.findText(Text1.Text) = False Then Exit For
    Do While objRange.findText(Text1.Text)
        '最初に見つかった位置を保存しておきます。
        If Len(BMK) = 0 Then BMK = objRange.getBookmark
        
        '検索した語句を黄色く反転させる。
        objRange.execCommand "BackColor", False, "YELLOW"
        
        '論理カーソル位置を、検索した語句の末尾に移動させる。
        objRange.collapse False
    Loop
    'Next L
    '≪≪≪≪≪ 検索終了

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

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

どうかご指導のほどよろしくお願いいたします。

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

戻る