Función que maximiza el tamaño de la ventana del navegador visual .net - 30 de Noviembre 2012 - Solo codigos

Bienvenido(a) Visitante | RSS

Mi sitio

Inicio » » Función que maximiza el tamaño de la ventana del navegador visual .net

9:02 PM

Función que maximiza el tamaño de la ventana del navegador visual .net

' Función que maximiza el tamaño de la ventana del navegador hasta la resolución
    ' que tenga el cliente establecida.
    '
    '   --> Como entrada recibe la página a la que aplicar el script.

    Public Sub MaximizarVentana_TamañoPantalla(ByVal pagina As Page)

        Dim strScript As String = ""
        strScript &= "<script language=""JavaScript1.2"">" & vbCrLf
        strScript &= "window.moveTo(0,0);" & vbCrLf
        strScript &= "if (document.all) {" & vbCrLf
        strScript &= "top.window.resizeTo(screen.availWidth,screen.availHeight);" & vbCrLf
        strScript &= "}" & vbCrLf
        strScript &= "else if (document.layers||document.getElementById) {" & vbCrLf
        strScript &= "if (top.window.outerHeight<screen.availHeight||top.window.outerWidth<screen.availWidth){" & vbCrLf
        strScript &= "top.window.outerHeight = screen.availHeight;" & vbCrLf
        strScript &= "top.window.outerWidth = screen.availWidth;" & vbCrLf
        strScript &= "}" & vbCrLf
        strScript &= "}" & vbCrLf
        strScript &= "</script>" & vbCrLf

        pagina.ClientScript.RegisterClientScriptBlock(pagina.GetType(), "MaximizarPantalla", strScript)
        'pagina.RegisterClientScriptBlock("MaximizarPantalla", strScript)
    End Sub