VB .NET  - Exibindo GIFs animadas

Exibir uma GIF animada no VB.NET parece brincadeira de criança. Tudo muito simples , basta carregar em um controle picturebox a imagem e pronto ! Por que não fizeram isto antes ???

Estas e muitas tarefas que antes exigiam API´s , códigos , controles de terceiros , etc e tal podem ser feitas de forma descomplicada no VB.NET , mais uma razão para você migrar...

A dica mostra como exibir uma GIF animada no VB.NET. Via código vou criar todos os controles necessários e exibir a GIF em um formulário.

Vou exibir a GIF animada martelo.gif presente na pasta d:\1.

1 - Inicie um novo projeto no Visual Studio.NET com as seguintes características (sinta-se a vontade para alterar a seu gosto.)

  1. Project Types : Visual Basic Projects
  2. Templates : Windows Application
  3. Name : GifAnimada
  4. Location : c:\vbnet\GifAnimada

2- Importe o  namespace System.Drawing =>   Imports System.Drawing

3- Inclua um botão de comando no formulário padrão - form1.vb - e a seguir inclua o código abaixo no evento Click do botão :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  
   Me.Text = " Exibindo GIF´s Animadas "

   Me.Size = New Size(300, 300)
 

   Dim pb As PictureBox = New PictureBox()

   pb.Size = New Size(250, 250)

   pb.Location = New Point(100, 100)

   pb.Image = New Bitmap("d:\1\martelo.gif")
 

   Me.Controls.Add(pb)
 

End Sub

4- Execute o projeto e clique no botão de comando para ver o resultado :

Até a próxima dica VB.NET..

Referências:

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

José Carlos Macoratti