[أبو عمر]

هههههههههههههه
رحم الله والديك
Gif.Components.dll

[أبو عمر]

اشكرك هذا نتيجة  مساعدتك لي دمت طيباً

[سعود]

أبشرك لقيت طريقة للاستخدام
http://stackoverflow.com/questions/11963...gif-in-net
بقي كيف اجعل الحركة مستمرة

[أبو عمر]

والله يا اخي مريت عليه من قبل لكني ما فهمت منه شي مع اني طبقت الكود وغيرته vb
بس ما نجح معي وهم مستعينين بملفين dll
الكلاس اللي مثالك اعجبتني فيه جودة الصورة
لان اغلب برامج التحويل تغيير من الوان الصورة شوي
لكن راح احاو

---

اكيد فيه loop

---

PHP كود :

Using collection As New MagickImageCollection()
    ' Add first image and set the animation delay to 100ms
    collection.Add("Snakeware.png")
    collection(0).AnimationDelay = 100
    ' Add second image, set the animation delay to 100ms and flip the image
    collection.Add("Snakeware.png")
    collection(1).AnimationDelay = 100
    collection(1).Flip()
    ' Optionally reduce colors
    Dim settings As New QuantizeSettings()
    settings.Colors = 256
    collection.Quantize(settings)
    ' Optionally optimize the images (images should have the same size).
    collection.Optimize()
    ' Save gif
    collection.Write("Snakeware.Animated.gif")
End Using 


MagickImageCollection ما ادري اي ريفرنس اجيب عشان
اتوقع فيه حدث لوب زي كذا
collection(1).AnimationDelay = 100

collection(1).loop=true

[سعود]

لالا اريد عن طريق استخدام ملف الخاص بويندوز نفسه ..لان هذا ملف اخر واحنا في غنى عنه.

[أبو عمر]

PHP كود :

Dim gEnc As System.Windows.Media.Imaging.GifBitmapEncoder = New GifBitmapEncoder()

For Each bmpImage As System.Drawing.Bitmap In images
    Dim src = System.Windows.Interop.Imaging.CreateBitmapSourceFromHBitmap(bmpImage.GetHbitmap(), IntPtr.Zero, Int32Rect.Empty, BitmapSizeOptions.FromEmptyOptions())
    gEnc.Frames.Add(BitmapFrame.Create(src))
Next
Using fs As New FileStream(path, FileMode.Create)
    gEnc.Save(fs)
End Using 


انت مركز على هذا؟

[سعود]

اي نعم صحيح لانه خاص بويندوز او الفريم وورك
عندنا الملف اللي شفته انت وهو كافي.