Redirect after MessageBox.

[reder]

I am using a VB.NET MessageBox which I found on the net. It basically creates a string of javascript containing an alert with the string you passed in and writes it to the end of the response stream.

After this has executed, I would like to redirect to a different page. However, if I Response.Redirect("somepage") after I have MessageBox.Show("Message") the message box is never displayed and the redirection takes place.

Below please find sections of the code for the messagebox. Any ideas on how I can get the MessageBox to show and then redirect would be great, thanks.

Public Shared Sub Show(ByVal sMessage As String)

        ' If this is the first time a page has called this method then 
        If Not m_executingPages.Contains(HttpContext.Current.Handler) Then

            ' Attempt to cast HttpHandler as a Page. 
            Dim executingPage As Page = TryCast(HttpContext.Current.Handler, Page)

            If executingPage IsNot Nothing Then

                ' Create a Queue to hold one or more messages. 
                Dim messageQueue As New Queue()

                ' Add our message to the Queue 
                messageQueue.Enqueue(sMessage)

                ' Add our message queue to the hash table. Use our page reference (IHttpHandler) as the key. 
                m_executingPages.Add(HttpContext.Current.Handler, messageQueue)

                ' Wire up Unload event so that we can inject some JavaScript for the alerts. 
                AddHandler executingPage.Unload, AddressOf ExecutingPage_Unload

            End If
        Else

            ' If were here then the method has allready been called from the executing Page. 
            ' We have allready created a message queue and stored a reference to it in our hastable. 
            Dim queue As Queue = DirectCast(m_executingPages(HttpContext.Current.Handler), Queue)

            ' Add our message to the Queue 
            queue.Enqueue(sMessage)

        End If

    End Sub

Private Shared Sub ExecutingPage_Unload(ByVal sender As Object, ByVal e As EventArgs)

        ' Get our message queue from the hashtable 
        Dim queue As Queue = DirectCast(m_executingPages(HttpContext.Current.Handler), Queue)

        If queue IsNot Nothing Then

            Dim sb As New StringBuilder()
            Dim sMsg As String
            Dim iMsgCount As Integer = queue.Count

            ' Use StringBuilder to build up our client slide JavaScript. 
            sb.Append("<script language='javascript'>")

            ' Loop round registered messages 
            While System.Math.Max(System.Threading.Interlocked.Decrement(iMsgCount), iMsgCount + 1) > 0
                sMsg = DirectCast(queue.Dequeue(), String)
                sMsg = sMsg.Replace(vbCrLf, "\n")
                sMsg = sMsg.Replace("""", "'")
                sb.Append("alert( """ & sMsg & """ );")
            End While

            ' Close our JS 
            sb.Append("</script>")

            ' Were done, so remove our page reference from the hashtable 
            m_executingPages.Remove(HttpContext.Current.Handler)

            ' Write the JavaScript to the end of the response stream. 
            HttpContext.Current.Response.Write(sb.ToString())

        End If

    End Sub

 

[ganesh71]

Hi Reder…
Instead using javascript u cn use vbscript in your asp.net page. After displaying msgbox u cn use a button called “OK” and when use press the button it’ll redirect to your desired webpage. Example is here…

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d As Integer
d = MsgBox("OK", MsgBoxStyle.OkOnly, "GoodLooking")
If d = 1 Then
Response.Redirect("yourdesiredpage.aspx")
End If
End Sub