[ربيع]

نحمده ونصلي على رسوله الكريم

الكود التالي يزيل التاثيرات من المقطع الناتج، ويحدد المدة الزمنية في التنقل بين الصور بـ 0.02 ما يعادل 200 مل ثانية:

كود :

[align=left]Label1.Visible = True
Application.DoEvents()

Using timeline As New DefaultTimeline(25)

    Dim group As IGroup = timeline.AddVideoGroup(32, 960, 720) ' هنا حجم مقطع الفيدو من ناحية العرض والارتفاع

    Dim videoTrack As ITrack = group.AddTrack()

    Dim clip1 As IClip = videoTrack.AddImage(Application.StartupPath & "\image1.jpg", 0, 0.02) ' آخر وسيطة لتحديد مدة الانتقال، كل صورة على حده
    Dim clip2 As IClip = videoTrack.AddImage(Application.StartupPath & "\image2.jpg", 0, 0.02)
    Dim clip3 As IClip = videoTrack.AddImage(Application.StartupPath & "\image3.jpg", 0, 0.02)
    Dim clip4 As IClip = videoTrack.AddImage(Application.StartupPath & "\image4.jpg", 0, 0.02)

    'Dim halfDuration As Double = 0.5

    'group.AddTransition(clip2.Offset - halfDuration, halfDuration, StandardTransitions.CreateIris(), True)
    'group.AddTransition(clip2.Offset, halfDuration, StandardTransitions.CreateIris(), False)
    'group.AddTransition(clip3.Offset - halfDuration, halfDuration, StandardTransitions.CreateIris(), True)
    'group.AddTransition(clip3.Offset, halfDuration, StandardTransitions.CreateIris(), False)
    'group.AddTransition(clip4.Offset - halfDuration, halfDuration, StandardTransitions.CreateIris(), True)
    'group.AddTransition(clip4.Offset, halfDuration, StandardTransitions.CreateIris(), False)

    Dim audioTrack As ITrack = timeline.AddAudioGroup().AddTrack()
    ' التالي هو مقطع الصوت المدمج
    Dim audio As IClip = audioTrack.AddAudio(Application.StartupPath & "\soundtrack.wav", 0, videoTrack.Duration)

    'audioTrack.AddEffect(0, audio.Duration, StandardEffects.CreateAudioEnvelope(1.0, 1.0, 1.0, audio.Duration))

    Using renderer As New WindowsMediaRenderer _
        (timeline, Application.StartupPath & "\output.wmv", WindowsMediaProfiles.HighQualityVideo)

        renderer.Render()
    End Using

End Using

Label1.Visible = False

If MessageBox.Show("تم إنشاء الفيديو" & Environment.NewLine & "هل تريد تشغيله", Text, _
                   MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK Then

    System.Diagnostics.Process.Start(Application.StartupPath & "\output.wmv")
End If
[/align]