Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim TextBox1 As New TextBox
TextBox1.ID = "TextBox1"
TextBox1.Attributes.Add("runat", "server")
TextBox1.Attributes.Add("onKeyPress", "OkToClose = false;")
Page.Form.Controls.Add(TextBox1)
Dim Button1 As New Button
Button1.ID = "Button1"
Button1.Text = "Save"
Button1.Attributes.Add("onClick", "OkToClose = true;")
Page.Form.Controls.Add(Button1)
Dim ClientScript As ClientScriptManager = Page.ClientScript
Dim ScriptText As String = "var OkToClose = true;function window.onbeforeunload(){if (OkToClose == false){var closeMessage = 'If you have made changes without saving, your changes will be lost.';return closeMessage;}}"
ClientScript.RegisterClientScriptBlock(Me.GetType, "OkToClose", "<script type='text/javascript'>" & ScriptText & "</script>")
End Sub |
No comments:
Post a Comment