Skip to main content
3 de 3
adicionou 355 caracteres ao conteúdo
João Martins
  • 5,7mil
  • 5
  • 16
  • 33

Tente criar a imagem com a gestão de cores original:

Dim imagem As Image = Image.FromFile(strImagem, True)

Se mesmo assim não ficar como pretende, implemente o seguinte método:

Private Function RetornaImagemComQualidade(ByVal strImagem As String) As Image
    Dim imagem As Image = Image.FromFile(strImagem, True)
    Dim objBitmapImagem As Bitmap = New Bitmap(imagem.Width, imagem.Height, PixelFormat.Format24bppRgb)

    objBitmapImagem.SetResolution(imagem.HorizontalResolution, imagem.VerticalResolution)

    Dim objGraphicsImagem As Graphics = Graphics.FromImage(objBitmapImagem)

    objGraphicsImagem.Clear(SystemColors.Control)
    objGraphicsImagem.CompositingQuality = CompositingQuality.HighQuality
    objGraphicsImagem.InterpolationMode = InterpolationMode.HighQualityBilinear
    objGraphicsImagem.SmoothingMode = SmoothingMode.HighQuality

    objGraphicsImagem.Dispose()

    Return objBitmapImagem
End Function

Passando o caminho da sua imagem por parâmetro.

Edit

Só reparei agora que está a utilizar uma ImageList para guardar as imagens antes de as colocar na ListView. Experimente fazer o seguinte:

thumbnail.ColorDepth = ColorDepth.Depth32Bit

Outra solução passa por não fazer o resize das imagens na ImageList e mantê-las do mesmo tamanho, fazendo isso depois apenas na ListView.

João Martins
  • 5,7mil
  • 5
  • 16
  • 33