منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مثال تصوير الشاشة v2
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
ودها تفكير شلون نحول 600 صورة بضغطة زرSad
كود :
Using timeline As New DefaultTimeline(25)

اخواني
الرقم 25 ماذا اكتب عوضا عنه علما ان سرعة المؤقت الذي يلتقط الصور 200 مل ثانية
اخواني احتاج مساعدة لاكمال التعديل على المثال
كود :
Dim i As Integer = IO.Directory.GetFiles(imagepath, "*.jpg").Count

هذا كما تعرفون يظهر عدد الصور في المجلد
كود :
Dim clip1 As IClip = videoTrack.AddImage(Application.StartupPath & "\image1.jpg", 0, 2)

هذا السطر كيف اصيغه بحيث يضيف كافة الصور؟؟؟؟
تحتاج محترف.
كود :
For Each fl In IO.Directory.GetFiles(imagepath, "*.jpg")                    Dim fn As String = IO.Path.GetFileName(fl)
                    Dim clip1 As IClip = videotrack.AddImage(imagepath & fn, 0, 2)


                Next

الحمدلله انهيت الجزء الخاص باضافة كافة صور المجلد لكن حبيت اسال عن
كود :
group.AddTransition(clip2.Offset - halfDuration, halfDuration, StandardTransitions.CreateFade(), True)            group.AddTransition(clip2.Offset, halfDuration, StandardTransitions.CreateFade(), False)

مالفرق بين السطرين؟؟؟
انهيت برمجة المثال وتفاجات بالخطا
وهذا المثال ارجو منكم التصحيح
http://vb4arb.com/vb/uploaded/34_01363757320.zip
يسال عن timelinebuilder.cs
الفيلم المستخرج سيء للغايةSad يومض
الصفحات : 1 2 3