学步园

 

在ASP.NET的服务器端使用message box(Message box Server side in ASP.Net)

                                           作者: R.Arockia Jayaseelan 译:涟漪勇

Message Box是用于显示消息的对话框,等待用户选择上面的不同按钮来执行不同的程序.完成了用户与程序的交互,在我们些windows程序是可以很容易的实现这个功能并且来自定义它,可是对于web程序就没有那么容易了,当然,可以JavaScript来实现这些功能.但是它不可以自己定义按钮的类型在对话框上.

 用JavaScript你可以访问Message Box在页面载入和回送时,利用JavaScript你的程序没有办法得到用户的确认信息,为了实现的到用户选择的确认信息,你必须有服务器端的Message Box.

服务器端的Message Box提供用户选择不同的条件,这些条件是根据程序来的,例如确定或者取消, 得到用户的确认选择后我们来控制我们的程序执行不同的段落.

 

下面是运行是的效果图

 

下面是实现的代码

1. MessageBox.vb(Class)
Imports System</p> <p>Imports System.Web</p> <p>Imports System.Web.UI</p> <p>Imports System.Web.UI.WebControls</p> <p>Imports System.Web.UI.HtmlControls</p> <p>Imports System.IO</p> <p>Imports System.Drawing</p> <p>Imports System.Drawing.Imaging</p> <p>Imports System.Drawing.Drawing2D</p> <p>Public Class js</p> <p> Public Function js()</p> <p> End Function</p> <p>End Class</p> <p>Public Class MessageBox</p> <p> Inherits WebControl</p> <p> Private strLeft As String</p> <p> Private strTop As String</p> <p> Private intButton As Integer</p> <p> Private strMessage As String</p> <p> Private strTitle As String</p> <p> Private strImage As String</p> <p> Private strCss As String</p> <p> Private strCssTitle As String</p> <p> Private strCssMessage As String</p> <p> Private strButtonYes As String</p> <p> Private strButtonNo As String</p> <p> Private strButtonCancel As String</p> <p> Private strButtonWidth As Integer</p> <p> Private strMessageBoxIDYes As String</p> <p> Private strMessageBoxIDNo As String</p> <p> Private strMessageBoxIDCancel As String</p> <p> Private intMessageBoxWidth As Integer</p> <p> Private intMessageBoxHeight As Integer</p> <p> Private intMessageBoxImageWidth As Integer</p> <p> Private intMessageBoxImageHeight As Integer</p> <p> Dim homedirectory As String</p> <p> ' Message box left position</p> <p> Public Property MessageBoxLeft() As String</p> <p> Get</p> <p> Return strLeft</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strLeft = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box top position</p> <p> Public Property MessageBoxTop() As String</p> <p> Get</p> <p> Return strTop</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strTop = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Number of buttons you want to display in the message box</p> <p> Public Property MessageBoxButton() As Integer</p> <p> Get</p> <p> Return intButton</p> <p> End Get</p> <p> Set(ByVal Value As Integer)</p> <p> intButton = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Customize message you want to display in the message box</p> <p> Public Property MessageBoxMessage() As String</p> <p> Get</p> <p> Return strMessage</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strMessage = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Title you want to display in the message box</p> <p> Public Property MessageBoxTitle() As String</p> <p> Get</p> <p> Return strTitle</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strTitle = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Image you want to display in the message box (like information / warning)</p> <p> Public Property MessageBoxImage() As String</p> <p> Get</p> <p> Return strImage</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strImage = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box ID for Yes button</p> <p> Public Property MessageBoxIDYes() As String</p> <p> Get</p> <p> Return strMessageBoxIDYes</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strMessageBoxIDYes = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box ID for No button</p> <p> Public Property MessageBoxIDNo() As String</p> <p> Get</p> <p> Return strMessageBoxIDNo</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strMessageBoxIDNo = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box ID for Cancel button</p> <p> Public Property MessageBoxIDCancel() As String</p> <p> Get</p> <p> Return strMessageBoxIDCancel</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strMessageBoxIDCancel = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Style you want to incorporate for message box</p> <p> Public Property MessageBoxCss() As String</p> <p> Get</p> <p> Return strCss</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strCss = Value</p> <p> End Set</p> <p> End Property</p> <p> Public Property MessageBoxCssTitle() As String</p> <p> Get</p> <p> Return strCssTitle</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strCssTitle = Value</p> <p> End Set</p> <p> End Property</p> <p> Public Property MessageBoxCssMessage() As String</p> <p> Get</p> <p> Return strCssMessage</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strCssMessage = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box Text for Yes button</p> <p> Public Property MessageBoxButtonYesText() As String</p> <p> Get</p> <p> Return strButtonYes</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strButtonYes = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box Text for No button</p> <p> Public Property MessageBoxButtonNoText() As String</p> <p> Get</p> <p> Return strButtonNo</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strButtonNo = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box Text for Cancel button</p> <p> Public Property MessageBoxButtonCancelText() As String</p> <p> Get</p> <p> Return strButtonCancel</p> <p> End Get</p> <p> Set(ByVal Value As String)</p> <p> strButtonCancel = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box buttons width</p> <p> Public Property MessageBoxButtonWidth() As Integer</p> <p> Get</p> <p> Return strButtonWidth</p> <p> End Get</p> <p> Set(ByVal Value As Integer)</p> <p> strButtonWidth = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box width</p> <p> Public Property MessageBoxWidth() As Integer</p> <p> Get</p> <p> Return intMessageBoxWidth</p> <p> End Get</p> <p> Set(ByVal Value As Integer)</p> <p> intMessageBoxWidth = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box height</p> <p> Public Property MessageBoxHeight() As Integer</p> <p> Get</p> <p> Return intMessageBoxHeight</p> <p> End Get</p> <p> Set(ByVal Value As Integer)</p> <p> intMessageBoxHeight = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box image width</p> <p> Public Property MessageBoxImageWidth() As Integer</p> <p> Get</p> <p> Return intMessageBoxImageWidth</p> <p> End Get</p> <p> Set(ByVal Value As Integer)</p> <p> intMessageBoxImageWidth = Value</p> <p> End Set</p> <p> End Property</p> <p> ' Message box image height</p> <p> Public Property MessageBoxImageHeight() As Integer</p> <p> Get</p> <p> Return intMessageBoxImageHeight</p> <p> End Get</p> <p> Set(ByVal Value As Integer)</p> <p> intMessageBoxImageHeight = Value</p> <p> End Set</p> <p> End Property</p> <p> Protected Friend layer As HtmlGenericControl</p> <p> Protected Friend ilayer As HtmlGenericControl</p> <p> Protected Friend img As HtmlGenericControl</p> <p> Protected Friend div As HtmlGenericControl</p> <p> Protected Friend ButtonOK As Button</p> <p> Protected Friend ButtonYes As Button</p> <p> Protected Friend ButtonNo As Button</p> <p> Protected Friend ButtonCancel As Button</p> <p> Protected Alertimage As System.Web.UI.WebControls.Image</p> <p> Public Sub New()</p> <p> MyBase.New("div")</p> <p> End Sub</p> <p> Protected Overrides Sub OnInit(ByVal e As EventArgs)</p> <p> MyBase.OnInit(e)</p> <p> ' Default properties settings for message box control</p> <p> If strLeft Is Nothing Then</p> <p> strLeft = "250"</p> <p> End If</p> <p> If strTop Is Nothing Then</p> <p> strTop = "250"</p> <p> End If</p> <p> If strTitle Is Nothing Then</p> <p> strTitle = "MessageBox"</p> <p> End If</p> <p> If intButton < 0 Then</p> <p> intButton = 1</p> <p> End If</p> <p> If strMessageBoxIDYes Is Nothing Then</p> <p> strMessageBoxIDYes = "MessageBoxIDYes"</p> <p> End If</p> <p> If strMessageBoxIDNo Is Nothing Then</p> <p> strMessageBoxIDNo = "MessageBoxIDNo"</p> <p> End If</p> <p> If strMessageBoxIDCancel Is Nothing Then</p> <p> strMessageBoxIDCancel = "MessageBoxIDCancel"</p> <p> End If</p> <p> If strCss Is Nothing Then</p> <p> strCss = ""</p> <p> End If</p> <p> If strCssMessage Is Nothing Then</p> <p> strCssMessage = ""</p> <p> End If</p> <p> If strCssTitle Is Nothing Then</p> <p> strCssTitle = ""</p> <p> End If</p> <p> If strMessage Is Nothing Then</p> <p> strMessage = "No message to display here."</p> <p> End If</p> <p> If intButton = 1 Or intButton > 3 Or intButton < 1 Then</p> <p> If strButtonYes Is Nothing Then</p> <p> strButtonYes = "OK"</p> <p> End If</p> <p> ElseIf intButton > 1 And intButton < 4 Then</p> <p> If strButtonYes Is Nothing Then</p> <p> strButtonYes = "Approve"</p> <p> End If</p> <p> If strButtonNo Is Nothing Then</p> <p> strButtonNo = "Cancel"</p> <p> End If</p> <p> If strButtonCancel Is Nothing Then</p> <p> strButtonCancel = "Ignore"</p> <p> End If</p> <p> End If</p> <p> If strButtonWidth < 5 Then</p> <p> strButtonWidth = 70</p> <p> End If</p> <p> If intMessageBoxWidth < 10 Then</p> <p> intMessageBoxWidth = 250</p> <p> End If</p> <p> If intMessageBoxHeight < 1 Then</p> <p> intMessageBoxHeight = 8</p> <p> End If</p> <p> If intMessageBoxImageWidth < 5 Then</p> <p> intMessageBoxImageWidth = 36</p> <p> End If</p> <p> If intMessageBoxImageHeight < 5 Then</p> <p> intMessageBoxImageHeight = 36</p> <p> End If</p> <p> If homedirectory Is Nothing Then</p> <p> homedirectory = Me.Page.Request.PhysicalApplicationPath</p> <p> End If</p> <p> End Sub</p> <p> Protected Overrides Sub createChildControls()</p> <p> ' Creating message box</p> <p> Dim myRow As TableRow</p> <p> Dim myCell As TableCell</p> <p> Dim myTable As Table = New Table</p> <p> myTable.BorderWidth = New Unit(0)</p> <p> myTable.CellSpacing = 0</p> <p> myTable.Width = New Unit(intMessageBoxWidth)</p> <p> myTable.Height = New Unit(intMessageBoxHeight)</p> <p> Controls.Add(myTable)</p> <p> myRow = New TableRow</p> <p> myRow.BorderWidth = New Unit(0)</p> <p> myTable.Rows.Add(myRow)</p> <p> myCell = New TableCell</p> <p> Dim NewLabel As Label = New Label</p> <p> NewLabel.Text = strTitle</p> <p> NewLabel.CssClass = strCssTitle</p> <p> myCell.Controls.Add(NewLabel)</p> <p> myCell.ID = "dragbar"</p> <p> myCell.ColumnSpan = 5</p> <p> myCell.CssClass = strCssTitle</p> <p> If strCssTitle = "" Then</p> <p> myCell.ForeColor = System.Drawing.Color.White</p> <p> myCell.BackColor = System.Drawing.Color.DarkBlue</p> <p> myCell.Font.Name = "Verdana"</p> <p> myCell.Font.Bold = True</p> <p> myCell.Font.Size = New FontUnit(8)</p> <p> myCell.Style.Add("CURSOR", "hand")</p> <p> End If</p> <p> myRow.Cells.Add(myCell)</p> <p> myRow = New TableRow</p> <p> myRow.BorderWidth = New Unit(0)</p> <p> myTable.Rows.Add(myRow)</p> <p> myCell = New TableCell</p> <p> myCell.ColumnSpan = 5</p> <p> myCell.CssClass = strCssMessage</p> <p> If strCssMessage = "" Then</p> <p> myCell.BackColor = System.Drawing.Color.LightGray</p> <p> End If</p> <p> myRow.Cells.Add(myCell)</p> <p> Dim myRow1 As TableRow</p> <p> Dim myCell1 As TableCell</p> <p> Dim myTable1 As Table = New Table</p> <p> myTable1.BorderWidth = New Unit(0)</p> <p> myTable1.CellSpacing = 0</p> <p> myCell.Controls.Add(myTable1)</p> <p> myRow1 = New TableRow</p> <p> myRow1.BorderWidth = New Unit(0)</p> <p> myTable1.Rows.Add(myRow1)</p> <p> myCell1 = New TableCell</p> <p> myCell1.CssClass = strCssMessage</p> <p> myCell1.BorderWidth = New Unit(0)</p> <p> myCell1.Width = New Unit(36)</p> <p> Dim Alertimage As System.Web.UI.WebControls.Image = New System.Web.UI.WebControls.Image</p> <p> Alertimage.Height = New Unit(intMessageBoxImageHeight)</p> <p> Alertimage.Width = New Unit(intMessageBoxImageWidth)</p> <p> Alertimage.BorderWidth = New Unit(0)</p> <p> Alertimage.ImageUrl = strImage</p> <p> myCell1.Controls.Add(Alertimage)</p> <p> myRow1.Cells.Add(myCell1)</p> <p> myCell1 = New TableCell</p> <p> myCell1.CssClass = strCssMessage</p> <p> myCell1.BorderWidth = New Unit(0)</p> <p> myCell1.CssClass = strCssMessage</p> <p> If strCssMessage = "" Then</p> <p> myCell1.HorizontalAlign = HorizontalAlign.Center</p> <p> myCell1.ForeColor = System.Drawing.Color.Black</p> <p> myCell1.BackColor = System.Drawing.Color.LightGray</p> <p> myCell1.BorderColor = System.Drawing.Color.LightGray</p> <p> myCell1.Font.Name = "Verdana"</p> <p> myCell1.Font.Bold = True</p> <p> myCell1.Font.Size = New FontUnit(8)</p> <p> End If</p> <p> Dim NewLabel1 As Label = New Label</p> <p> NewLabel1.Text = strMessage</p> <p> myCell1.Controls.Add(NewLabel1)</p> <p> myRow1.Cells.Add(myCell1)</p> <p> myRow = New TableRow</p> <p> myRow.BorderWidth = New Unit(0)</p> <p> myTable.Rows.Add(myRow)</p> <p> If intButton = 1 Or intButton > 3 Or intButton < 1 Then</p> <p> myCell = New TableCell</p> <p> myCell.ColumnSpan = 5</p> <p> myCell.BorderWidth = New Unit(0)</p> <p> myCell.CssClass = strCssMessage</p> <p> myCell.HorizontalAlign = HorizontalAlign.Center</p> <p> If strCssMessage = "" Then</p> <p> myCell.ForeColor = System.Drawing.Color.Black</p> <p> myCell.BackColor = System.Drawing.Color.LightGray</p> <p> myCell.Font.Name = "Verdana"</p> <p> myCell.Font.Bold = True</p> <p> myCell.Font.Size = New FontUnit(8)</p> <p> End If</p> <p> ButtonOK = New Button</p> <p> ButtonOK.ID = strMessageBoxIDYes</p> <p> ButtonOK.Text = strButtonYes</p> <p> ButtonOK.Width = New Unit(strButtonWidth)</p> <p> ButtonOK.Style.Add("CURSOR", "hand")</p> <p> myCell.Controls.Add(ButtonOK)</p> <p> myRow.Cells.Add(myCell)</p> <p> End If</p> <p> If intButton > 1 And intButton < 4 Then</p> <p> myCell = New TableCell</p> <p> myCell.CssClass = strCssMessage</p> <p> myCell.BorderWidth = New Unit(0)</p> <p> myCell.HorizontalAlign = HorizontalAlign.Right</p> <p> If strCssMessage = "" Then</p> <p> myCell.ForeColor = System.Drawing.Color.Black</p> <p> myCell.BackColor = System.Drawing.Color.LightGray</p> <p> myCell.Font.Name = "Verdana"</p> <p> myCell.Font.Bold = True</p> <p> myCell.Font.Size = New FontUnit(8)</p> <p> End If</p> <p> ButtonYes = New Button</p> <p> ButtonYes.ID = strMessageBoxIDYes</p> <p> ButtonYes.Text = strButtonYes</p> <p> ButtonYes.Width = New Unit(strButtonWidth)</p> <p> ButtonYes.Style.Add("CURSOR", "hand")</p> <p> myCell.Controls.Add(ButtonYes)</p> <p> myRow.Cells.Add(myCell)</p> <p> myCell = New TableCell</p> <p> myCell.Width = New Unit(20)</p> <p> myCell.BorderWidth = New Unit(0)</p> <p> myCell.CssClass = strCssMessage</p> <p> If strCssMessage = "" Then</p> <p> myCell.BackColor = System.Drawing.Color.LightGray</p> <p> End If</p> <p> myRow.Cells.Add(myCell)</p> <p> myCell = New TableCell</p> <p> myCell.CssClass = strCssMessage</p> <p> myCell.BorderWidth = New Unit(0)</p> <p> If strCssMessage = "" Then</p> <p> myCell.ForeColor = System.Drawing.Color.Black</p> <p> myCell.BackColor = System.Drawing.Color.LightGray</p> <p> myCell.Font.Name = "Verdana"</p> <p> myCell.Font.Bold = True</p> <p> myCell.Font.Size = New FontUnit(8)</p> <p> End If</p> <p> If intButton = 2 Then</p> <p> myCell.HorizontalAlign = HorizontalAlign.Left</p> <p> ElseIf intButton = 3 Then</p> <p> myCell.HorizontalAlign = HorizontalAlign.Center</p> <p> End If</p> <p> ButtonNo = New Button</p> <p> ButtonNo.ID = strMessageBoxIDNo</p> <p> ButtonNo.Text = strButtonNo</p> <p> ButtonNo.Width = New Unit(strButtonWidth)</p> <p> ButtonNo.Attributes("WIDTH") = strButtonWidth.ToString()</p> <p> ButtonNo.Attributes("HEIGHT") = strButtonWidth.ToString()</p> <p> ButtonNo.Style.Add("CURSOR", "hand")</p> <p> myCell.Controls.Add(ButtonNo)</p> <p> myRow.Cells.Add(myCell)</p> <p> If intButton = 3 Then</p> <p> myCell = New TableCell</p> <p> myCell.Width = New Unit(10)</p> <p> myCell.BorderWidth = New Unit(0)</p> <p> myCell.CssClass = strCssMessage</p> <p> If strCssMessage = "" Then</p> <p> myCell.BackColor = System.Drawing.Color.LightGray</p> <p> End If</p> <p> myRow.Cells.Add(myCell)</p> <p> myCell = New TableCell</p> <p> myCell.CssClass = strCssMessage</p> <p> myCell.BorderWidth = New Unit(0)</p> <p> myCell.HorizontalAlign = HorizontalAlign.Left</p> <p> If strCssMessage = "" Then</p> <p> myCell.ForeColor = System.Drawing.Color.Black</p> <p> myCell.BackColor = System.Drawing.Color.LightGray</p> <p> myCell.Font.Name = "Verdana"</p> <p> myCell.Font.Bold = True</p> <p> myCell.Font.Size = New FontUnit(8)</p> <p> End If</p> <p> ButtonCancel = New Button</p> <p> ButtonCancel.ID = strMessageBoxIDCancel</p> <p> ButtonCancel.Text = strButtonCancel</p> <p> ButtonCancel.Width = New Unit(strButtonWidth)</p> <p> ButtonCancel.Style.Add("CURSOR", "hand")</p> <p> myCell.Controls.Add(ButtonCancel)</p> <p> myRow.Cells.Add(myCell)</p> <p> End If</p> <p> End If</p> <p> End Sub</p> <p> Protected Overrides Sub AddAttributesToRender(ByVal writer As HtmlTextWriter)</p> <p> ' Rendering message box control to the browser</p> <p> MyBase.AddAttributesToRender(writer)</p> <p> writer.AddAttribute(HtmlTextWriterAttribute.Id, "showimage")</p> <p> ' writer.AddAttribute(HtmlTextWriterAttribute.Style, "Z-INDEX: 9999; LEFT:" + strLeft + "px; WIDTH:" + strLeft + "px; POSITION: absolute; TOP: " + strTop + "px; filter:progid:DXImageTransform.Microsoft.Shadow(color='dimgray', direction="135," strength="3;"")<br /> writer.AddAttribute(HtmlTextWriterAttribute.Style, "Z-INDEX: 9999; LEFT:" + strLeft + "px; WIDTH:" + strLeft + "px; POSITION: absolute; TOP: " + strTop + "px; filter:progid:DXImageTransform.Microsoft.Shadow(color=""dimgray"", direction=""135,"" strength=""3"");")</p> <p> End Sub</p> <p>End Class<br />
2. MessageBox.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="MessageBox.aspx.vb" Inherits="WebApplication13.MessageBox1"%><br /> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><br /> <HTML><br /> <HEAD><br /> <title>MessageBox</title><br /> <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0"><br /> <meta name="CODE_LANGUAGE" content="Visual Basic 7.0"><br /> <meta name="vs_defaultClientScript" content="JavaScript"><br /> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"><br /> </HEAD><br /> <body MS_POSITIONING="GridLayout"><br /> <form id="Form1" method="post" runat="server"><br /> <asp:PlaceHolder id="PlaceHolder1" runat="server"></asp:PlaceHolder><br /> <asp:Button id="Button1" style="Z-INDEX: 101; LEFT: 216px; POSITION: absolute; TOP: 8px" runat="server"<br /> Text="Click"></asp:Button><br /> </form><br /> </body><br /> </HTML><br />

3. MessageBox.aspx.vb
Public Class MessageBox1</p> <p> Inherits System.Web.UI.Page</p> <p> Protected WithEvents PlaceHolder1 As System.Web.UI.WebControls.PlaceHolder</p> <p> Protected WithEvents Button1 As System.Web.UI.WebControls.Button</p> <p> Dim newBox As MessageBox = New MessageBox</p> <p>#Region " Web Form Designer Generated Code "</p> <p> 'This call is required by the Web Form Designer.</p> <p> <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()</p> <p> End Sub</p> <p> Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init</p> <p> 'CODEGEN: This method call is required by the Web Form Designer</p> <p> 'Do not modify it using the code editor.</p> <p> InitializeComponent()</p> <p> End Sub</p> <p>#End Region</p> <p> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</p> <p> 'Put user code to initialize the page here</p> <p> CheckYesNo()</p> <p> End Sub</p> <p> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</p> <p> newBox.MessageBoxButton = 3</p> <p> newBox.MessageBoxTop = 50</p> <p> newBox.MessageBoxLeft = 150</p> <p> newBox.MessageBoxWidth = 300</p> <p> newBox.MessageBoxHeight = 150</p> <p> newBox.MessageBoxButtonWidth = 50</p> <p> newBox.MessageBoxIDYes = "yesno"</p> <p> newBox.MessageBoxIDNo = "yesno"</p> <p> newBox.MessageBoxIDCancel = "yesno"</p> <p> newBox.MessageBoxButtonYesText = "Yes"</p> <p> newBox.MessageBoxButtonNoText = "No"</p> <p> newBox.MessageBoxButtonCancelText = "Cancel"</p> <p> newBox.MessageBoxTitle = "Dynamic message box."</p> <p> newBox.MessageBoxMessage = "Do you want to continue?"</p> <p> newBox.MessageBoxImage = "information.gif"</p> <p> PlaceHolder1.Controls.Add(newBox)</p> <p> End Sub</p> <p> Private Sub CheckYesNo()</p> <p> If Request.Form("yesno") = "Yes" Then</p> <p> Response.Write("Button - Yes - Selected")</p> <p> ElseIf Request.Form("yesno") = "No" Then</p> <p> Response.Write("Button - No - Selected")</p> <p> ElseIf Request.Form("yesno") = "Cancel" Then</p> <p> Response.Write("Button - Cancel - Selected")</p> <p> End If</p> <p> End Sub</p> <p>End Class<br />