WebBrowser открыть в новом окне.

[Niko]

Добрый день.
Вопрос опять по WB
Как мне сделать так, чтобы опри открытии ссылки в новом окне не загружался IE, а открывалось мое окошко?
Событие NewWindow3 не работает

[Хакер]

Мне кажется, нужно ловить BeforeNavigate.


А писать слово "чтобы" через дефис - это конечно оригинально.

[Niko]

BeforeNavigate2 есть, но он не работает когда ссылка открывается в новом окне.

[Хакер]

NewWindow2

[Antonariy]

NewWindow2 срабатывает при открыти окна через window.open.

BeforeNavigate2 есть, но он не работает когда ссылка открывается в новом окне.

Естественно, это же создается новый инстанс IE, BeforeNavigate2 происходит в нем.

Иди в поиск за ShellWindows, событие WindowRegistered.

[Хакер]

NewWindow2 срабатывает у меня в частности при "Открыть в новом окне" из контекстног меню ссылки. Тестировал на этом форуме.

[Antonariy]

Кстати да, срабатывает.

[Niko]

Срабатывает.
А где взять ссылку которая открывается и как не дать открыться IE?

[Хакер]

Есть byref-аргумент Cancel

[Antonariy]

The WebBrowser control has an opportunity to handle the new window creation itself. If it does not, a top-level Internet Explorer window is created as a separate (nonhosted) process.

Create a new, hidden, nonnavigated WebBrowser or InternetExplorer object that is returned in ppDisp. Upon return from this event, the object that fired this event will then configure and navigate (including a BeforeNavigate2 event) the new object to the target location.

[Niko]

Спасибо все заработало

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

Dim frm As Form
Set frm = New Form1
frm.Show
Set ppDisp = frm.WB1.object

[nekeda]

А где взять ссылку которая открывается

а правда, где? BeforeNavigate2 не срабатывает