• Home
 · 
• Graphics
 · 
• Convert a JPEG File to a BMP Format

Convert a JPEG File to a BMP Format

Convert a JPEG File to a BMP Format

Rate Convert a JPEG File to a BMP Format

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

On Error GoTo ErrHandler

    Dim vResult
    Dim sFileName As String
    
    Picture1.Visible = True 'Picture Control Used
    sFileName = Trim(BMPDestinationPath) & ".bmp"
    vResult = Dir(JPEGFilePath & ".jpg")
    If Not vResult = "" Then
        Picture1.Picture = LoadPicture(JPEGFilePath)
        Call SavePicture(Picture1, sFileName)
    End If
    Picture1.Visible = False
    Exit Sub
    
ErrHandler:
    MsgBox Str(Err.Number) + " : " + Err.Description, vbInformation
    Err.Clear