Graphics.FromIm age and DrawImage

[kamikazehigh]

I need to write this sample code so that the resulting image is the exact same as the original.

            Dim a = New Bitmap( _
    My.Application.Info.DirectoryPath & "\a.png")
            Dim b As New Bitmap(a.Width, a.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            Dim g As Graphics = Graphics.FromImage(b)
            g.DrawImage(a, b.GetBounds(GraphicsUnit.Pixel))
            PictureBox1.Image = b
            b.Save("b.png", System.Drawing.Imaging.ImageFormat.Png)
            g.Dispose()

I don't understand what happens when I convert an image to graphics. Image.FromFile preserves all of the picture data, but graphics changes the picture size so that g.DrawImage(a, 0, 0) would be a larger picture, but cropped to the original's size. Graphics.FromIm age resizes the picture and so some quality is lost. Can this be rewritten so that the result is the same as the original?

Edit: I need to get the above to work, but

 Dim b As New Bitmap(a) 

also results in a similar loss of quality.

[IronRazer]

Hello kamikazehigh,
I have looked at the code and even tested it but i was unable to produce the results you talked about. I do notice that the b.png is slightly different as the png i tested was 82.1 kb in size and the output was 86 kb but, I did not see a difference in height or width of b.png. If you mean that the image in the picturebox is clipped then try setting the size mode property of the picturebox to zoom. If you don`t need to use the a, b, and g variables for any other purpose then you could simply use the following which produces a very accurate copy of the picture :

        PictureBox1.ImageLocation = My.Application.Info.DirectoryPath & "\a.png"
        PictureBox1.Image.Save(My.Application.Info.DirectoryPath & "\b.png", System.Drawing.Imaging.ImageFormat.Png)