Hi All,
Can anyone please help me out here? I have been trying now for about 6 hours on trying to convert this code from vb.net to asp.net

MessageBox.Show("Press OK To Continue..", "Mortgage Amortization Table", MessageBoxButtons.OK, MessageBoxIcon.Question)

All I want to do is after displaying 20 lines of a schedule for the list box to pause until the OK button is clicked. Then it is to display another 20 lines of the schedule, OK button clicked again, until it is complete.
Any help would be appreciated, very much.

Recommended Answers

All 5 Replies

use javascript for the messagebox


I think messagebox will not work in ASP.NET.
you can solve it through JAVA SCRIPT

c this code

<%@ Page Language="vb" AutoEventWireup="false"

Codebehind="MessageBox.aspx.vb" Inherits="ASPMessageBox.MessageBox1"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">




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


<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>





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.


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


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"


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

if ur problem solved plz mask as solved

Thank you very much for your reply, you had to of spent a little time on i, thanks again.
Now I have to try and decipher it.

Dim strMessage As String
strMessage = "Connection is Created"
'finishes server processing, returns to client.
Dim strScript As String = "<script language=JavaScript>"
strScript += "alert(""" & strMessage & """);"
strScript += "</script"
If (Not ClientScript.IsStartupScriptRegistered("clientScript")) Then
ClientScript.RegisterClientScriptBlock(Me.GetType(), "clientScript", strScript)
End If

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.