Función para cerrar la ventana del navegador transcurrido un determinado tiempo visual .net - 30 de Noviembre 2012 - Solo codigos

Bienvenido(a) Visitante | RSS

Mi sitio

Inicio » » Función para cerrar la ventana del navegador transcurrido un determinado tiempo visual .net

9:01 PM

Función para cerrar la ventana del navegador transcurrido un determinado tiempo visual .net

    ' Función para cerrar la ventana del navegador transcurrido un determinado tiempo.
    '
    ' -->> Como entrada recibe la página a la que aplicar la función y el número de segundos
    '      tras los cuales se cerrará la ventana del navegador.
    '
    Public Sub CerrarPantalla_TimeOut(ByVal pag As Page, ByVal Segundos As Integer)

        Dim strScript As String
        Segundos = Segundos * 1000

        strScript = "<script type=""text/javascript"">" & vbCrLf
        strScript &= "function cerrar() " & vbCrLf
        strScript &= "{" & vbCrLf
        strScript &= "var ventana = window.self" & vbCrLf
        strScript &= "ventana.opener = window.self" & vbCrLf
        strScript &= "ventana.close()" & vbCrLf
        strScript &= "}" & vbCrLf
        strScript &= "setTimeout(""cerrar()"", " & Segundos & ")" & vbCrLf
        strScript &= "</script>" & vbCrLf

        pag.ClientScript.RegisterStartupScript(pag.GetType(), "CerrarVentanaTimeOut", strScript)
        'pag.RegisterClientScriptBlock("CerrarVentanaTimeOut", strScript)

    End Sub