Exibindo imagens e miniaturas


Exibir figuras em um controle pictureBox é simples , e ,  o VB.NET oferece alguns recursos interessantes.

Nesta dica vou mostrar como exibir figuras e figuras em miniaturas usando a propriedade GetThumbnailImage do componente pictureBox.

O projeto usa os controles básicos: PictureBox , button e GroupBox

- O tamanho da imagem é exibido no seu tamanho normal . Configurando a propriedade SizeMode para StretchImage

- O tamanho da miniatura é definido pela linha de código:

Miniatura = Imagem.GetThumbnailImage(50, 50, Nothing, Nothing)

- A imagem do logotipo - Macoratti.net é exibida pelo código:

Dim mini As Image

Dim imagemlogo As New Bitmap("maco10.gif")

piclogo.Image = imagemlogo

 

O código é o seguinte:

Private Sub btnAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbrir.Click

 

Dim Miniatura As Image

Dim picOpen As OpenFileDialog = New OpenFileDialog()

 

picOpen.Title = "Selecione a imagem."

picOpen.Filter = ("Arquivos suportados|*.gif;*.jpg;*.bmp")

picOpen.ShowDialog()

 

Dim Imagem As New Bitmap(picOpen.FileName)

picImagem.Image = Imagem

Miniatura = Imagem.GetThumbnailImage(50, 50, Nothing, Nothing)

picMiniatura.Image = Miniatura

End Sub


 

Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click

Dim picSalva As SaveFileDialog = New SaveFileDialog()

 

picSalva.Title = "Selecione o arquivo Imagem para salvar como "

picSalva.Filter = ("JPeg Files|*.jpg")

picSalva.ShowDialog()

picMiniatura.Image.Save(picSalva.FileName, ImageFormat.Jpeg)

End Sub


 

Private Sub btnSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSair.Click

Me.Close()

End Sub


 

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim mini As Image

Dim imagemlogo As New Bitmap("maco10.gif")

piclogo.Image = imagemlogo

End Sub

Até breve...

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

Quer migrar para o VB .NET ?

Quer aprender C# ??

 

             Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter
 

Referências:


José Carlos Macoratti