Save image using Image Edit control

[mleach2]

Hi,

I'm trying to save a picture using the image edit control that comes with VB6. I am using the SaveAs method to save the .jpg file under another name but I keep getting a 321 error Invalid File Format.

Here's my Code:
ImgEdit1.SaveAs "C:\My Documents\" & Text1.Text & ".jpg", wiFileTypeJPG

Any help is appreciated

THanks
ML

[Bazza81]

Unless you learn huffman coding and write yourself a .jpeg algorithm your not going to be able to save it as anything else other than a .bmp!

[MarkT]

This works for me. With this control, I have always had better luck using the using numbers instead of any constants.

Option Explicit
 
Private Sub Command1_Click()
Dim strFile As String
 
    strFile = "C:\My Documents\" & Text1.Text & ".jpg"
    ImgEdit1.SaveAs strFile, 6, , 6, 1024
End Sub

[mleach2]

Thanks for the help but I am still getting the same error message:
Run Time error '321':

Invalid File Format

Unable to execute the SaveAs method

Here's my code for the Save button on my form:

Private Sub cmdSave_Click()
Dim strFile As String

If Text1.Text = "" Then
MsgBox "No File Name Entered", vbOKOnly
Else:
strFile = "C:\My Documents\" & Text1.Text & ".jpg"
ImgEdit1.SaveAs strFile, 6, , 6, 1024
End If
End Sub

These are .jpg pictures to begin with so I am not trying to save them in a different format, just trying to rename them. I can get it to work as long as I don't try to save it to the .jpg format.

[MarkT]

I'm not sure what the difference is, but at home where I'm running Win2K and VB with SP5 it runs fine. At work I'm using a Win98 machine and VB with SP4 and it comes up with the same error as what you are getting.