Lagra och hämta bilder i databasen

Din image.save() minskar bildens kvalitet (om den sparas som Jpeg) till standardkomprimeringsnivån på cirka 75%.

Se den här MSDN-artikeln om att öka denna kvalitetsnivå när du anropar Spara genom att skicka in myEncoderParameters, som innehåller en kvalitetsnivå på en mycket högre nivå (säg 90%)

http://msdn.microsoft.com /en-us/library/system.drawing.imaging.encoder.quality.aspx

Eller se (otestad) koden nedan, det borde göra susen

    ' Create a a single encoder parameter envelope
    Dim EncoderParameters As New EncoderParameters(1)

    ' Create and add a single quality parameter to this envelope, specifying 95%
    Dim QualityParam As New EncoderParameter(Encoder.Quality, CType(95L, Int32))
    EncoderParameters.Param(0) = QualityParam

    ' Save the image with the encoder param specifying 95% quality
    _image.Save(_MemoryStream, _ImageFormat, EncoderParameters)