Sample source codes below will show you how to cope with a difficult task, for example, all transition effects in VBScript. ByteScout Image To Video SDK was made to help with all transition effects in VBScript. 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.
VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Image To Video SDK. Follow the instruction from the scratch to work and copy and paste code for VBScript into your editor. Test VBScript sample code examples whether they respond your needs and requirements for the project.
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 VBScript applications.
' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object Set converter = CreateObject("BytescoutImageToVideo.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 = 0 ' default effect converter.Slides.DefaultSlideInEffectDuration = 1000 ' 1000 msec for slide transition effect effect converter.Slides.DefaultSlideDuration = 1000 ' uncomment to use background picture ' converter.SetBackgroundPictureFileName "..\..\background.jpg" ' set auto fit images mode converter.AutoFitImages = True ' apply transition effect to the very first slide converter.UseInEffectForFirstSlide = True bChangeSlide = True ' temporary variable to change slides ' now try all 140 transition effects from 0 (none) to 140 for i=0 to 140 ' Add slide image, set the duration if not bChangeSlide then Set slide = converter.AddImageFromFileName("slide1.jpg") Else Set 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 = 640 converter.OutputHeight = 480 ' Set output video file name converter.OutputVideoFileName = "AllTransitionEffects.wmv" ' Run the conversion converter.RunAndWait() MsgBox "Done! See AllTransitionEffects.wmv" Set converter = Nothing ' Open the output file in default app Set shell = CreateObject("WScript.Shell") shell.Run "AllTransitionEffects.wmv", 1, false Set shell = Nothing