Окно после клика в том же webbrowser-е

[theal]

Подскажите как после клика в webbrowser1 , страница которая должна открываться в новом окне открыть в том же Webbrowser1? У меня ксть код открыть в webbrowser2 он работает ..Но мне надо в том же открыть

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

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Me.WebBrowser2.object
 
End Sub

А вот так не работает:

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

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Me.WebBrowser1.object
 
End Sub

[alibek]

А название аргумента Cancel шевеления в мозгу не вызывает?

[theal]

Всмысле?Что вы имеете ввиду?

[alibek]

В том смысле, что если немного подумать над смыслом слова Сancel, можно попробовать выполнить отмену действия (открытия в новом окне), из ppDisp получить адрес, который пытается открыться, и назначить его текущему webbrowser. Возможно это поможет.

[theal]

Можете в примере показать?Если не трудно

[alibek]

Попытайся все-таки сам.
От этого для тебя же пользы будет больше.

[theal]

Блин ни хрена не получается..Ну подскажите как открыть окно в том же webbrowsere??
Ну пожалуйста

[dr.MIG]

Так уже сказали полностью весь алгоритм:

1. Оставить строчку Set ppDisp = Me.WebBrowser1.object из твоего кода;
2. Выполнить отмену действия, используя Cancel;
3. Получить адрес ссылки, по которой осуществляется переход (подсказка: это свойство объекта WebBrowser — Document.activeElement.href);
4. Перейти по полученому адресу (Navigate).

[awl100Alex]

Вот так все ссылки будут открываться в одной вкладке (окне, браузере и т.д.)...

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

'References --> Microsoft Internet Controls
Dim WithEvents IEWeb As WebBrowser

Private Sub Form_Load()
Set IEWeb = New InternetExplorer
IEWeb.Visible = True
IEWeb.Navigate "http://www.mail.ru"
End Sub

Private Sub IEWeb_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
IEWeb.Navigate IEWeb.Document.activeElement.href
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
IEWeb.Quit: Set IEWeb = Nothing
End Sub

[ala-x]

Вот так все ссылки будут открываться в одной вкладке (окне, браузере и т.д.)...

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

'References --> Microsoft Internet Controls
Dim WithEvents IEWeb As WebBrowser

Private Sub Form_Load()
Set IEWeb = New InternetExplorer
IEWeb.Visible = True
IEWeb.Navigate "http://www.mail.ru"
End Sub

Private Sub IEWeb_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
IEWeb.Navigate IEWeb.Document.activeElement.href
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
IEWeb.Quit: Set IEWeb = Nothing
End Sub

Cтранно--почему то ошибка на ieweb

[Xcode]

Cтранно--почему то ошибка на ieweb

ieframe.dll подключил?

[theal]

Да всё включено и ieframe и html object library

[Xcode]

Какую ошибку выдает, на что ругается? Для этого кода требуется лишь ieframe.dll.

[arvitaly]

Вот так можно обрабатывать не только щелчок по ссылке

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

Private Sub Form_Load()
    WebBrowser2.Visible = False
    WebBrowser1.Navigate2 "http://yandex.ru/yandsearch?text=%D1%88%D0%B0%D1%88%D0%BB%D1%8B%D0%BA+%D0%BF%D0%B8%D0%B2%D0%BE+%D0%B4%D0%B5%D0%B2%D1%87%D0%BE%D0%BD%D0%BA%D0%B8&yasoft=barff&clid=39941"
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Set ppDisp = WebBrowser2.Object
End Sub

Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Cancel = True
     WebBrowser1.Navigate2 URL
End Sub

[theal]

Да код показывает новое окно в webbrowser1.А как при этом раскладе передать кукиес в webbrowser1?Получается что новая страничка открывшаяся в webbrowser1 не имеет адреса родительской страницы(откуда по ней перешли).Это вроде получается типа того ,что адрес ссылки вписали вручную.Как сделать чтоб было всё как положено(переход определялся бы с первой открывшейся страницы) к примеру первый сайт был www.yandex.ru чтоб кликнутая ссылка так и определялась бы,что кликнули с яндекса)

[arvitaly]

На

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

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim obj As Object
    For Each obj In WebBrowser1.Document.links
       obj.Target = "_self"
    Next
End Sub

и давай уже сам тоже думай че нить.

[theal]

На

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

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim obj As Object
    For Each obj In WebBrowser1.Document.links
       obj.Target = "_self"
    Next
End Sub

и давай уже сам тоже думай че нить.

arvitaly ты ГЕНИЙ...СПАСИБО

[dr.MIG]

theal, поиск по словам «webbrowser новок окно» давно знал это решение .