Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Sirik
-
- Perspicaz

-

-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
-
Sirik » 09.12.2004 (Чт) 16:47
Допустим я загружаю в WebBrowser страницу. Как мне узнать: когда страница загружена и, вобще, проверить загрузилась она или нет?
-
Konst_One
-
- Член-корреспондент академии VBStreets

-

-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
-
Konst_One » 09.12.2004 (Чт) 16:54
у контрола WebBrowser есть ряд полезных событий, в том числе DocumentComplete
-
Sirik
-
- Perspicaz

-

-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
-
Sirik » 09.12.2004 (Чт) 17:04
Konst_One писал(а):у контрола WebBrowser есть ряд полезных событий, в том числе DocumentComplete
Я об этом и спрашиваю
Мне надо узнать на каком этапе нахрдится загрузка страницы и загрузилась она или нет
-
Konst_One
-
- Член-корреспондент академии VBStreets

-

-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
-
Konst_One » 09.12.2004 (Чт) 17:12
можно после выполнения команды открытия URL ждать в цикле и проверять состояние State, но лучше конечно в событиях контрола прописать нужный тебе код, кажется задесь уже кто-то задавал похожий вопрос. попробуй поискать на форуме
-
Konst_One
-
- Член-корреспондент академии VBStreets

-

-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
-
Konst_One » 09.12.2004 (Чт) 17:15
что-то типа такого:
- Код: Выделить всё
146 WEB.Navigate FileName
DoEvents
148 Do While (WEB.ReadyState <> READYSTATE_COMPLETE)
150 If VBA.Timer >= (tmr + Me.TimeOut) Then
151 WEB.Stop
152 ErrNumber = errWaitTimeout
154 mMain.LogInfo "Print error: " & errWaitTimeout & " Navigate wait timeout."
Exit Function
End If
156 DoEvents
Loop
-
Sirik
-
- Perspicaz

-

-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
-
Sirik » 09.12.2004 (Чт) 17:42
А я сдела так:
В событии ProgressChange отслеживаю значения Progress --> если встречается два раза -1 значит страница не загрузилась, иначе ок. Всё это когда Progress достигнит 0
У меня работает
-
marvan
-
- Бывалый

-
-
- Сообщения: 269
- Зарегистрирован: 22.06.2004 (Вт) 13:26
- Откуда: Москва
-
marvan » 09.12.2004 (Чт) 18:32
- Код: Выделить всё
brows.Navigate "адрес"
While brows.Document Is Nothing
DoEvents
Wend
'страница загружена
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3