DaniWeb IT Discussion Community

hi
c this code
MessageBox.aspx

Quote:

<%@ 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">

<asp:PlaceHolder id="PlaceHolder1" runat="server"></asp:PlaceHolder>

<asp:Button id="Button1" style="Z-INDEX: 101; LEFT: 95px; POSITION: absolute; TOP: 99px" runat="server" Text="Click"></asp:Button>

</form>

</body>

</HTML>

MessageBox.aspx.vb

Quote:

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

otherwise c the link
http://www.dnzone.com/ShowDetail.asp?NewsId=861

if ur problem solved plz mask as solved