Thumbnails

[BigKev]

In my search to be user friendly I wanted to show the Icon for a selected file in one of my applications. I wanted it to be the same as the icon shown in Explorer. After much trawling through the web I pieced together bits of code and came up with the class attached.

The Class code file contains a list of the References required.

Add a PictureBox control to your project, I called mine pb, Set the SizeMode property to StretchImage and then use this code to set the Image property.

Dim bm As Bitmap = Thumbnails.Thumbs.GenerateThumbnail(f, pb.Width, pb.Height)

pb.Image = bm
pb.Refresh()

Cheers,
Kevin

[HansV]

Hi Kevin,

Thanks, but your attachment contains a .7z file. Not all Loungers will be able to open this file, since the zip functionality built into Windows doesn't support the 7-Zip format.

[BigKev]

Sorry, I selected the .Zip option from 7-Zip and it added a .7z file to a .Zip archive. Reposted with a .Zip file attachment.

[HansV]

Thanks, that's better.