ByteScout Image To Video SDK – VB.NET – 70 Advanced 3D Transition Effects

Home
/
Articles
/
ByteScout Image To Video SDK – VB.NET – 70 Advanced 3D Transition Effects

printable version:
ByteScout-Image-To-Video-SDK-VB-NET-70-Advanced-3D-Transition-Effects.pdf

70 advanced 3d transition effects in VB.NET with ByteScout Image To Video SDK

Tutorial: how to do 70 advanced 3d transition effects in VB.NET

Sample source codes below will show you how to cope with a difficult task, for example, 70 advanced 3d transition effects in VB.NET. ByteScout Image To Video SDK was made to help with 70 advanced 3d transition effects in VB.NET. ByteScout Image To Video SDK is the SDK that is designed to generate video slideshow with 100+ 2d and 3D transition effects. Can generate WMV, AVI, WEBM video file with adjustable quality, framerate, output video size.

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 70 advanced 3d transition effects. To do 70 advanced 3d transition effects in your VB.NET project or application you may simply copy & paste the code and then run your app! Code testing will allow the function to be tested and work properly with your data.

Our website provides free trial version of ByteScout Image To Video SDK. It comes along with all these source code samples with the goal to help you with your VB.NET application implementation.

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, 70 advanced 3D 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 68 to 140
            For i = 68 To 140

                ' 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