مثال تصوير الشاشة v2 - نسخة قابلة للطباعة

كود :

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)

                Dim halfDuration As Double = 0.5









                group.AddTransition(clip1.Offset - halfDuration, halfDuration, StandardTransitions.CreateFade(), True)

                group.AddTransition(clip1.Offset, halfDuration, StandardTransitions.CreateFade(), False)

                prog.Value += 1









            Next

كود :

[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]