Visual Basic - Visualizar una imagen de una url

Life is soft - evento anual de software empresarial

Visualizar una imagen de una url

Publicado por Raquel (8 intervenciones) el 21/03/2006 09:22:25

Hola a tod@s, a ver si me podeis ayudar, estoy intentando visualizar en un control una imagen que está en una url y redimensionarla al tamaño del control. He probado con el image pero no me carga una direccion de internet por mas que lo intento y con el control webbrowser no consigo redimensionarla. La única opción que he encontrado es descargar la imagen en local para cargarla en el image pero esto no es lo que busco ¿Que me sugerís?

- Opcion con la que consigo visualizar pero no me permite redimensionar:
WebBrowser1.Navigate ("http://fotos.infotarifa.com/baja/643/16.jpg")

- No consigo visualizar:
Image1.picture = LoadPicture("http://fotos.infotarifa.com/baja/643/16.jpg")

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:Visualizar una imagen de una url

Publicado por Cecilia Colalongo (3116 intervenciones) el 21/03/2006 14:14:55

Fijate de utilizar la función URLDownloadToFile. En:

http://www.mentalis.org/apilist/URLDownloadToFile.shtml

tienes la documentación y un ejemplo.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

redimensionar en WebBrowser

Publicado por Juan_K (181 intervenciones) el 21/03/2006 19:19:26

Hola.
un ejemplo de como redimencinar una imagen en el WebBrowser, mi WebBrowser se llama "WB".
==================================================================
Private Sub Form_Load()
Me.ScaleMode = vbPixels
WB.Navigate "" 'una pagina o imagenlocal seria mejor
End Sub

'***************************************************************************************
'&& Con este codigo puedes dimensionar la imagen al tamaño del WebBrowser
'***************************************************************************************
Private Sub Command1_Click()

Tu_URL = "http://fotos.infotarifa.com/baja/643/16.jpg"

strHTML = "<BODY scroll=no>" ' pues para no mostrar scrollbars
strHTML = strHTML & "<img src=" & Tu_URL
strHTML = strHTML & " style=""LEFT: 0px; TOP: 0px; POSITION: absolute;"
strHTML = strHTML & " WIDTH: " & WB.WIDTH & "px; HEIGHT: " & WB.Height & "px"" >"
strHTML = strHTML & "</BODY>"

WB.Document.write strHTML
End Sub

'*******************************************************************************
'&& Y con este redimensinas el WebBrowser al tamaño de la imagen
'*******************************************************************************
Private Sub Command2_Click()
Dim img As Variant
Tu_URL = "http://fotos.infotarifa.com/baja/643/16.jpg"

strHTML = "<BODY scroll=no>" ' pues para no mostrar scrollbars
strHTML = strHTML & "<img id=MiImg src=" & Tu_URL
strHTML = strHTML & " style=""LEFT: 0px; TOP: 0px; POSITION: absolute;"" "
strHTML = strHTML & "</BODY>"

WB.Document.write strHTML

'obtenemos una referencia a la imagen
Set img = WB.Document.getElementById("MiImg") ' "MiImg" es el ID de la Imagen
WB.Height = img.Height
WB.WIDTH = img.WIDTH
End Sub
==================================================================
Espero te sirva ...

Valora esta respuesta

Comentar

RE:redimensionar en WebBrowser

Publicado por Raquel (8 intervenciones) el 24/03/2006 11:56:41

Hola Juan_K, muchas gracias por la idea, pero ahora me ha surgido otro problema. Al ejecutar el codigo HTML pasándole el ancho y largo del control creo que no es equivalente los pixeles de Visual con los de Windows porque la imagen sale tan grande que no se ve.

Valora esta respuesta

Comentar

RE:redimensionar en WebBrowser

Publicado por Juan_K (181 intervenciones) el 24/03/2006 15:01:48

Recuerda q tu formulariio debe tener la propiedad ScaleMode a Pixeles
Lo puedes hacer en la vantana de propiedades o por codigo

Me.ScaleMode = vbPixels

Valora esta respuesta

Comentar

redimensionar en WebBrowser

Publicado por Joseua84 (1 intervención) el 06/05/2012 16:14:14

Necesito redimensionar la imagen de una URL desde WebBrowser en Access 2003, pero el código que has publicado no me funciona. Lo raro es que no me da ningún error, sino que no me lo redimensiona como quiero.

El código que tengo es el siguiente, es para visualizar las portadas de los libros que tengo en la base de datos:
Private Sub Form_Load()
ScaleMode = vbPixels
WB.Navigate Tu_URL 'una pagina o imagenlocal seria mejor
End Sub

'***************************************************************************************
'&& Con este codigo puedes dimensionar la imagen al tamaño del WebBrowser
'***************************************************************************************
Private Sub Command1_Click()

Tu_URL = "http://www.planetadelibros.com/usuaris/libros/fotos/2/original/1163_1_ElJarama.jpg"

strHTML = "<BODY scroll=no>" ' pues para no mostrar scrollbars
strHTML = strHTML & "<img src=" & Tu_URL
strHTML = strHTML & " style=LEFT: 0px; TOP: 0px; POSITION: absolute;"
strHTML = strHTML & " WIDTH: " & WB.Width & "px; HEIGHT: " & WB.HEIGHT & "px"" >"
strHTML = strHTML & "</BODY>"

WB.Document.write strHTML
End Sub

'*******************************************************************************
'&& Y con este redimensinas el WebBrowser al tamaño de la imagen
'*******************************************************************************
Private Sub Command2_Click()
Dim img As Variant
Tu_URL = "http://www.planetadelibros.com/usuaris/libros/fotos/2/original/1163_1_ElJarama.jpg"

strHTML = "<BODY scroll=no>" ' pues para no mostrar scrollbars
strHTML = strHTML & "<img id=MiImg src=" & Tu_URL
strHTML = strHTML & " style=""LEFT: 0px; TOP: 0px; POSITION: absolute;"" "
strHTML = strHTML & "</BODY>"

WB.Document.write strHTML

'obtenemos una referencia a la imagen
Set img = WB.Document.getElementById("MiImg") ' "MiImg" es el ID de la Imagen
WB.HEIGHT = img.HEIGHT
WB.Width = img.Width
End Sub

Saludos y gracias!!

Valora esta respuesta

Comentar

bisual + mysql mucisimos registros

AYUDA CON FORMULARIOS