Thanks Fabricio, AddScipt solved my problems.
I produced a sample that works as expected.
it consists of two pages, the frame container and the frame content.
MainWebForm.aspx
<%@ Page Language="vb" AutoEventWireup="false" Inherits="System.Web.UI.Page" %>
<!DOCTYPE html>
<script runat="server">
Dim WithEvents myWindow As Ext.Net.Window
Dim lblOutput As Ext.Net.Label
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim rm As New ResourceManager
body.Controls.Add(rm)
'Window
Dim loader = New ComponentLoader With {
.Url = "FrameWebForm.aspx",
.Mode = LoadMode.Frame,
.AutoLoad = False}
loader.LoadMask.ShowMask = True
myWindow = New Window With
{
.ID = "myWindow",
.Title = "Click close button",
.Width = Unit.Pixel(600),
.Height = Unit.Pixel(250),
.Modal = True,
.AutoRender = False,
.Collapsible = True,
.Maximizable = True,
.Hidden = True,
.Loader = loader
}
body.Controls.Add(myWindow)
'Button
Dim btnWin As New Ext.Net.Button With {.ID = "WinButton", .Text = "Open the window", .Icon = Icon.ApplicationForm}
AddHandler btnWin.DirectClick, AddressOf btnWin_Click
body.Controls.Add(btnWin)
'Label
lblOutput = New Ext.Net.Label With {.ID = "OutputLabel", .Text = "Waiting for output."}
body.Controls.Add(lblOutput)
End Sub
Private Sub btnWin_Click(sender As Object, e As DirectEventArgs)
myWindow.Show()
myWindow.LoadContent()
End Sub
<DirectMethod>
Public Sub UpdateOutput()
If Session("Output") IsNot Nothing Then
lblOutput.Text = Session("Output")
Else
lblOutput.Text = "No output found :("
End If
End Sub
</script>
<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 id="body" runat="server">
</body>
</html>
FrameWebForm.aspx
<%@ Page Language="vb" AutoEventWireup="false" Inherits="System.Web.UI.Page" %>
<!DOCTYPE html>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim rm As New ResourceManager
body.Controls.Add(rm)
'Button
Dim btnClose As New Ext.Net.Button With {.ID = "CloseButton", .Text = "Click to close", .Icon = Icon.ApplicationFormDelete}
'the following line causes the window to close prematurely
'btnClose.Listeners.Click.Handler = "parent.App.direct.UpdateOutput();parent.Ext.getCmp('myWindow').hide();"
AddHandler btnClose.DirectClick, AddressOf btnClose_Click
body.Controls.Add(btnClose)
End Sub
Private Sub btnClose_Click(sender As Object, e As DirectEventArgs)
Session("Output") = "Mission accomplished!"
Ext.Net.X.AddScript("parent.App.direct.UpdateOutput();parent.Ext.getCmp('myWindow').hide();")
End Sub
</script>
<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 id="body" runat="server">
</body>
</html>
I commented the line #13 in 2nd file and added the line #20; in this way I have been able to perform my tasks and close the window only when tasks are completed.
Thanks again, you can mark it as closed.
