Sección de códigos , trucos y ejemplos para visual basic


390 - Cargar Gif en control web

<Volver> - Anterior - Siguiente



 

Ejemplo enviado por Juan Paz , para poder visualizar gifs animados en un control web

 

Para el ejemplo agregar

 

 

 

Nota: en el método Navigate, se especifica que al control, mediante el atributo Scroll de la eqtiqueta Body, no despliegue las barras de Scroll.

También, Si se quiere poder ajustar el tamaño del control web, al tamaño del archivo cargado , es decir el ancho y alto, en este ejemplo hay una forma : Redimensionar imagen en un WebBrowser en Visual basic

 

Código fuente en el form:

Option Explicit

Private Sub Command1_Click()
Call Cargar(Text1.Text)
End Sub

Private Sub Form_Load()
Command1.Caption = "Cargar"
Text1.Text = "http://www.gifmania.com/juguetes/playa/bumb1.gif"
End Sub

' recibe el path del gif
'''''''''''''''''''''''''''

Sub Cargar(Gif As String)

' carga el archivo
WebBrowser1.Navigate "about:<html><body scroll=" & _
Chr(39) & "no" & Chr(39) & "><img src=" & _
Chr(39) & Gif & Chr(39) & "></img></body></html>"
End Sub

 



Buscar en Recursos vb