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
.