كيفيه إنشاء صوره متحركه

السلام عليكم ورحمة الله

ارجو من حضرتك ان توضح سؤالك

على العموم كل ما يهم صور Gif

http://www.planet-source-code.com/vb/scrip...60&lngWId=1

أخي العزيز , تحتاج إلى البرنامجين التاليين :

Adobe PhotoShop CS

و

Adobe ImageReady CS

والطريقة طويلة نوعاً ما , لكن مع التجربة تصبح سهلة , وجاري عمل شرح لها

مع تحيات ...

علاء VB

I have two Bmp pictures i want to make them Animated Image Gif

شباب هو الموضوع معقد اوي كده

و لا في سبب لانشغالكم

السلام عليكم و رحمة الله و بركاته

آسف على التأخير لظروف شخصية و ليس لدى وقت للبحث فلست متأكد من فاعلية المشاريع التالية :

http://vbaccelerator.com/home/VB/Code/vbMe...les/article.asp

http://www.planet-source-code.com/vb/scrip...41&lngWId=1

http://www.planet-source-code.com/vb/scrip...67&lngWId=1

http://www.codeproject.com/asp/GDLibraryWrapper.asp

و السلام عليكم و رحمة الله و بركاته

http://www.psdland.com/lesson.php?id=112

هذا رابط لما تريد أخي , ومعلش على التأخير

شكرا لاهتمامكم لكن ليس هذا ما اريد انا اريد كود يقوم بدمج صورتين في صوره واحده متحركه مثل الصور المستخدمه في تواقيعكم

لا اريد كود العرض و لا اريد برنامج جاهز لان هذا الكود سيكون ضمن عمليه طويله للبرنامج

و شكرا

السلام عليكم

الحمد لله انا وجدت الحل في هذا الرابط

http://www.codeproject.com/dotnet/NGif.asp

بس المشكله الان ان هذا الرابط بيعتمد على الدوت نت و الجافا و انا معانديش و لا ده و لا ده فياريت لو حد يعمل اداه ممكن نستخدمها في ال vb6

أنا عندي كود يدمج صورتين في واحد بـــ Visual Basic 6.0 وله تأثير جميل أيضاً عند دمج الصورتين :

أنشأ في البداية 3 Picture Box + زر أمر واحد

وضع الكود التالي

Private Declare Function SetPixelV Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long


Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Command1_Click()


	For i = 1 To Picture2.ScaleWidth


		For j = 1 To Picture2.ScaleHeight
			q = GetPixel(Picture1.hdc, i, j)
			r = GetPixel(Picture2.hdc, i, j)
			SetPixelV Picture3.hdc, i, j, q Or r


			DoEvents
			Next j
		Next i
		MsgBox "done"
	End Sub

تحميل المشروع

السلام عليكم

شكرا أخي على محاولاتك المستمره في المساعده و انا بالطبع اقدر مجهودك و تعبك بس انا اريد ان يقوم البرنامج بعمل صوره متحركه مثل التي في توقيعك

و ليس دمج صورتين

أنا آسف لأنى برده مشغول بس فيه مشروع لذيذ عن تحويل الـ AVI الى GIF قد يفيد : AVItoGIF 1.0 .

متشكر جدا على تعاونكم معي إن شاء الله حدرس المثال و اوافيكم باخر الاخبار