VB.NETでNewWindowを使用した場合、FlashのURLリンクに関する質問です。

Question

hokuto0127

32

0もっと見る

コンピュータインターネット

VB.NETでNewWindowを使用した場合、FlashのURLリンクに関する質問です。

以下のコードを追加したとき、

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Dim NewURL As String = CType(sender, WebBrowser).StatusText
Dim frmNew As New Form2
frmNew.WebBrowser1.Navigate(NewURL)
'frmNew.WebBrowser1.Url = New Uri(NewURL)
frmNew.Show()
e.Cancel = True
End Sub

Form2のWebBrowser1に新しいウィンドウとして表示することはできたのですが、
この場合、Flashのリンク動作が正しく作動せず、
例えば「http://完了/」や「about:blank」となってエラーになってしまいます。

これは、どうしようもないことなのでしょうか。
対策できるようであれば、その方法をご教授お願いします。

回答の条件

1人5回まで

登録：2011/11/21 14:27:51
終了：2011/11/28 14:30:05

rsc 2011/11/21 16:03:47

　私が紹介した方法は、簡単なんですが、完璧じゃないんですね。ときどき、飛べないのがあります。(^_^;
　自分で使うため用だったので、面倒より簡単にということで、出来ないときは、次のようにieを呼ぶようにしました。

Dim NewURL As String = CType(sender, WebBrowser).StatusText
If NewURL <> "" Then 'リンク先を取得できたら
e.Cancel = True 'ie 呼び出しをキャンセルする
Dim frmNew As New Form2
frmNew.Show()
Else 'リンク先を取得できなかったら、
'そのまま ie を呼ぶ
End If
hokuto0127 2011/11/22 00:17:47

「about:blank」となる部分には対応できたのですが、「http://完了/」には対応できませんね・・。
特定のURLのときだけIEで起動するように設定することはできませんか？
rsc 2011/11/22 13:46:40

if NewURL="http://完了/" then
'何もしない
else if NewURL<>"" then
'上の処理
else
'何もしない
EndIf
とすればいいかも。(^_^;
e.Cancel=Trueとしなけらば、そのまま、ieを呼ふはず。
hokuto0127 2011/11/22 16:47:49

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Dim NewURL As String = CType(sender, WebBrowser).StatusText
If NewURL <> "" Then
Dim frmNew As New Form2
frmNew.WebBrowser1.Navigate(NewURL)
frmNew.Show()
Else
End If
If NewURL = "http://完了/" Then
ElseIf NewURL <> "" Then
Else
End If
End Sub

上記のようにコードを変えてみましたが、Form2とIEが両方開いてしまうようになりまして・・・。
記述の仕方が悪いんですかね？

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

rsc · Answer 1 · 2011-11-23T00:02:05+09:00

　こんな感じでどうでしょうか。

Private Sub WebBrowser1_NewWindow(
	ByVal sender As Object,
	ByVal e As System.ComponentModel.CancelEventArgs
) Handles WebBrowser1.NewWindow

	Dim NewURL As String = CType(sender, WebBrowser).StatusText
	If NewURL = "http://完了/" Then	' 例外処理
		' 何もしない
	ElseIf NewURL <> "" Then	'リンク先を取得できたら
		e.Cancel = True		'ie 呼び出しをキャンセルする
		Dim frmNew As New Form2
		frmNew.WebBrowser1.Navigate(NewURL)
		frmNew.Show()
	Else
		' 何もしない
	End If
End Sub

VB.NETでNewWindowを使用した場合、FlashのURLリンクに関する質問です。

回答（1件）

rsc45034372011/11/23 00:02:05

コメント（4件)

この質問への反応（ブックマークコメント）