ByteScout Image To Video SDK – VB.NET – Transition Effects

Home
/
Articles
/
ByteScout Image To Video SDK – VB.NET – Transition Effects

printable version:
ByteScout-Image-To-Video-SDK-VB-NET-Transition-Effects.pdf

transition effects in VB.NET using ByteScout Image To Video SDK

Make transition effects in VB.NET

Tutorial on how to do transition effects in VB.NET

Writing of the code to transition effects in VB.NET can be done by developers of any level using ByteScout Image To Video SDK. ByteScout Image To Video SDK was made to help with transition effects in VB.NET. ByteScout Image To Video SDK is the library for conversion of images into video slideshow. Provides built-in support for more than hundred of 2D and 3D transition effects. Output formats supported are AVI,WMV and WEBM video files. You may adjust output video size, quality, framerate and add audio.

You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. VB.NET sample code is all you need: copy and paste the code to your VB.NET application’s code editor, add a reference to ByteScout Image To Video SDK (if you haven’t added yet) and you are ready to go! Enjoy writing a code with ready-to-use sample VB.NET codes to implement transition effects using ByteScout Image To Video SDK.

Visit our website provides for free trial version of ByteScout Image To Video SDK. Free trial includes lots of source code samples to help you with your VB.NET project.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports BytescoutImageToVideo

Module Module1

    Sub Main()

        Try
            Console.WriteLine("Converting JPG slides to video, please wait...")

            ' Create BytescoutImageToVideoLib.ImageToVideo object instance
            Dim converter As ImageToVideo = New ImageToVideo()

            ' Activate the component
            converter.RegistrationName = "demo"
            converter.RegistrationKey = "demo"

            ' Enable transition effects for the first and last slide
            converter.UseInEffectForFirstSlide = True
            converter.UseOutEffectForLastSlide = True

            ' Add images and set slide durations and transition effects
            Dim slide As Slide
            slide = converter.AddImageFromFileName("..\..\..\..\slide1.jpg")
            slide.Duration = 3000 ' 3000ms = 3s
            slide.InEffect = TransitionEffectType.teFade
            slide.OutEffect = TransitionEffectType.teFade

            slide = converter.AddImageFromFileName("..\..\..\..\slide2.jpg")
            slide.Duration = 3000
            slide.InEffect = TransitionEffectType.teWipeLeft
            slide.OutEffect = TransitionEffectType.teWipeRight

            slide = converter.AddImageFromFileName("..\..\..\..\slide3.jpg")
            slide.Duration = 3000
            slide.InEffect = TransitionEffectType.teWipeLeft
            slide.OutEffect = TransitionEffectType.teWipeRight

            ' Set output video size
            converter.OutputWidth = 640
            converter.OutputHeight = 480

            ' Set output video file name
            converter.OutputVideoFileName = "result.wmv"

            ' Run the conversion
            converter.RunAndWait()

            ' Release resources
            System.Runtime.InteropServices.Marshal.ReleaseComObject(converter)

            ' Open the result video file in default media player
            Process.Start("result.wmv")

            Console.WriteLine("Done. Press any key to continue...")
            Console.ReadKey()

        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
            Console.ReadKey()
        End Try

    End Sub

End Module