Dim caminho As String
Dim imagem As Image
Dim vista_reduzida As Image
Dim a As System.Drawing.Image.GetThumbnailImageAbort
Dim b As System.IntPtr
Try
imagem = imagem.FromFile(caminho)
Dim resolucao_V As Single = imagem.Width
Dim resolucao_H As Single = imagem.Height
If resolucao_H > 992 And resolucao_V > 712 Then
vista_reduzida = imagem.GetThumbnailImage(992, 712,
a, b)
Me.PictureBox1.Image = vista_reduzida
Else
Me.PictureBox1.Image = Image.FromFile(caminho)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "SIGDIN",
MessageBoxButtons.OK, MessageBoxIcon.Error,
MessageBoxDefaultButton.Button3)
End Try
"angus" <an***@discussions.microsoft.com> wrote in message
news:an***@discussions.microsoft.com:
i'm trying to make an photo album, and i want a thumbnail view of al the
foto's in an album. i just don't know how to do that.
i've treid a few things:
-i've used picture box'ses. every photo that is in the file, get's a PB,
when the next foto comes it creates a new PB at a new position.
-i've treid to use a image list, but i can't figure out how to get the
thumbnails in the listview.
so can somebody point me in the right direction, or give a link to an
sample
project