ByteScout Image To Video SDK – VBScript – All Transition Effects

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – All Transition Effects

printable version:
ByteScout-Image-To-Video-SDK-VBScript-All-Transition-Effects.pdf

all transition effects in VBScript with ByteScout Image To Video SDK

Write code in VBScript to make all transition effects with this How-To tutorial

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.

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

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

AllTransitionEffects.vbs

      ' 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