Create thumbnail FILE

[Bryan]

Hi, I have a Image control that already resizes my image to the desired thumbnail prepositions.
But now I need to know how to take that image and save it to a file with those dimensions.

Everything I try, I just keep resaves it like it was before I resized it.

If you can help, please do!

[Edited by Bryan on 05-05-2000 at 03:25 PM]

[Fox]

Use a picturebox and stretch it with StretchBlt or PaintPicture. Then you can save it like this:

SavePicture Picture1.Image, "C:\x.bmp"

[Bryan]

I have never used either of those. This is what I have tried and it doesnt seem to work.

picSave.PaintPicture imgPreview.Picture, 0, 0, imgPreview.Width, imgPreview.Height
SavePicture picSave.Image, App.Path & "\temp.bmp"

When I veiw the image I get a blank box, but its the right width and height.

Can you tell me what I am doing wrong?

[Edited by Bryan on 05-05-2000 at 01:24 PM]

[kedaman]

First, don't use stretchblt, its slower than paintpicture.

I havent seen your app Bryan, but i thinks it's the same old problem people gets when they use pictures.

Just set the image property to the picture property before you handle the picture with paintpicture. Also, save the picture instead of the image.

[Bryan]

Ok, now this is the code I am using, and this is what I am getting.
I have already set imgPreview and resized it and everything shows up fine.
Then I call this code to create the thumbnial.

picSave.PaintPicture imgPreview.Picture, 0, 0, imgPreview.Width, imgPreview.Height
SavePicture picSave.Picture, App.Path & "\thumbnail\" & cmbName.Text & "th.bmp"

returns:

? imgPreview.Picture
 3002 
?picSave.Picture
 0

I have no clue what to do to fix this?

[Bryan]

Ok, I have changed my code a tad. But it still doesnt work.

Dim BorderHt As Integer, BorderWd As Integer
picSave.PaintPicture imgPreview.Picture, 0, 0, imgPreview.Width, imgPreview.Height
    
BorderWd = picSave.Width - picSave.ScaleWidth
BorderHt = picSave.Height - picSave.ScaleHeight
picSave.Move picSave.Left, picSave.Top, imgPreview.Width + BorderWd, imgPreview.Height + BorderHt

    
SavePicture picSave.Image, App.Path & "\thumbnail\" & cmbName.Text & "th.bmp"

This are the results..

? imgPreview.Picture
 16886 
? picSave.Picture
 0 
? picSave.Image
 3002

Any ideas???

[kedaman]

picsave.image=picsave.picture

[Bryan]

I get a invalid use of proptery.

[kedaman]

sorry, damn how stupid can i be! Put the other way round

[Bryan]

Ok, here is all of the code, and when it runs, I get a Grey box as the .bmp file, the only thing that seems right is the proportions.

Private Sub SaveThumbnail()

    Dim BorderHt As Integer, BorderWd As Integer
    picSave.PaintPicture imgPreview.Picture, 0, 0, imgPreview.Width, imgPreview.Height
    
    BorderWd = picSave.Width - picSave.ScaleWidth
    BorderHt = picSave.Height - picSave.ScaleHeight
    picSave.Move picSave.Left, picSave.Top, imgPreview.Width + BorderWd, imgPreview.Height + BorderHt
    
    picSave.Picture = picSave.Image
    
    SavePicture picSave.Image, App.Path & "\thumbnail\" & cmbName.Text & "th.bmp"
    
End Sub

These are my immediate's:

? imgPreview.Picture
 16906 
? picSave.Image
 6194 
? picSave.Picture
 17978

Please can someone help me figure this out?

Thanks
--Bryan

[kedaman]

Private Sub SaveThumbnail()

    Dim BorderHt As Integer, BorderWd As Integer
    picSave.PaintPicture imgPreview.Picture, 0, 0, imgPreview.Width, imgPreview.Height
    
    BorderWd = picSave.Width - picSave.ScaleWidth
    BorderHt = picSave.Height - picSave.ScaleHeight
    picSave.Move picSave.Left, picSave.Top, imgPreview.Width + BorderWd, imgPreview.Height + BorderHt
    
    
    SavePicture picSave.Picture, App.Path & "\thumbnail\" & cmbName.Text & "th.bmp"
    
End Sub

[Edited by kedaman on 05-09-2000 at 01:42 AM]

[Bryan]

I have tried lots of code, but still doesnt work. Does anyone have an answer.

Thanks,
Bryan

[kedaman]

In properties > picasve put AutoRedraw = True

Private Sub SaveThumbnail()
    picsave.PaintPicture imgpreview.Picture, 0, 0, picsave.Width, picsave.Height, 0, 0, imgpreview.Width, imgpreview.Height 'Resize
    SavePicture picsave.Picture, App.Path & "\thumbnail\" & cmbName.Text & "th.bmp"
End Sub

[Bryan]

Ok, we are getting somewhere. Now it actually draws something, and I can see something other then a grey box when I look at the image it created. But it only draws the top left corner. Here is the code I am using

Private Sub SaveThumbnail()

    picSave.PaintPicture imgPreview.Picture, 0, 0, picSave.Width, picSave.Height, 0, 0, imgPreview.Width, imgPreview.Height 'Resize
    SavePicture picSave.Image, App.Path & "\thumbnail\" & cmbName.Text & "th.bmp"
    
End Sub

[Bryan]

Ok, I got it. This is what I had to do.

Set the picSave AutoRedraw to True, then I used this code:

Private Sub SaveThumbnail()
    
    'Set picSave's height and width
    picSave.Width = imgPreview.Width
    picSave.Height = imgPreview.Height
    
    'Clear picSave
    picSave.Picture = LoadPicture()
    
    'Copy Image to picSave
    picSave.PaintPicture imgPreview.Picture, 0, 0, imgPreview.Width, imgPreview.Height
    
    'Save Picture
    SavePicture picSave.Image, App.Path & "\thumbnail\" & cmbName.Text & "th.bmp"
    
End Sub

And it works! Thanks for all the help everyone!!!

[Edited by Bryan on 05-10-2000 at 12:00 PM]