Imports VistaToolbelt.Shell                          ' ThumbnailGenerator
 
Public Class Form1
 
 
  Private Sub Button1_Click(…) Handles Button1.Click
'******************************************************************************
    'getThumbnail("C:\...\Video1.avi")               '  720 x  576 
    'getThumbnail("C:\...\Video2.wmv")               ' 1440 x 1080 
    'getThumbnail("C:\...\Video3.mov")               ' 2816 x 1584 
    'getThumbnail("C:\...\Bild1.jpg")                ' 2816 x 1584 
     getThumbnail("C:\...\Bild2.jpg")                '  772 x  666 
    'getThumbnail("C:\...\Bild3.jpg")                '  770 x  260 
    'getThumbnail("C:\...\Bild4.jpg")                '  320 x  668 
    'getThumbnail("C:\...\VideoSymbol.png")          '   40 x   40 
 
    'getThumbnail("C:\...\xxx.png")                  ' -> Exit Sub
  End Sub
 
 
  Private Sub getThumbnail(ByVal strPathFile As String)
'******************************************************************************
  If IO.File.Exists(strPathFile) = False Then
    Beep
    Exit Sub
  End If
 
  Dim imgSource As Windows.Media.ImageSource = _
    ThumbnailGenerator.GenerateThumbnail(strPathFile)
  Dim imgBitmap As Bitmap = ThumbnailGenerator.BitmapSourceToBitmap(imgSource)
  Dim intW As Integer = imgBitmap.Width
  Dim intH As Integer = imgBitmap.Height
  Dim intX As Integer = 0
  Dim intY As Integer = 0
 
  Dim dblRelW, dblRelH As Double
  dblRelW = intW/176: dblRelH = intH/99 
 
  If dblRelW > 1 OR dblRelH > 1 Then
    If dblRelW > dblRelH Then
      intW = CInt(intW/dblRelW): intH = CInt(intH/dblRelW)
    Else
      intW = CInt(intW/dblRelH): intH = CInt(intH/dblRelH)
    End If
  End If
 
  intX = CInt((176-intW)/2): intY = CInt((99-intH)/2)
 
  Dim bmThumb As New Bitmap(ImageList1.Images.Item(0))
  Dim g As Graphics = Graphics.FromImage(bmThumb)
 
  g.DrawImage(imgBitmap, New Rectangle(intX, intY, intW, intH))
 
  Select Case IO.Path.GetExtension(strPathFile).ToLower
    Case ".wmv", ".avi", ".mov"
      Dim imgVideo As Image = ImageList1.Images.Item(1)
      g.DrawImage(imgVideo, 0, 0)
  End Select
 
  pb1.Image = bmThumb
  End Sub
 
End Class