tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
WebBrowserの新規ウィンドウで表示を指定のBrowserに表示(VB.NET) ( No.0 )  [親スレッドへ]
日時: 2013/01/23 09:28
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[インターネット][その他コントロール][]                              *
* キーワード:新規ウィンドウ,リンク,新しいウィンドウ,WebBrowser,ターゲット,       *
***********************************************************************************
タイトル : browser1の target="blank"をbrowser2へ表示
記 事 No :  
投 稿 日 : 2010/11/08(月) 18:18:54
元質問者 : にも  

formに二つのWEBbrowser (browser1 browser2)を配置しています
browser1のHTMLでリンクがtarget="blank"になっている場合IEなどが立ち上がるので
browser2に表示されるようにしたいです。
とくにタブブラウザを作りたいという訳ではなく単にIEが立ち上がるのを防ぎたいと
いうわけなのですが

http://hpcgi1.nifty.com/MADIA/vbnet/wwwlng.cgi?print+201011/10110005.txt

上記サイトの質問に答えて作ったものです。
--------------------------------------------------------------------------------------
記事No :  
投稿日 : 2010/11/18(木) 11:02:30  
回答者 : 花ちゃん
--------------------------------------------------------------------------------------
それであれば、複雑な事をしなくても下記でもいいのではないでしょうか?
(一般的なサイトでは問題ないのですが、中にはうまく表示できない場合もあります。)

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, _
            ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Try
   e.Cancel = True
   Dim URLNewWindow As String = WebBrowser1.StatusText
   If URLNewWindow <> "" AndAlso URLNewWindow.Substring(0, 4) = "http" Then
      WebBrowser2.Navigate(URLNewWindow)

'同じWebBrowser上に表示する場合
'     WebBrowser1.Navigate(URLNewWindow)

   End If
Catch ex As Exception
   MessageBox.Show(ex.Message)
End Try

End Sub

※ 上記でダメな場合は、下記等を参考に処理する事になります。
http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?mode=allread&no=6752



 [スレッド一覧へ] [親スレッドへ]