The sample source codes on this page will demonstrate you how to make simple slideshow in VB.NET. ByteScout Image To Video SDK was made to help with simple slideshow 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! Use of ByteScout Image To Video SDK in VB.NET is also explained in the documentation included along with the product.
ByteScout Image To Video SDK is available as free trial. You may get it from our website along with all other source code samples for VB.NET applications.
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" ' Set default "in" effect for slides (you can also set effects for each single slide) converter.Slides.DefaultSlideInEffect = 1 ' teFadeIn (1) - fades in effect for slides transition converter.Slides.DefaultSlideInEffectDuration = 500 ' 500 msec for in effect ' Add images and set the duration for every slide Dim slide As Slide slide = CType(converter.AddImageFromFileName("..\..\..\..\slide1.jpg"), Slide) slide.Duration = 3000 ' 3000ms = 3s slide = CType(converter.AddImageFromFileName("..\..\..\..\slide2.jpg"), Slide) slide.Duration = 3000 slide = CType(converter.AddImageFromFileName("..\..\..\..\slide3.jpg"), Slide) slide.Duration = 3000 ' 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