WebBrowser.Object.Navigate

PetSerVas
Дата: 30.12.2011 10:47:41
Почему не работает такое?

Private Sub Form_Load()

    Dim myURL As String
    On Error Resume Next
    myURL = "ya.ru"
    Form.Caption = myURL
    'MsgBox myURL
    WebBr.Object.Navigate myURL
            
End Sub


Если раскомментировать MsgBox, то WebBr переходит по адресу, а так в него ничего не передается...
Словно не успевает
Подскажите в чем проблема (на форуме ничего не нашел)
Старый ворчун
Дата: 30.12.2011 10:56:29
выполните этот код на Form_Activate, загрузится страница?
PetSerVas
Дата: 30.12.2011 11:12:01
НЕТ
Старый ворчун
Дата: 30.12.2011 11:44:18
У меня грузится и на Load, и на Activate ...
PetSerVas
Дата: 30.12.2011 12:00:43
Версия Access какая?
У меня 2010
PetSerVas
Дата: 30.12.2011 12:29:58
Создал новую пустую базу
Работает!

А эта база мне досталась в наследство
И где мне что теперь в ней Искать?
Владимир Саныч
Дата: 30.12.2011 15:18:38
По-моему, надо пользоваться не Navigate, а Navigate2.
PetSerVas
Дата: 03.01.2012 14:43:23
А в чем разница?
В моем случае по-барабану
Интересно, что сначала в Объект WebBrowser передается URL: res://ieframe.dll/syntax.htm#http:///
А уже после Вызова MsgBox "" передается нормальный URL
Откуда берется этот первый res://?
PetSerVas
Дата: 03.01.2012 15:38:19
Перед Navigate вставил

Do While WebBrowser.ReadyState<>4
DoEvents
Loop

Заработало
PetSerVas
Дата: 03.01.2012 16:17:04
В общем решил таким вот образом

Private Sub Form_Load()

    Dim myURL As String
    On Error Resume Next
    myURL = "ya.ru"
    Form.Caption = myURL
    Do While WebBr.ReadyState <> acComplete
       DoEvents
    Loop
    WebBr.Object.Navigate myURL
            
End Sub