 |  |  |  |  |  |  |  |
Message Box
Please support our VB.NET advertiser: Intel Parallel Studio Home
 |
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
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
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
VB.NET Syntax (Toggle Plain Text)
Any help would be appreciated, very much.
Thanks,
Ken
•
•
Join Date: Jul 2008
Posts: 65
Reputation: 
Solved Threads: 6
Junior Poster in Training
hi
c this code
MessageBox.aspx
MessageBox.aspx.vb
otherwise c the link
http://www.dnzone.com/ShowDetail.asp?NewsId=861
if ur problem solved plz mask as solved
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">
<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
http://www.dnzone.com/ShowDetail.asp?NewsId=861
if ur problem solved plz mask as solved
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
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
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
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
|
Similar Threads
- how to print out an array in a message box (Java)
- Message Box Switch Statement (Java)
- I need the Mac OS X message box function (C)
- message box (ASP.NET)
- Time Release Message Box (C)
- download message box's events (ASP)
- repeating the whole program after pressing Yes button in the confirmation message box (Java)
Other Threads in the VB.NET Forum
- Previous Thread: ComboBox.SelectedValueChanged Event keeps firing
- Next Thread: datatype mismatch error
| Thread Tools | Search this Thread |
You need to join our community in order to build your list of favorite forums. You can visit the forum index for a listing of all forums.
Related Forum Features
Latest VB.NET Posts
- Today's Posts
- Unanswered Threads
"crystal .net .net2005 30minutes 2005 2008 access account arithmetic array basic binary bing button buttons center check code component connectionstring crystalreport data database databasesearch datagrid datagridview date design dissertation dissertations dissertationthesis dropdownlist excel fade file-dialog folder ftp generatetags hardcopy image images input insert intel internet login math mobile monitor ms navigate net networking objects opacity output passingparameters peertopeervideostreaming picturebox picturebox1 port problem problemwithinstallation project reports" savedialog searchvb.net select serial shutdown soap string survey tcp temperature text textbox timer toolbox trim update updown user usercontrol vb vb.net vb.netcode vb.netformclosing()eventpictureboxmessagebox vb.nettoolboxvisualbasic2008sidebar vb2008 vbnet view visual visualbasic visualbasic.net visualstudio visualstudio2008 web winforms wpf
