webbrowser

[i'm pissed]

юзаю значит такой код

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

Private Sub brwWebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
    frmbrowserr.brwWebBrowser.Navigate brwWebBrowser.Document.activeElement
          allformscount = allformscount + 1
   Cancel = True
End Sub


но иногда когда открываю файл в новом окне выходит что ничего не открывается и а в адреснойстроке появляется это http://[object]

[marvan]

проверяй brwWebBrowser.Document.activeElement.tagName возможно в таких случаях он не равен "A"

[i'm pissed]

проверяй brwWebBrowser.Document.activeElement.tagName возможно в таких случаях он не равен "A"

вот смотри делаю так

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

frmbrowserr.brwWebBrowser.Navigate brwWebBrowser.Document.activeElement.tagName

не прет в адресной cтроке выдает http://a/

[Tarik]

Гхм... А теперь вчитайся в пост marvan'а

проверяй brwWebBrowser.Document.activeElement.tagName

Значит, надо делать так:

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

if brwWebBrowser.Document.activeElement.tagName="a" then frmbrowserr.brwWebBrowser.Navigate brwWebBrowser.Document.activeElement