webbrouser возможно ли запомнить место на странице и перейти

[tunduk]

Доброго времени суток.

Не подскажете возможно ли:
А) запомнить на каком месте хтмл-ки остановился webbrouser
Б) отлистать автоматически вебстраничку до запомненного места

И если вдруг это возможно то где глянуть примерчики.

Спасибо.

[Хакер]

Дай определение понятию «место».

[tunduk]

грубо говоря 200 строк текста, бегунок стоит так что я в средине на 100 -ой
можно ли потом автоматически (программно) отлистать до 100-ой
или запомнить/заставить перейти WB к конретному положению его полосы прокрутки

[hclubmk]

то где глянуть примерчики

[tunduk]

спасибо
... выглядит страшно ... это видимо ява скрипт... теперь наверное придется спрашивать как из VB его выполнить... 8О

охохонюшки.

[Хакер]

пытаюсь рыться в интернете ...

правильно ли я понял что в просматриваемую страницу я должен добавить скрипты:

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

// getPageScroll() by quirksmode.com
// use getPageScroll()[0] for horizontal scrolled amount
// use getPageScroll()[1] for vertical scrolled amount
function getPageScroll() {
    var xScroll, yScroll;
    if (self.pageYOffset) {
      yScroll = self.pageYOffset;
      xScroll = self.pageXOffset;
    } else if (document.documentElement && document.documentElement.scrollTop) {
      yScroll = document.documentElement.scrollTop;
      xScroll = document.documentElement.scrollLeft;
    } else if (document.body) {// all other Explorers
      yScroll = document.body.scrollTop;
      xScroll = document.body.scrollLeft;
    }
    return new Array(xScroll,yScroll)
}

// Adapted from getPageSize() by quirksmode.com
function getPageHeight() {
    var windowHeight
    if (self.innerHeight) { // all except Explorer
      windowHeight = self.innerHeight;
    } else if (document.documentElement && document.documentElement.clientHeight) {
      windowHeight = document.documentElement.clientHeight;
    } else if (document.body) { // other Explorers
      windowHeight = document.body.clientHeight;
    }
    return windowHeight
}

А потом как-то из vb послать команду на выполнение функции скрипта?

[hclubmk]

правильно ли я понял

нет, не правильно. Нужно в структуре DOM (Document Object Model) обратиться к свойствам объекта, которые тебя интересуют. В твоем случае: WB.document.documentElement.scrollTop, а вообще, если ты работаешь с DOM, хотя бы из уважения к самому себе, покурить

[Хакер]

спасибо
при наборе

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

a = wb1.Document.documentElement.scrollTop

получаю a=0 всегда, как бы не крутил прокрутку

попробовал что-нибудь другое
f = wb1.Document.URL дает результат (это я взял команду слегка "затянувшись" по ссылке... или не там курил...)

[Хакер]

ВОт так работает узнавание Топа

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

a = wb1.Document.Body.scrollTop

.... теперь нужно думать как установить желаемую позицию

[Хакер]

tunduk, если не будешь оформлять посты с применением тегов [code] и [icode] — будешь наказан.

[tunduk]

Проба

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

а="здравствуй мир!"

Господин Хакер раз уж вы пришли сюда меня наказывать, подскажите убогому как теперь мне вторую часть задачи (которую я перед собой поставил) решить.

[tunduk]

Слава богам, и всем кто отвечал, если и не на прямую помогли так поддержали меня в поисках решения, осталось проверить на точность сохранения

Это перелет на 600 пикселов

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

wb1.Document.Body.ScrollTop = 600

УРА!

[tunduk]

ну и соберу в кучку вдруг еще кто-то будет такое искать:
Определить на сколько прокручен webbrouser в VB6 в пикселях

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

a = wb1.Document.Body.scrollTop

Прокрутить webbrouser в VB6 на 600 пикселей

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

wb1.Document.Body.ScrollTop = 600