Skip to main content
adicionou 355 caracteres ao conteúdo
Fonte Link
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.

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.

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.

Alteração de C# para VB.NET
Fonte Link
João Martins
  • 5,7mil
  • 5
  • 16
  • 33

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

ImageDim imagem As Image = Image.FromFile(caminho_thumbstrImagem, trueTrue);

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

privatePrivate ImageFunction RetornaImagemComQualidade(stringByVal strImagem As String)
{ As Image
    ImageDim imagem As Image = Image.FromFile(strImagem, trueTrue);
    BitmapDim objBitmapImagem As Bitmap = newNew Bitmap(imagem.Width, imagem.Height, PixelFormat.Format24bppRgb);

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

    GraphicsDim objGraphicsImagem As Graphics = Graphics.FromImage(objBitmapImagem);

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

    objGraphicsImagem.Dispose();

    returnReturn objBitmapImagem;objBitmapImagem
}End Function

Passando o caminho da sua imagem por parâmetro.

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

Image imagem = Image.FromFile(caminho_thumb, true);

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

private Image RetornaImagemComQualidade(string strImagem)
{
    Image imagem = Image.FromFile(strImagem, true);
    Bitmap objBitmapImagem = new Bitmap(imagem.Width, imagem.Height, PixelFormat.Format24bppRgb);

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

    Graphics objGraphicsImagem = Graphics.FromImage(objBitmapImagem);

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

    objGraphicsImagem.Dispose();

    return objBitmapImagem;
}

Passando o caminho da sua imagem por parâmetro.

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.

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

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

Image imagem = Image.FromFile(caminho_thumb, true);

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

private Image RetornaImagemComQualidade(string strImagem)
{
    Image imagem = Image.FromFile(strImagem, true);
    Bitmap objBitmapImagem = new Bitmap(imagem.Width, imagem.Height, PixelFormat.Format24bppRgb);

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

    Graphics objGraphicsImagem = Graphics.FromImage(objBitmapImagem);

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

    objGraphicsImagem.Dispose();

    return objBitmapImagem;
}

Passando o caminho da sua imagem por parâmetro.