WebBrowserコントロールで新規画面を出さずに本体で開くには？

---

はじめまして、washiです。

フォームにWebBrowserコントロールを貼り付けて
WEBページを表示しています。

window.openなどで新規ウインドウが立ち上がる
のはNewWindow2イベントで
キャンセルすることはできるのですが
開いているフォーム自身で表示させたいのです。

NewWindow2イベントでできると思っているのですが
なかなかうまくいきません、なにか良い方法はないでしょうか？

よろしくお願いします。

環境:ME,VB6,IE5.5

編集 削除

---

う〜ん。開かせたいウィンドウは、ppDisp 引数にて
指定できるのですが、自分自身は指定できないようですね。

となると、イベント自体はそのままキャンセルさせてしまい、
実際の移動処理は、NewWindowイベント(NewWindow2に非ず)で得た
パラメータを元にして、自分でNavigate2しなおす事になるかも。

編集 削除

---

だいぶ昔でしたが、たまたま自分で試行錯誤していたら、できるようになりました。

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。