| Pregunta: | 17086 - PROBLEMA CON EL REDIMENSIONADO DEL CONTROL WEBBROWSER |
| Autor: | Juan Fco Fernandez Carrasco |
| Hola!
Tengo un control Webbrowser en un formulario y al cargar una cierta página (que contiene código javascript que redimensiona el documento) me redimensiona el control en si. ¿Existe alguna forma de que esto no ocurra? He buscado entre las propiedades y los eventos del control y no encuentro ninguna/o que me sirva para que éste no cambie de tamaño. Gracias por vuestra colaboración | |
| Respuesta: | frankkhan |
| te sale mejor si redimensionar el control y al mismo tiempo redimensionar el form que lo contiene, para esto usa el evento Browser_ClientToHostWindow(CX As Long, CY As Long); donde cx y cy son el tamaño en pixels en que se va a redimensionar el webbrowser.
si no queres que te lo redimensione hace algo asi: Me.Height = browser.height * Screen.TwipsPerPixelY Me.Width = browser.width * Screen.TwipsPerPixelX si queres que te lo redimencione(que es mejor), hace algo asi: Me.Height = CY * Screen.TwipsPerPixelY + (Me.Height - Browser.Height) Me.Width = CX * Screen.TwipsPerPixelX + (Me.Width - Browser.Width) lo que esta entre parentesis es el tamaño que sobra en el form para que no te oculte botones u otra cosa que tengas. por supuesto que tenes que tener el scalemode en twips para los dos casos. | |
| Respuesta: | Marito |
| Lo unico que se me ocurrio fue esto:
en un form agrega un webbrowser y un commandbutton Option Explicit Dim AnchoOriginal As Long Dim AltoOriginal As Long 'guardamos el alto y el ancho original del webbrowser Private Sub Form_Load() AnchoOriginal = WebBrowser1.Width AltoOriginal = WebBrowser1.Height End Sub 'cambiamos el tamaño del webbrowser y cargamos una pagina cualquiera Private Sub Command1_Click() WebBrowser1.Width = WebBrowser1.Width + 500 WebBrowser1.Navigate "www.terra.com.ar" End Sub 'luego que se descargo la pagina volvemos a cambiar el tamaño Private Sub WebBrowser1_Downloadcomplete() WebBrowser1.Width = AnchoOriginal WebBrowser1.Height = AltoOriginal End Sub Espero te sirva. Cualquier cosa avisame. Salu2. | |