Массив из WB. Не происходит READYSTATE_COMPLETE.

[dr.MIG]

Создаю четыре объекта WebBrowser: Load WebBrowser(i).
Затем загружаю в них пустую страницу и жду, когда она загрузится:

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

    For Each objWB In WebBrowser
        objWB.Navigate "res://mshtml.dll/blank.htm"
            While objWB.ReadyState <> READYSTATE_COMPLETE
                DoEvents
            Wend
    Next

С WebBrowser(0), который я ручками добавлял на форму всё О'k, у остальных трёх ReadyState всегда оказывается READYSTATE_INTERACTIVE. Почему с ними не происходит READYSTATE_COMPLETE?

[Antonariy]

Возможны три причины
1) Трех остальных броузеров не видно
2) Броузеры крайне глючно работают в массивах. И более стабильно, если завернуть броузер в юзерконтрол и уже из юзерконтрола делать массив.
3) Работая с несколькими экземплярами WB легко словить ошибку на DoEvents. В начале кода случайно нет On Error Resume Next?

[dr.MIG]

Да, трёх остальных не видно -- они находятся на разных вкладках Tab'a... Видно только первый, с которым как раз всё О'К. Значит мне попробовать завернуть их в UserControl? Использовать что-то кроме массива WB, имхо, не получится, так как надо отображать с возможностью редактирования хитрые табличные данные...

[Antonariy]

Вебброузер не обрабатывает страницу, если его не видно. Сделай их размером хотя бы в пиксель, но на видном месте, а по факту загрузки прячь по табам.

[dr.MIG]

Antonariy, спасибо огромное! Всё так и есть. После загрузки отобразил: WebBrowser(i).Visible=True, подождал пока загрузится документ и спрятал в Tab. Теперь всё О'k.

[ALX_2002]

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


Set IE1 = New InternetExplorer
Set IE2 = New InternetExplorer
Set IE3 = New InternetExplorer
Set IE4 = New InternetExplorer

Class InternetExplorer
   Public Application
   Private Sub Class_Initialize
      Set Application = CreateObject("InternetExplorer.Application")
      Application.Navigate "about:blank"
      Do
         WScript.Sleep 10
      Loop Until Application.ReadyState = 4
      MsgBox "Загрузился"
      'Application.Visible = True
   End Sub
End Class


Доброго времени товарисчи, сейчас попробывал сделать загрузку в невидимом режиме. Все грузятся нормально. Что я не учитываю ?

[Antonariy]

То, что это SHDocVw.InternetExplorer, а не SHDocVw.WebBrowser.

[ALX_2002]

Аааа. Поняня. Я комп переставил. VB ещё не установил. Поэтому проверить с WEBBrowser не мог. сорри