' 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
...
Leer más »