ByteScout Image To Video SDK – VB.NET – 60 Standard 2D Transition Effects

Home
/
Articles
/
ByteScout Image To Video SDK – VB.NET – 60 Standard 2D Transition Effects

printable version:
ByteScout-Image-To-Video-SDK-VB-NET-60-Standard-2D-Transition-Effects.pdf

60 standard 2d transition effects in VB.NET with ByteScout Image To Video SDK

60 standard 2d transition effects in VB.NET

Today we will explain the steps and algorithm of implementing 60 standard 2d transition effects and how to make it work in your application. 60 standard 2d transition effects in VB.NET can be implemented with ByteScout Image To Video SDK. 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.

Fast application programming interfaces of ByteScout Image To Video SDK for VB.NET plus the instruction and the VB.NET code below will help you quickly learn 60 standard 2d transition effects. This VB.NET sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. Code testing will allow the function to be tested and work properly with your data.

Free trial version of ByteScout Image To Video SDK is available on our website. Get it to try other samples for VB.NET.

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, 67 basic transition effects, 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 first slide
            converter.UseInEffectForFirstSlide = True

            converter.Slides.DefaultSlideDuration = 1000
            converter.Slides.DefaultSlideEffectDuration = 500

            Dim bChangeSlide As Boolean = True ' temporary variable to change slides

            Dim i As Integer

            ' now try all 67 standard transition effects from 0 (none) to 67
            For i = 0 To 67

                ' Add slide image, set the duration

                Dim slide As Slide

                If (Not bChangeSlide) Then
                    slide = converter.AddImageFromFileName("..\..\..\..\slide1.jpg")
                Else
                    slide = converter.AddImageFromFileName("..\..\..\..\slide2.jpg")
                End If

                bChangeSlide = Not bChangeSlide ' switch to use another slide next tim

                slide.InEffect = i ' effect index

            Next

            ' Set output video size
            converter.OutputWidth = 320
            converter.OutputHeight = 240

            ' 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