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

名前

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

本文

scrollIntoView そのものは、
  http://www.millionwaves.com/200501110821.html
のように動作するハズです。(引数省略時は true の動作)

> しかし、TRUE を指定しても上端までスクロールしてくれませんでした。
問題の出ているコードを提示する事はできますか?
(少なくとも、こちらで試した限りでは期待動作しています)

Option Explicit

Private WithEvents Doc As HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate "http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200505/05050074.txt"
    Text1.Text = "2005/05/27(金) 22:32:53"
    Option1(0).Value = True
    Option1(0).Caption = "上合わせ"
    Option1(1).Caption = "下合わせ"
    Command1.Enabled = False
End Sub

Private Sub Command1_Click()
    If Doc Is Nothing Then Exit Sub
    
    Dim oRng As IHTMLTxtRange
    Set oRng = Doc.body.createTextRange()

If oRng.findText(Text1.Text) Then
        Dim toTop As Boolean
        toTop = Option1(0).Value
        oRng.scrollIntoView toTop
    End If
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Set Doc = Nothing
    Command1.Enabled = False
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set Doc = WebBrowser1.Document
    Command1.Enabled = True
End Sub

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

戻る