منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف احفظ صورتين ثلاث بصيغة Gif - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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


كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15

السلام عليكم
شباب ابغى احفظ شورتين ثلاث في مجلد
على صيغة gif
لقيت  هذا 
PHP كود :
Private Sub ConstructFromResourceSaveAsGif(ByVal e As PaintEventArgs)

 
   ' Construct a bitmap from the button image resource.
    Dim bmp1 As New Bitmap(GetType(Button), "Button.bmp")

    ' 
Save the image as a GIF.
 
   bmp1.Save("c:\button.gif"System.Drawing.Imaging.ImageFormat.Gif)

 
   ' Construct a new image from the GIF file.
    Dim bmp2 As New Bitmap("c:\button.gif")

    ' 
Draw the two images.
 
   e.Graphics.DrawImage(bmp1, New Point(1010))
 
   e.Graphics.DrawImage(bmp2, New Point(1040))

 
   ' Dispose of the image files.
    bmp1.Dispose()
    bmp2.Dispose()
End Sub
المصدر
https://msdn.microsoft.com/en-us/library/9t4syfhh(v=vs.110).aspx 
بس ما ضبط معي 
Shy



RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15

طيب شلون نعدل على الكود بحيث نعمل مثال صياغة gif من عدة صور؟

PHP كود :
Private Sub Button1_Paint(sender As ObjectAs PaintEventArgsHandles Button1.Paint
        ConstructFromResourceSaveAsGif
(e)
 
   End Sub 

توي فهمت الكود اكتب الكود بحدث Paint


RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15

بارك الله فيك
قدامي عيني PaintEventArgs
ههههههههههه

الحفظ بهذا الشكل جربته
كأنه فقط كونفرت ل gif
يبدو لي شي ناقص
مثلا توقيت ظهور كل صورة
هنا لو اضف صورتين بس تظهر اخر صورة


RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15

اللي فهمته انه جلب صورة الزر ورسمها فقطSad
حاولت بـ images.add
لكن!!!
لو اعرف سر الملفات اللي تسويها؟


RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15

ابشر
سويت برنامج بسيط يصور الشاشة واشخبط عليه شوي شرح تمام؟
الصور تكون مجمعة في ملف بدل ما ارفعها صورة صورة
ودي اجمعها في صورة gif
زي ما نسوي في Camtasia
الكود الاول زي ما انت قلت ياخذ بس صورة خلفية البوتن
حاولت استخدمه
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

' Construct a bitmap from the button image resource.
Dim bmp1 As New Bitmap("C:\VB4Arab\18092015\1.png")
Dim bmp2 As New Bitmap("C:\VB4Arab\18092015\2.png")
' Save the image as a GIF.
bmp1.Save("C:\AA.gif", System.Drawing.Imaging.ImageFormat.Gif)
bmp2.Save("C:\AA.gif", System.Drawing.Imaging.ImageFormat.Gif)
' Construct a new image from the GIF file.
Dim bmp3 As New Bitmap("c:\AA.gif")

' Draw the two images.
e.Graphics.DrawImage(bmp1, New Point(1, 1))
e.Graphics.DrawImage(bmp2, New Point(1, 2))
e.Graphics.DrawImage(bmp3, New Point(2, 3))
' Dispose of the image files.
bmp1.Dispose()
bmp2.Dispose()
bmp3.Dispose()
End Sub
لكن ما ضبط بياخذ بس اخر صورة تكون ظاهر في gif


RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15

اخي الكريم هذا فقط رسم كانك ترسم على لوحة والرسم الاخير يمسح الاول
انا اريد طريقة الـ
PHP كود :
Frames.Add(image

لقيت شرح ولا ادري عن فعاليته في الـ net
http://www.java2s.com/Tutorial/VB/0300__2D-Graphics/Programthatanimatesaseriesofimages.htm


RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15

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

راح استخدم اي برنامج خارجي

لقيت مثال هنا
http://www.dreamincode.net/forums/index.php?app=core&module=attach&section=attach&attach_id=35306
يوجد الفروق بين الصور صحيح ماهو هو المطلوب بس للافادة
يعني تختار صورتين متشابهتين بينهم فرق بسيط
البرنامج يطلعه

شوف هذا
http://ezgif.com/maker/0a7539-gif

الكود اللي في الصفحة رهيب


RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15

نعم صحيح انتبهت لهذا
وجدت من ميكروسوفت الطريقة وهو باستخدام PresentationCore.dll
لكن فين النسخة المناسبة؟؟ فيه عدة ملفات
PHP كود :
       Dim stream As New FileStream("new.gif"FileMode.Create)
 
       Dim encoder As New GifBitmapEncoder()
 
       ' Dim myTextBlock As New TextBlock()
        ' 
myTextBlock.Text "Codec Author is: " encoder.CodecInfo.Author.ToString()
 
       encoder.Frames.Add(BitmapFrame.Create(Image))
 
       encoder.Save(stream

تضيف
Imports System.Windows.Media.Imaging

مع  اضافة
 PresentationCore.dll
كـ Reference


RE: كيف احفظ صورتين ثلاث بصيغة Gif - أبو عمر - 18-09-15

والله يا اخي تهت
لو انت مر عليك برنامج اسمه
Animation maker
؟
يخليك تضيف كذا صورة وتعمل لها
Export
Result.GIF
هذا بالضبط ما احتاجه
لا ترهق نفسك كثيرا بالبحث معي احيانا تجد الامور مصادفة قدامك بعدما تنشف ريقك بحث وبيني وبينك تعبت
راح اجرب الكود الاخير
وارد لك خبر بالنتيجة


RE: كيف احفظ صورتين ثلاث بصيغة Gif - سعود - 18-09-15

(18-09-15, 07:02 PM)أبو عمر كتب : والله يا اخي تهت
لو انت مر عليك برنامج اسمه
Animation maker
؟
يخليك تضيف كذا صورة وتعمل لها
Export
Result.GIF
هذا بالضبط ما احتاجه
لا ترهق نفسك كثيرا بالبحث معي احيانا تجد الامور مصادفة قدامك بعدما تنشف ريقك بحث وبيني وبينك تعبت
راح اجرب الكود الاخير
وارد لك خبر بالنتيجة

اخي الكريم فيه ملف يؤدي الغرض بس انا حبيت اسويه من جديدSmile
http://vb4arb.com/vb/thread-11862-post-55906.html?mode=linear