Блог

Главная - Вопросы по программированию - vbscript как принудительно заблокировать полосы прокрутки IE снизу

vbscript как принудительно заблокировать полосы прокрутки IE снизу

#internet-explorer #vbscript #scrollbar

#internet-explorer #vbscript #полоса прокрутки

Вопрос:

Я использую IE как форму для предоставления обратной связи о запущенных процессах. По мере обновления процессов они в конечном итоге выходят за пределы размера окна. Я хочу, чтобы произошло то, что окно IE будет фиксироваться на нижней части страницы, а не на верхней, поэтому при отображении данных оно прокручивается вниз — почти как «хвостовая» функция

Это то, что я использую для создания окна IE, в которое я загружаю данные

 Sub ExplorerWindow(strStage)

        Set objExplorer = WScript.CreateObject("InternetExplorer.Application","IE_")

        objExplorer.Navigate "about:blank"
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width = 600
        objExplorer.Height = 700
        objExplorer.Left = 350
        objExplorer.Top = 100
        objExplorer.Visible = 1

        Do While (objExplorer.Busy)
        Loop

        Set ObjDoc = objExplorer.Document

        ObjDoc.Open
        ObjDoc.Writeln "<html><h1><center>DO NOT TOUCH THE KEYBOARD OR MOUSE</center></h1>"
        objDoc.Writeln "<body bgcolor='white'>"
        objDoc.Writeln "<font face='Lucida Console,Courier,mono'>"
        objDoc.body.style.cursor = "wait"

        strDescription = "Stage " amp; strStage

        objDoc.Writeln "<h1>" amp; strDescription amp; "</h1><hr>"
        Call LogTheEvent(b2k, strDescription)
End Sub

Ответ №1:

Я понял это. Когда я записываю данные в форму, которую я использую

 objDoc.Writeln <Data Here>

Теперь я просто добавляю следующую строку в последовательность

 objDoc.Body.scrollTop = objDoc.Body.scrollTop   objDoc.Body.scrollHeight