السلام عليكم
شباب ابغى احفظ شورتين ثلاث في مجلد
على صيغة 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(10, 10))
e.Graphics.DrawImage(bmp2, New Point(10, 40))
' Dispose of the image files.
bmp1.Dispose()
bmp2.Dispose()
End Sub
المصدر
https://msdn.microsoft.com/en-us/library/9t4syfhh(v=vs.110).aspx
بس ما ضبط معي
طيب شلون نعدل على الكود بحيث نعمل مثال صياغة gif من عدة صور؟
PHP كود :
Private Sub Button1_Paint(sender As Object, e As PaintEventArgs) Handles Button1.Paint
ConstructFromResourceSaveAsGif(e)
End Sub
توي فهمت الكود اكتب الكود بحدث Paint
بارك الله فيك
قدامي عيني PaintEventArgs
ههههههههههه
الحفظ بهذا الشكل جربته
كأنه فقط كونفرت ل gif
يبدو لي شي ناقص
مثلا توقيت ظهور كل صورة
هنا لو اضف صورتين بس تظهر اخر صورة
اللي فهمته انه جلب صورة الزر ورسمها فقط
حاولت بـ images.add
لكن!!!
لو اعرف سر الملفات اللي تسويها؟
ابشر
سويت برنامج بسيط يصور الشاشة واشخبط عليه شوي شرح تمام؟
الصور تكون مجمعة في ملف بدل ما ارفعها صورة صورة
ودي اجمعها في صورة 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
نعم صحيح انتبهت لهذا
وجدت من ميكروسوفت الطريقة وهو باستخدام 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
والله يا اخي تهت
لو انت مر عليك برنامج اسمه
Animation maker
؟
يخليك تضيف كذا صورة وتعمل لها
Export
Result.GIF
هذا بالضبط ما احتاجه
لا ترهق نفسك كثيرا بالبحث معي احيانا تجد الامور مصادفة قدامك بعدما تنشف ريقك بحث وبيني وبينك تعبت
راح اجرب الكود الاخير
وارد لك خبر بالنتيجة
(18-09-15, 07:02 PM)أبو عمر كتب : [ -> ]والله يا اخي تهت
لو انت مر عليك برنامج اسمه
Animation maker
؟
يخليك تضيف كذا صورة وتعمل لها
Export
Result.GIF
هذا بالضبط ما احتاجه
لا ترهق نفسك كثيرا بالبحث معي احيانا تجد الامور مصادفة قدامك بعدما تنشف ريقك بحث وبيني وبينك تعبت
راح اجرب الكود الاخير
وارد لك خبر بالنتيجة
اخي الكريم فيه ملف يؤدي الغرض بس انا حبيت اسويه من جديد
http://vb4arb.com/vb/thread-11862-post-5...ode=linear