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

390 - Cargar Gif en control web

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

Para el ejemplo agregar

un control web llamado WebBrowser1 ( desde el menú componentes seleccionando Microsoft internet controls ).
Luego agregar un Textbox para indicar la ruta del Gif
y un CommandButton

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