| ■73870 / inTopicNo.1) |
モーダルダイアログについて |
□投稿者/ たいよう (1回)-(2014/11/11(Tue) 21:21:20)
|
分類:[ASP.NET (VB)]
こんばんは。初めての質問になります。至らない所が多々あると思いますがよろしくお願い致します。
＜環境＞
Vistual Studio 2013 VB.NET 4.0
OS：Windows7
ブラウザ：IE8
現在、上記環境でWebページを作成しております。
ボタン押下時にモーダルダイアログのポップアップを表示し、モーダルダイアログのポップアップを閉じた時に親画面をポストバックしたいのですがうまく動作いたしません。
下記は親画面のソースと子画面のソースになります。
＜親画面＞
ポップアップを開く画面.aspx
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>ポップアップで画面を開く</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Button ID="Button1" runat="server" Text="ポップアップ" />
</form>
</body>
</html>
ポップアップを開く画面.aspx.vb
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Debug.Print("")
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
' 画面遷移(PopUp)
ClientScript.RegisterStartupScript(Me.GetType(), "TekitouNaKey", _
"<script type='text/javascript'>window.showModalDialog('ポップアップ画面.aspx','_blank','width=300,height=300');</script>")
'ClientScript.RegisterStartupScript(Me.GetType(), "TekitouNaKey", _
' "<script type='text/javascript'>window.open('ポップアップ画面.aspx','_blank','width=300,height=300');</script>")
End Sub
＜子画面＞
ポップアップ画面.aspx
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<base target="_parent"/>
<base target="_self" />
<title>ポップアップ画面</title>
</head>
<body>
<%--<body onblur="this.window.focus();">--%>
<form id="form1" runat="server">
<asp:Button ID="Button1" runat="server" Text="選択" />
</form>
</body>
</html>
ポップアップ画面.aspx.vb
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session("ITEM") = "BBB"
Dim scriptStr As String
scriptStr = "<script type='text/javascript'>"
'scriptStr += "window.opener.form1.submit();"
scriptStr += "window.close();"
scriptStr += "</script>"
ClientScript.RegisterStartupScript(Me.GetType(), "Default2画面", scriptStr)
End Sub
ご不明な点等がありましたら、ご指摘をお願い致します。
|
|