تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف احفظ صورتين ثلاث بصيغة Gif
#1
السلام عليكم
شباب ابغى احفظ شورتين ثلاث في مجلد
على صيغة 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
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: سعود
#2
طيب شلون نعدل على الكود بحيث نعمل مثال صياغة gif من عدة صور؟

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

توي فهمت الكود اكتب الكود بحدث Paint
الرد }}}
تم الشكر بواسطة: أبو عمر
#3
بارك الله فيك
قدامي عيني PaintEventArgs
ههههههههههه

الحفظ بهذا الشكل جربته
كأنه فقط كونفرت ل gif
يبدو لي شي ناقص
مثلا توقيت ظهور كل صورة
هنا لو اضف صورتين بس تظهر اخر صورة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#4
اللي فهمته انه جلب صورة الزر ورسمها فقطSad
حاولت بـ images.add
لكن!!!
لو اعرف سر الملفات اللي تسويها؟
الرد }}}
تم الشكر بواسطة: أبو عمر
#5
ابشر
سويت برنامج بسيط يصور الشاشة واشخبط عليه شوي شرح تمام؟
الصور تكون مجمعة في ملف بدل ما ارفعها صورة صورة
ودي اجمعها في صورة 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
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#6
اخي الكريم هذا فقط رسم كانك ترسم على لوحة والرسم الاخير يمسح الاول
انا اريد طريقة الـ
PHP كود :
Frames.Add(image

لقيت شرح ولا ادري عن فعاليته في الـ net
http://www.java2s.com/Tutorial/VB/0300__...images.htm
الرد }}}
تم الشكر بواسطة: أبو عمر
#7
يعطيك العافية وانا اخوك\
الكود في الصفحة شكله يعرضهم سلايدات ماهي فريمات فوق بعض وما ادري لاني في الصور ميح

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

لقيت مثال هنا
http://www.dreamincode.net/forums/index....h_id=35306
يوجد الفروق بين الصور صحيح ماهو هو المطلوب بس للافادة
يعني تختار صورتين متشابهتين بينهم فرق بسيط
البرنامج يطلعه

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

الكود اللي في الصفحة رهيب
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: سعود
#8
نعم صحيح انتبهت لهذا
وجدت من ميكروسوفت الطريقة وهو باستخدام 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
الرد }}}
تم الشكر بواسطة: أبو عمر
#9
والله يا اخي تهت
لو انت مر عليك برنامج اسمه
Animation maker
؟
يخليك تضيف كذا صورة وتعمل لها
Export
Result.GIF
هذا بالضبط ما احتاجه
لا ترهق نفسك كثيرا بالبحث معي احيانا تجد الامور مصادفة قدامك بعدما تنشف ريقك بحث وبيني وبينك تعبت
راح اجرب الكود الاخير
وارد لك خبر بالنتيجة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#10
(18-09-15, 07:02 PM)أبو عمر كتب : والله يا اخي تهت
لو انت مر عليك برنامج اسمه
Animation maker
؟
يخليك تضيف كذا صورة وتعمل لها
Export
Result.GIF
هذا بالضبط ما احتاجه
لا ترهق نفسك كثيرا بالبحث معي احيانا تجد الامور مصادفة قدامك بعدما تنشف ريقك بحث وبيني وبينك تعبت
راح اجرب الكود الاخير
وارد لك خبر بالنتيجة

اخي الكريم فيه ملف يؤدي الغرض بس انا حبيت اسويه من جديدSmile
http://vb4arb.com/vb/thread-11862-post-5...ode=linear
الرد }}}
تم الشكر بواسطة: أبو عمر , أبو عمر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  ممكن كود برنامج حفظ بصيغة exe. oussama vb.net 6 3,235 17-09-22, 01:23 PM
آخر رد: ThurmMl
  قراءة خلية من الداتا قريد بصيغة نص aftfm 0 681 21-08-22, 05:22 AM
آخر رد: aftfm
  السلام عليكم عندي ثلاث Button اريد عند اخفاء ال Button2 يتم ترحيل Button1 معButton3 ahmedhhh2 4 1,341 05-03-22, 01:18 PM
آخر رد: ahmedhhh2
  ازاى احفظ الكود masport tv 1 1,031 21-07-21, 12:48 AM
آخر رد: ميدو الفنان
  [سؤال] عندي ثلاث اسئله حسن الجلب 2 954 18-03-21, 10:31 PM
آخر رد: حسن الجلب
  [VB.NET] اضافة اللغة واستردادها من ملف بصيغة ini ميدو الفنان 11 3,655 25-09-20, 04:08 PM
آخر رد: عمور2016
  [سؤال] كيف اجعل صورتين تغيران مواقعهما بسحب احدهما عبد الهادي بهاب 4 1,368 10-09-20, 06:11 PM
آخر رد: عبد الهادي بهاب
  [سؤال] لدي ثلاث اسئله منه 6 1,571 04-08-20, 03:39 PM
آخر رد: Anas Mahmoud
  هل يمكن حفظ الPrint Document بصيغة Pdf؟ Hazem1 2 1,394 06-07-20, 10:33 PM
آخر رد: Hazem1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم