Visual Basic, VB .NET, ASP, Active X, Access, SQL Server

Exibindo GIFs animados no VB 


Para exibir um gif animado no VB, você não precisa comprar um componente de terceiros. Você pode usar o controle WebBrowser. Para isto, selecione na lista de componentes do VB o item "Microsoft Internet Controls". Quando fizer isto, você verá o controle WebBrowser na caixa de ferramentas. Insira o controle em um formulário e, no evento Load, adicione o seguinte código:


WebBrowser1.Navigate "C:\Internet\anim.gif"

Onde o nome do arquivo aponta para o gif animado que você deseja exibir. Quando rodar o programa o Visual Basic exibirá o GIF.

Infelizmente, o WebBrowser também exibe uma barra de rolagem à direita. Acredite ou não, você pode desativar esta barra de rolagem exatamente como você normalmente faria via HTML desta forma

WebBrowser1.Navigate "about:<html><body scroll='no'><img
src='D:\Internet\anim.gif'></img></body></html>"

Agora, quando você rodar o programa, o Visual Basic exibirá a imagem sem a barra de rolagem. Uma sugestão para configurar a cor de fundo é criar uma página html com o gif e ajustar a cor de fundo como quiser. Navegue então para a página html e não para o gif. Na tab body da página, insira o scroll="no".