Resize an image

[New_Coder]

I am using the following code to save an image into an MSAcess database using VB 2003 How can I resize the image to a fixed size? and two is there a cleaner way to do this Dim STREAM As System.IO.FileStream Dim READER As StreamReader Dim JPEG_FILE As String JPEG_FILE = txtPicFile.Text 'this is the path and file name of image STREAM = New FileStream(JPEG_FILE, FileMode.Open, FileAccess.Read, FileShare.Read) READER = New StreamReader(STREAM) Dim FILEBYTE(STREAM.Length - 1) As Byte STREAM.Read(FILEBYTE, 0, STREAM.Length) 'save image to database using DBS As DAO.Database and RST As DAO.Recordset... .Fields("Image").Value = FILEBYTE

[Christian Graus]

dim b as Bitmap = new Bitmap(txtPicFile.Text) I'm pretty sure there's another constructor that takes a bitmap and a new size, which you can use to resize it. Then you can access the bits of the bitmap in whatever format you like to write to the database, they are exposed on the bitmap object. Christian Graus - Microsoft MVP - C++

[Guffa]

That looks pretty straightforward. To resize an image you load the image into a Bitmap object, create a new Bitmap object with the size you want, and draw the first bitmap onto the new one scaled to that size. Save the image to a memorystream so that you easily can get it as a byte array. --- b { font-weight: normal; }

[New_Coder]

That sound straight forward. How do I do that? I asume you use the dim MyBitmap as bitmap ' creates the object but how do I set the size?

[Guffa]

New_Coder wrote:

dim MyBitmap as bitmap ' creates the object

That only creates a reference to the object. When you create the object you specify the size: MyBitmap = New BitMap(width, height) --- b { font-weight: normal; } -- modified at 13:39 Saturday 25th March, 2006

[New_Coder]

How do I get my image into the MyBitmap variable so I can save it back to the MSAccess database at a specific size? Thanks for your help