Как в WebBrowser контрол организовать автоскроллинг?

[xenomorph]

Привет всем!

Я формирую ХТМЛ документ и скармливаю его в контрол.
Как сделать так чтобы контрол показывал не начало документа, его конец?
--
Заранее спасибо!

[GSerg]

Я воспользовался поиском и нашёл 3 темы, 3 из которых отвечают на поставленный вопрос.

[xenomorph]

2 GSerg

Торжественно клянусь:
а) гуглился.
б) 1 час ползал по ВБС.

Keywords в студию?
Линки?
--
Спасибо!

[GSerg]

Линк: http://bbs.vbstreets.ru/search.php
Keywords: w e b b r o w s e r AND s c r o l l

[xenomorph]

GSerg Ей богу Шаман - правда искал - перерыл КУЧУ ТОПИКОВ!!!
не нашёл - а тут блин с первого раза .

Я так не играю ... этот поиск для шаманов!
--
Впредь искать буду аккуратнее!
--
Спасибо!

[Dmitriy2003]

Уважаемые, вопрос сопутсвующий и чисто теоретический.

Есть код:

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


Private Function ReturnWindowClass(ByVal lHandle As Long) As String
    '
    Dim sBuff As String: sBuff = Space$(256)
    Dim iLen As Integer: iLen = GetClassName(lHandle, sBuff, 256)
    '
    ReturnWindowClass = Left(sBuff, iLen)
    '
End Function

Private Function ReturnIEWindow(ByVal lHandle As Long) As Long
    '
    Dim lTempHandle As Long: lTempHandle = GetWindow(lHandle, GW_CHILD)
    '
    Do
        lTempHandle = GetWindow(lTempHandle, GW_CHILD)
    Loop Until ReturnWindowClass(lTempHandle) = "Internet Explorer_Server" Or lTempHandle = 0
    '
    ReturnIEWindow = IIf(lTempHandle > 0, lTempHandle, False)
    '
End Function

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    '
    Dim ret As Long, IE_handle As Long, si As SCROLLINFO
    '
    With si
        .cbSize = LenB(si)
        .fMask = SIF_ALL
    End With
    '
    IE_handle = ReturnIEWindow(Me.hwnd)
    ret = GetScrollInfo(IE_handle, SB_VERT, si)
    '
    If ret > 0 Then
        MsgBox si.nMax & vbCrLf & si.nMin & vbCrLf & si.nPos
    Else
        MsgBox Err.LastDllError         '1447 - Das Fenster hat keine Bildlaufleisten.
        Call DestroyWindow(IE_handle)   'obwohl wir haben richtige Handle
    End If
    '
End Sub


Собственно ошибка 1447 - у окна нет полос прокрутки, (наглая лож! или ?) а где собака зарыта ?

[GSerg]

Суть вопроса непонятна.
Но есть мнение, что приведённый поиск автором выполнен не был.

[Dmitriy2003]

Но есть мнение, что приведённый поиск автором выполнен не был.

Дествительно в поиске имеется все необходимое для прокрутки окна wb.
я просто хотел узнать почему мой код выдает ошибку. GetScrollInfo + SB_VERT - теоретически получает параметы от окна со стандартной полосой прокрутки.

Может окно wb какое-то особенное ?
Или может мой код неправельй ?
А может таким образом вообще никода неполучить параметры ?
А может надо передавать SB_CTL и хендл scroollbar ?

собственно куда копать ?

[GSerg]

Ага, от окна со стандартной полосой прокрутки. Которая в текстбоксе, например. IE как бы ни при чём. Что разумно в общем. Там и кнопки просто нарисованы. А выглядят как кнопки. А просто нарисованы, и hwnd у них нет.

[Dmitriy2003]

Понял, Спасибо.