foto list

[Guest]

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

 

[scorpion53061]

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