WebBrowser

[Sirik]

Как после загрузки страницы в компонент прокоролить в самый низ?

[marvan]

Код: Выделить всё

Dim mDoc As MSHTML.IHTMLDocument
Set mDoc = Form_frmMain.WebBrowser.Document
y = mDoc.parentWindow.scroll(0, mDoc.Body.scrollHeight)

[Sirik]

2 marvan

Сылочка на MSHTML.IHTMLDocument как называется? Не могу найти

[marvan]

Microsoft HTML Object Library
но можно обойтись без него

Код: Выделить всё

    With Form_frmMain.WebBrowser.Document
        .parentWindow.scroll 0, .Body.scrollHeight
    End With


[Sirik]

Да не работает ни фига

[marvan]

этот код у меня таботает
'на форме WebBrowser1
Private Sub Form_Load()
    For i = 1 To 100
        s = s & "<P> строка " & i & "</P>"
    Next
    
    WebBrowser1.Navigate "about:blanc"
    While WebBrowser1.Document Is Nothing
        DoEvents
    Wend
    With WebBrowser1.Document
        .write s
        Do
            DoEvents
        Loop Until Not WebBrowser1.Busy
        .parentWindow.Scroll 0, .Body.scrollHeight
    End With
End Sub

Как отформатирован этот код?

[tyomitch]

    WebBrowser1.Navigate "about:blanc"

Стыд и позор! Слово blank написать не могут правильно!

[marvan]

2tyomitch
пофигу! код всё равно работает. даже так: WebBrowser1.Navigate "about:tyomitch"