
04/03/2008, 14:21
|
 | | | Fecha de Ingreso: enero-2007 Ubicación: Durango, Méx.
Mensajes: 175
Antigüedad: 18 años, 1 mes Puntos: 1 | |
Re: Mensaje JavaScript en aspx.vb Esto nos funciona a nosotros... tenemos una Página Base q heredan los demás WebForms y la clase contiene este método: - Permite mostrar mensajes en las paginas [Mensaje] -
************************** C# ************************************
.....protected void Mensaje(string ipMensaje)
.....{
........if (ipMensaje == "") return;
........StringBuilder Script = new StringBuilder();
.
........ipMensaje = ipMensaje.Replace(Convert.ToChar(13), ' ');
........ipMensaje = ipMensaje.Replace(Convert.ToChar(10), ' ');
........Script.Append("<script language='javascript'>" + Convert.ToChar(13));
........Script.Append(" alert('" + ipMensaje + "');" + Convert.ToChar(13));
........Script.Append("</script>" + Convert.ToChar(13));
........try
.......{
..........ClientScript.RegisterClientScriptBlock(S ystem.Type.GetType("javascript"), "<MENSAJE>", Script.ToString());
........}
........catch
........{ }
......}
************************** Vb ************************************
Protected Sub Mensaje(ipMensaje As String)
...If (ipMensaje = "") Then return
...Dim Script As New StringBuilder()
...ipMensaje = ipMensaje.Replace(Convert.ToChar(13), " "c)
...ipMensaje = ipMensaje.Replace(Convert.ToChar(10), " "c)
...Script.Append("<script language='javascript'>" & Convert.ToChar(13))
...Script.Append(" alert('" & ipMensaje & "');" & Convert.ToChar(13))
...Script.Append("</script>" & Convert.ToChar(13))
...Try
.........ClientScript.RegisterClientScriptBlock(Sy stem.Type.GetType("javascript"), "<MENSAJE>", Script.ToString())
...Catch
...End Try
End Sub
Para mandarlo llamar, solo es mediante Mensaje("Aqui va tu mensaje");
Espero te sirva, y recuerda postear comentando q te parece
Última edición por jlbautista; 04/03/2008 a las 14:35
Razón: Código convertido a VB gracias a elGuille.info (Usando la librería elGuille.Developer.deCSaVB.dll)
|