Convert a JPEG File to a BMP Format

by Anonymous (267 Submissions)
Category: Graphics
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 28^th October 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Convert a JPEG File to a BMP Format



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

Download this snippet Add to My Saved Code

Convert a JPEG File to a BMP Format Comments

No comments have been posted about Convert a JPEG File to a BMP Format. Why not be the first to post a comment about Convert a JPEG File to a BMP Format.

Convert a JPEG File to a BMP Format

Convert a JPEG File to a BMP Format Comments

Post your comment

Difficulty