Member Avatar for tyserman5674

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.
Thanks,
Ken

  • 5 Contributors
  • 5 Replies
  • 185 Views
  • 1 Week Discussion Span
  • Latest Post Latest Post by sierrainfo

Recommended Answers

All 5 Replies

Member Avatar for jbennet

use javascript for the messagebox

Member Avatar for reena12

hi,

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

Member Avatar for Renukavani

hi
c this code
MessageBox.aspx

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

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

Member Avatar for tyserman5674

Renukavani,
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.
Thanks,
Ken

Member Avatar for sierrainfo

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.