+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف احفظ صورتين ثلاث بصيغة Gif (/showthread.php?tid=13270)
الصفحات:
1
2
RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15
هههههههههههههه
رحم الله والديك
Gif.Components.dll
RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15
اشكرك هذا نتيجة مساعدتك لي دمت طيباً
RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15
أبشرك لقيت طريقة للاستخدام
http://stackoverflow.com/questions/1196322/how-to-create-an-animated-gif-in-net
بقي كيف اجعل الحركة مستمرة
RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15
والله يا اخي مريت عليه من قبل لكني ما فهمت منه شي مع اني طبقت الكود وغيرته 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
اتوقع فيه حدث لوب زي كذا
collection(1).AnimationDelay = 100
collection(1).loop=true
RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15
لالا اريد عن طريق استخدام ملف الخاص بويندوز نفسه ..لان هذا ملف اخر واحنا في غنى عنه.
RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15
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
RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15
اي نعم صحيح لانه خاص بويندوز او الفريم وورك
عندنا الملف اللي شفته انت وهو كافي.