سؤال مستعجل عن الصور بصيغة Gif

ممكن ان تحفظ صورة فقط علي هيئة Gif او اي امتداد تريده باستخدام CommonDialog ولكن سيخفظ الصورة فقط و اذا اردت الطريقة فل لي ولكن بشأن الكتابة فلا اعلم...

شكراً لك أخ بيبو 2000 على سرعة الإستجابة وأتمنى أن تعطينا ما عندك ربما نكمل المشوار بعد تقديم ما عندك. لك شكري وتقديري سلفاً.

جرب هذا الملف :

أداة الصور جف اضفها أولاً في السيستم

دعوه صادقه(f)

qwer.zip

ضع CommonDialog سميه dialog و ضع صورة باسم Image1 و اكتب هذا الكود في زر الحفظ:

On Error GoTo handler
dialogue.Filter = "Jpeg Image|*.jpg|Gif Image|*.gif|Bitmap Image|*.bmp|Bitmap Image|*.dib|Icon Image|*.ico|Cursor Image|*.cur|Windows Meta File|*.wmf|Enhanced Windows Meta File|*.emf|RLE Image|*.rle"
dialogue.DialogTitle = "Save File as..."
dialogue.ShowOpen
If dialogue.FileTitle <> "" Then
Call SavePicture(Image1.Picture, dialogue.FileName)
MsgBox "File Saved   " & dialogue.FileName
End If
Exit Sub
handler:
MsgBox Err.Description

هذا سيحفظ الصورة في Image1 علي اي امتداد تريده..

:D

شكر وتقدير

الشكر الجزيل للأخوين منصور و Bibo2002 على هذه الردود وقد استفدت من أفكاركم وجزاكم الله خبراً