- PR -

WebBrowserで新しいウィンドウを開くには

1
投稿者投稿内容
hei
ベテラン
会議室デビュー日: 2006/09/07
投稿数: 78
投稿日時: 2007-02-21 16:53
お世話になっています。
ブラウザ上でHTML要素の上で右クリックをすれば「新しいウィンドウで開く」メニューが出ますが、
これをコードで行う方法をご存知の方いらっしゃいますか?

次のコードは、
ヤフーに接続して「ログイン」をクリックするサンプルです。
コード:
Public Class Form1
    Private _browser As New WebBrowser
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With _browser
            .Dock = DockStyle.Fill
            Me.Controls.Add(_browser)
            .Navigate("http://www.yahoo.co.jp")
            Application.DoEvents()
            While .IsBusy OrElse .ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            End While
            For Each tag As HtmlElement In .Document.Body.All
                If tag.InnerText = "ログイン" Then
                    tag.InvokeMember("click")
                End If
            Next
        End With
    End Sub
End Class


この「ログイン」画面を別ウィンドウで表示させるにはどのようにしたらいいのでしょうか?
(別ウィンドウで開いたウィンドウの制御は、
http://homepage1.nifty.com/yasunari/VB/VB2005/WebBrowserNewWindow2Event.htm
を参考にさせて頂きできました。)

htmlElement.InvokeMemberに「click」でない文字列を渡すか、引数を渡せばできそうな気もしますが、
検索しても見つけられませんでした。

よろしくお願いします。
1

スキルアップ/キャリアアップ(JOB@IT)