Online <%@ Page Language="vb" AutoEventWireup="false"
Codebehind="MessageBox.aspx.vb" Inherits="ASPMessageBox.MessageBox1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>MessageBox</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asplaceHolder id="PlaceHolder1" runat="server"></asp
<asp:Button id="Button1" style="Z-INDEX: 101; LEFT: 95px; POSITION: absolute; TOP: 99px" runat="server" Text="Click"></asp:Button>
</form>
</body>
</HTML>
Public Class MessageBox1
Inherits System.Web.UI.Page
Protected WithEvents PlaceHolder1 As System.Web.UI.WebControls.PlaceHolder
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Dim newBox As MessageBox = New MessageBox()
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
CheckYesNo()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
newBox.MessageBoxButton = 3
newBox.MessageBoxTop = 50
newBox.MessageBoxLeft = 150
newBox.MessageBoxWidth = 300
newBox.MessageBoxHeight = 150
newBox.MessageBoxButtonWidth = 50
newBox.MessageBoxIDYes = "yesno"
newBox.MessageBoxIDNo = "yesno"
newBox.MessageBoxIDCancel = "yesno"
newBox.MessageBoxButtonYesText = "Yes"
newBox.MessageBoxButtonNoText = "No"
newBox.MessageBoxButtonCancelText = "Cancel"
newBox.MessageBoxTitle = "Dynamic message box."
newBox.MessageBoxMessage = "Do you want to continue?"
newBox.MessageBoxImage = "information.gif"
PlaceHolder1.Controls.Add(newBox)
End Sub
Private Sub CheckYesNo()
If Request.Form("yesno") = "Yes" Then
Response.Write("Button - Yes - Selected")
ElseIf Request.Form("yesno") = "No" Then
Response.Write("Button - No - Selected")
ElseIf Request.Form("yesno") = "Cancel" Then
Response.Write("Button - Cancel - Selected")
End If
End Sub
End Class
Offline 
Unsolved 
