ASP.NET Message Box causing problems with SmartNavigation property

[Martz]

Hello everyone

I just use a MsgBox component for ASP.NET using Methods such as Render and
OnPreRender and JavaScript involved to get a simple Confirmation Box in
client side, but the funny thing is when I go SmartNavigation property equal
True the MessageBox does not come up!

But if you open another window and return to the browser you can see the
pop-up window !!!

Any Suggestions?

This is the complete code to Confirmation Pop-up:

Imports System.Componen tModel
Imports System.Web.UI
Imports System.Web.UI.W ebControls

Public Class MsgBox
Inherits System.Web.UI.W ebControls.WebC ontrol
Implements IPostBackEventH andler

Private _Message As String
Private _Key As String
Private _PostBackOnYes As Boolean
Private _PostBackOnNo As Boolean

Public Event YesChoosed(ByVa l sender As Object, ByVal Key As String)
Public Event NoChoosed(ByVal sender As Object, ByVal Key As String)

Public Sub ShowConfirmatio n(ByVal Message As String, ByVal Key As
String, ByVal PostBackOnYes As Boolean, ByVal PostBackOnNo As Boolean)
_Message = "ÑaÑa" & Message
_Key = Key
_PostBackOnYes = PostBackOnYes
_PostBackOnNo = PostBackOnNo
End Sub

Public Sub ShowMessage(ByV al Message As String)
_Message = Message
End Sub

Protected Overrides Sub OnPreRender(ByV al e As EventArgs)
If Not MyBase.Page.IsC lientScriptBloc kRegistered("Ms gBox") Then
Page.RegisterCl ientScriptBlock ("MsgBox", FuncionJava1())
End Sub

Private Function FuncionJava1() As String
Dim miPostBackOnYes As String = "MsgBoxTextoMen saje="""";"
Dim miPostBackOnNo As String = "MsgBoxTextoMen saje="""";"

If _PostBackOnYes Then
miPostBackOnYes = Page.GetPostBac kEventReference (Me, "Yes" & _Key)
End If
If _PostBackOnNo Then
miPostBackOnNo = Page.GetPostBac kEventReference (Me, "No_" & _Key)
End If

Return "<script language=""java script""> " & _
"var MsgBoxTipoMensa je; " & _
"var MsgBoxTextoMens aje; " & _
"window.attachE vent(""onfocus" ", MsgBoxMostrarMe nsaje); " & _
"function MsgBoxMostrarMe nsaje() { " & _
"if (MsgBoxTextoMen saje) { " & _
"if (MsgBoxTextoMen saje != """") { " & _
"if (MsgBoxTipoMens aje==2) {" & _
" alert(MsgBoxTex toMensaje); " & _
"} else {" & _
"if (confirm(MsgBox TextoMensaje)) { " & _
miPostBackOnYes & _
"} else { " & _
miPostBackOnNo & _
"}} MsgBoxTextoMens aje=""""; " & _
" }}} </script>"
End Function
<Security.Permi ssions.Permissi onSetAttribute( Security.Permis sions.SecurityA ction.Demand, Name:="FullTrus t")> _
Protected Overrides Sub Render(ByVal writer As
System.Web.UI.H tmlTextWriter)
If ModoDisenio(Me) Then
writer.Write(Me .ID)
Else
If _Message <> String.Empty Then
Dim miSB As System.Text.Str ingBuilder = New
System.Text.Str ingBuilder(_Mes sage)
miSB.Replace(Mi crosoft.VisualB asic.vbCr, " "c)
miSB.Replace(Mi crosoft.VisualB asic.vbLf, " "c)
miSB.Replace("" "", "'"c)

If miSB.ToString.S tartsWith("Ñaà ‘a") Then
Me.Page.Respons e.Write("<scrip t>MsgBoxTipoMen saje=1;
MsgBoxTextoMens aje=""" + _
miSB.ToString.S ubstring(4) + """;</script>")
Else
Me.Page.Respons e.Write("<scrip t>MsgBoxTipoMen saje=2;
MsgBoxTextoMens aje=""" + _
miSB.ToString + """;</script>")
End If
miSB = Nothing
End If
End If
End Sub

Private Shared Function ModoDisenio(ByV al QueControl As _
System.Web.UI.W ebControls.WebC ontrol) As Boolean
Dim DesignMode As Boolean = False
Try
DesignMode = QueControl.Site .DesignMode
Catch : End Try
Return DesignMode
End Function

Public Sub RaisePostBackEv ent(ByVal eventArgument As String) _
Implements IPostBackEventH andler.RaisePos tBackEvent
Select Case eventArgument.S ubstring(0, 3)
Case "Yes"
RaiseEvent YesChoosed(Me, eventArgument.S ubstring(3))
Case "No_"
RaiseEvent NoChoosed(Me, eventArgument.S ubstring(3))
End Select
End Sub

End Class
*************** *************** *************** ***

You can save this code and generate a Component, after that I am using this
code:

MsgBox1.ShowCon firmation("Do you want to delete this record?", "BORRAR",
True, False)

AND if you click and SmartNavigation equal True the Windows will not comes up!

I realized that and some computers does not appear the window even if the
NavigationSmart is False !!!

Any Suggestions????
--
Regards,
Martz

[Scott Allen]

Hi Martz:

SmartNav causes all sorts of difficulties when JavaScript and DHTML
are involved on the page. The only good workaround is to get rid of
SmartNav.

If you need to persist scroll position, there are some techniques to
do that for 1.1 on the web.

--
Scott
http://www.OdeToCode.com/blogs/scott/

On Thu, 28 Jul 2005 07:58:04 -0700, "Martz"
<Ma***@discussi ons.microsoft.c om> wrote:

Hello everyone

I just use a MsgBox component for ASP.NET using Methods such as Render and
OnPreRender and JavaScript involved to get a simple Confirmation Box in
client side, but the funny thing is when I go SmartNavigation property equal
True the MessageBox does not come up!

But if you open another window and return to the browser you can see the
pop-up window !!!

Any Suggestions?

This is the complete code to Confirmation Pop-up:

Imports System.Componen tModel
Imports System.Web.UI
Imports System.Web.UI.W ebControls

Public Class MsgBox
Inherits System.Web.UI.W ebControls.WebC ontrol
Implements IPostBackEventH andler

Private _Message As String
Private _Key As String
Private _PostBackOnYes As Boolean
Private _PostBackOnNo As Boolean

Public Event YesChoosed(ByVa l sender As Object, ByVal Key As String)
Public Event NoChoosed(ByVal sender As Object, ByVal Key As String)

Public Sub ShowConfirmatio n(ByVal Message As String, ByVal Key As
String, ByVal PostBackOnYes As Boolean, ByVal PostBackOnNo As Boolean)
_Message = "ÑaÑa" & Message
_Key = Key
_PostBackOnYes = PostBackOnYes
_PostBackOnNo = PostBackOnNo
End Sub

Public Sub ShowMessage(ByV al Message As String)
_Message = Message
End Sub

Protected Overrides Sub OnPreRender(ByV al e As EventArgs)
If Not MyBase.Page.IsC lientScriptBloc kRegistered("Ms gBox") Then
Page.RegisterC lientScriptBloc k("MsgBox", FuncionJava1())
End Sub

Private Function FuncionJava1() As String
Dim miPostBackOnYes As String = "MsgBoxTextoMen saje="""";"
Dim miPostBackOnNo As String = "MsgBoxTextoMen saje="""";"

If _PostBackOnYes Then
miPostBackOnYes = Page.GetPostBac kEventReference (Me, "Yes" & _Key)
End If
If _PostBackOnNo Then
miPostBackOnNo = Page.GetPostBac kEventReference (Me, "No_" & _Key)
End If

Return "<script language=""java script""> " & _
"var MsgBoxTipoMensa je; " & _
"var MsgBoxTextoMens aje; " & _
"window.attachE vent(""onfocus" ", MsgBoxMostrarMe nsaje); " & _
"function MsgBoxMostrarMe nsaje() { " & _
"if (MsgBoxTextoMen saje) { " & _
"if (MsgBoxTextoMen saje != """") { " & _
"if (MsgBoxTipoMens aje==2) {" & _
" alert(MsgBoxTex toMensaje); " & _
"} else {" & _
"if (confirm(MsgBox TextoMensaje)) { " & _
miPostBackOnYes & _
"} else { " & _
miPostBackOnNo & _
"}} MsgBoxTextoMens aje=""""; " & _
" }}} </script>"
End Function
<Security.Perm issions.Permiss ionSetAttribute (Security.Permi ssions.Security Action.Demand, Name:="FullTrus t")> _
Protected Overrides Sub Render(ByVal writer As
System.Web.UI. HtmlTextWriter)
If ModoDisenio(Me) Then
writer.Write(Me .ID)
Else
If _Message <> String.Empty Then
Dim miSB As System.Text.Str ingBuilder = New
System.Text.St ringBuilder(_Me ssage)
miSB.Replace(Mi crosoft.VisualB asic.vbCr, " "c)
miSB.Replace(Mi crosoft.VisualB asic.vbLf, " "c)
miSB.Replace("" "", "'"c)

If miSB.ToString.S tartsWith("ÑaÑa ") Then
Me.Page.Respons e.Write("<scrip t>MsgBoxTipoMen saje=1;
MsgBoxTextoMen saje=""" + _
miSB.ToString.S ubstring(4) + """;</script>")
Else
Me.Page.Respons e.Write("<scrip t>MsgBoxTipoMen saje=2;
MsgBoxTextoMen saje=""" + _
miSB.ToString + """;</script>")
End If
miSB = Nothing
End If
End If
End Sub

Private Shared Function ModoDisenio(ByV al QueControl As _
System.Web.UI.W ebControls.WebC ontrol) As Boolean
Dim DesignMode As Boolean = False
Try
DesignMode = QueControl.Site .DesignMode
Catch : End Try
Return DesignMode
End Function

Public Sub RaisePostBackEv ent(ByVal eventArgument As String) _
Implements IPostBackEventH andler.RaisePos tBackEvent
Select Case eventArgument.S ubstring(0, 3)
Case "Yes"
RaiseEvent YesChoosed(Me, eventArgument.S ubstring(3))
Case "No_"
RaiseEvent NoChoosed(Me, eventArgument.S ubstring(3))
End Select
End Sub

End Class
************** *************** *************** ****

You can save this code and generate a Component, after that I am using this
code:

MsgBox1.ShowCo nfirmation("Do you want to delete this record?", "BORRAR",
True, False)

AND if you click and SmartNavigation equal True the Windows will not comes up!

I realized that and some computers does not appear the window even if the
NavigationSmar t is False !!!

Any Suggestions????