Автоскролл в WebBrouser
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- extHack
- Обычный пользователь
-
- Сообщения: 94
- Зарегистрирован: 04.06.2005 (Сб) 12:31
- Откуда: 127.0.0.1
Автоскролл в WebBrouser
extHack » 05.05.2006 (Пт) 5:04
Вопрос следующий. Необходимо сделать автоскролл в компоненте WebBrouser, чтобы автоматически скроллилось в конец документа.
n/a
- smaharbA
- Новичок
- Сообщения: 30
- Зарегистрирован: 16.06.2005 (Чт) 5:08
smaharbA » 05.05.2006 (Пт) 5:34
WebBrowser1.Navigate (URL)
Do While WebBrowser1.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
Set doc = WebBrowser1.Document
bodyHeight = doc.body.ScrollHeight
bodyWidth = doc.body.ScrollWidth
Call doc.Script.Window.Scroll(bodyWidth, bodyHeight)
Do While WebBrowser1.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
Set doc = WebBrowser1.Document
bodyHeight = doc.body.ScrollHeight
bodyWidth = doc.body.ScrollWidth
Call doc.Script.Window.Scroll(bodyWidth, bodyHeight)
Я конечно далек от мысли...(с)
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот, SemrushBot и гости: 176