Пмогите разобраться с фреймами в WebBrowser

[Scorry_1]

Ситуация такая: так как мне приходится обрабатывать коды разных фреймов одной страницы, решил их распихать по разным WebBrowser. Верхний фрейм(toolFrame) имеет ссылки как на mainFrame так и на открытие в новом окне. Проблема с ссылками на mainFrame - их открывает где только возможно, но не там где надо. пытался решить проблему таким способом:

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

Private Sub toolFrame_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If TargetFrameName = "mainFrame" Then
mainFrame.Navigate2 URL
toolFrame.Navigate2 "где_и_было"
End If
End Sub

Но ничего не вышло, по всей видимости, событие Navigate2 вообще не происходит... =(
Помогите, пожалуйста - подскажите... В поиске не нашел чего-то подобного... =(((

[Alexanbar]

Событие, по всей видимости, происходит. Выведи для подтверждения msgbox в начале программы.

Не понял, зачем это

toolFrame.Navigate2 "где_и_было"

Наверное, надо ещё добавить

Set pdisp=mainFrame.object

[Scorry_1]

Alexanbar, msgbox вставлял - не появляется.

Не понял, зачем это

это чтобы прекратить навигацию, т.к. открытие происходит в первом открытом окне IE или при отсутствии такового в новом окне.

Set pdisp=mainFrame.object

а что это для чего? объясните, пожалуйста.

[Scorry_1]

Проблема решена:

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

Public Sub DropTargets(mobjDocument As HTMLDocument)
    Dim objElements      As Object
    Dim objElement      As Object
    Dim I               As Long
    Do
        If mobjDocument Is Nothing Then Exit Do
        On Error Resume Next
        For Each A In mobjDocument.getElementsByTagName("A")
        A.Target = ""
        Next
    Exit Do: Loop
End Sub

Private Sub toolFrame_StatusTextChange(ByVal Text As String)
On Error Resume Next
  With toolFrame
  End With
    Select Case toolFrame.ReadyState
    Case READYSTATE_INTERACTIVE
        DropTargets toolFrame.Document
    End Select
End Sub

Private Sub toolFrame_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
If тут длинное условие у меня Then
mainFrame.Navigate2 URL
toolFrame.Navigate2 "где и было"
End If
End Sub