|
|
サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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
 |
|
