كيفية تحويل ملفات الصور الى انواع مختلفة ?

تحويل ملف JPEG إلي BMP

  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

وهناك مواضيع مشابهه في المنتدى فقط أستخدم زر البحث وأبحث عن أمتداد الصورة

شكرا اخى العزيز على ردك

واتمنى ان ترشدنى الى تلك المواضيع ، لاننى بحثت ولم اصل الى شىء

وكم المواضيع هائل جدا ( اللهم لا حسد )

وجزاك الله خيراً

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ،،

تفضل الأداة الموجودة في المرفقات ، ستجد فيها ضالتك بإذن الله .

PicFormat32.zip

شكراً اخى احمد ،

تم التحميل ، وجارى التجربة

جزاك الله خيراً

اخى الكريم ، لقد تم التحميل بنجاح ولكن عند التجربة فشلت

فاذا امكن ان تضع مشروع بها او حتى طريقة استخدامها ، سأكون شاكر لك جداً

وعسى ان تنفع كل من يبحث عنها

وشكرا