Funcion global para mostrar mensaje error

[astrow25]

Hola en cada webform, para que muestre los errores tengo esta funcion

Public Sub MessageBoxJS(ByVal mensaje As String)
mensaje = mensaje.Replace("'", "\'")
mensaje = mensaje.Replace("""", "\" & """"c)
Dim scriptString As New StringBuilder("<script language=JavaScript>")
scriptString.Append("alert('" & mensaje & "');")
scriptString.Append("</script>")
Page.ClientScript.RegisterClientScriptBlock(Me.Get Type(), "PopupScript", scriptString.ToString())
End Sub

Lo que quisiera saber es como puedo hacer para no tener que poner lo mismo en cada webform, poner esta funcion en una clase, para poder utilizarla en todos los webforms.

Gracias

[SekaiNew]

Hola pues debes crear una clase nueva agreas el codigo ahi

Public Sub MessageBoxJS(ByVal mensaje As String, pagina As Page)
mensaje = mensaje.Replace("'", "\'")
mensaje = mensaje.Replace("""", "\" & """"c)
Dim scriptString As New StringBuilder("<script language=JavaScript>")
scriptString.Append("alert('" & mensaje & "');")
scriptString.Append("</script>")
pagina.ClientScript.RegisterClientScriptBlock(pagi na.GetType(), "PopupScript", scriptString.ToString())
End Sub

Y paso posterior te vas a tu webform y pones lo siguiente:

Dim objmensajes as New CLASE_MENSAJES
objmensajes.MessageBoxJS(mensaje_a_mostrar, me)

CLASE_MENSAJES= es el nombre de la clase que creaste y donde pusiste tu funcion.

Saludos.

[angel1993]

Una forma sería crear una extensión, no sé si sabes crearlas, para crearla crea un .vb en appcode llamado "Extensiones.vb" (por ejemplo) y pon en el interior

Código vb:

Imports System.Runtime.CompilerServices
 
Public Module Extensiones
   <Extension()>
    Public Sub Alerta(ByRef WebForm As System.Web.UI.Page, ByVal mensaje As String)
        Dim scriptString As New StringBuilder("<script language=JavaScript>")
        scriptString.Append("alert('" & mensaje & "');")
        scriptString.Append("</script>")
        WebForm.ClientScript.RegisterClientScriptBlock(WebForm.GetType(), "PopupScript", scriptString.ToString())
    End Sub
 
 
End Module
 

Luego en el webform pones

Código vb:

Me.Alerta("Hola Mundo!")
 

Más información sobre las extensiones http://msdn.microsoft.com/es-es/library/bb384936.aspx