Save image - bit depth?

[jamesd0142]

Private Sub SaveResized()
 
        Dim bm As New Bitmap(PictureBox1.Image)
 
        Dim myX As Integer
 
        Dim myY As Integer
 
        myX = 640
 
        myY = 480
 
        If myY = 0 Or myX = 0 Then Exit Sub Else 
 
        Dim thumb As New Bitmap(myX, myY)
 
        Dim g As Graphics = Graphics.FromImage(thumb)
 
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
 
        g.DrawImage(bm, New Rectangle(0, 0, myX, myY), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)
 
        g.Dispose()
 
        Dim message, title, defaultValue As String
 
        'Dim myValue As String
 
        'message = "Enter File Name:" ' Set prompt.
 
        'title = "Save Resized Photo" ' Set title.
 
        defaultValue = "" ' Set default value.
 
        'get name to save resized image, using Inputbox
 
        'myValue = InputBox(message, title, defaultValue)
 
        'If myValue = "" Then bm.Dispose() : thumb.Dispose() : Exit Sub Else 
 
        thumb.Save("C:\temp\Boot.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
 
        bm.Dispose()
 
        thumb.Dispose()
 
        'Dim caption As String = "Save Resized Photo"
 
        'MessageBox.Show("The Resized Photo has been saved as: " & i, caption, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
    End Sub
 

The code above formats the image in my picturebox and saves it accordingly.
Problem - The image bit depth is 32
i want it to be 16

can any1 help?

James

[Plater]

Have you tried adding in somewhere the following line:

thumb.PixelFormat = PixelFormat.Format16bppRgb555
 

You may want to check under the PixelFormat to see if there is on you like better.

[jamesd0142]

fixed it thanks...

changed line 15 above to:

Dim thumb As New Bitmap(myX, myY, Imaging.PixelFormat.Format16bppRgb555) '----