-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
新しいウインドウが起動したので、
Me.WebBrowser3
を新たに作って、捕まえてみます・・・
だと、面白くないので(※面白くなくても簡単にできれば、そっちの解説が聞きたいよ)
使っていない、上部の Me.WebBrowser1 を 代入してみます。
Private Sub WebBrowser2_NewWindow2(ppDisp As Object, Cancel As Boolean)
Debug.Print "WebBrowser2_NewWindow2 に 入りました。"
Set ppDisp = Me.WebBrowser1 '新しいウインドウはWebBrowser1を代入
End Sub
↑単純に、WebBrowser2_NewWindow2 の イベントで、
Set ppDisp = Me.WebBrowser1
と新しいウインドウはWebBrowser1ですよ・・って感じにしました。
03/28 _NewWindow2 の イベントで新規ウインドウ捕まえる
http://www.youtube.com/watch?v=SvDM2JnaUbE
動画を入れる