ByteScout Image To Video SDK – VBScript – 60 Standard Transition Effects

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

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

60 standard transition effects in VBScript and ByteScout Image To Video SDK

60 standard transition effects in VBScript

The sample source codes on this page will demonstrate you how to make 60 standard transition effects in VBScript. 60 standard transition effects in VBScript can be implemented with ByteScout Image To Video SDK. ByteScout Image To Video SDK is the software development kit that can take a set of images and generate video slide show from them. Includes built-in support for 100+ of 2-D and 3-D slide transitions effects. Supports output in WMV, AVI, WEBM video formats.

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. VBScript sample code is all you need: copy and paste the code to your VBScript 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! Test VBScript sample code examples whether they respond your needs and requirements for the project.

ByteScout Image To Video SDK free trial version is available for download from our website. Free trial also includes programming tutorials along with source code samples.

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

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

60standardTransitionEffects.vbs

      MsgBox "This sample script generates demo video with more than 60 standard transition effects." & vbCLRF & "Please be patient, it takes 1-2 min)"

' 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 66 standard transition effects from 0 (none) to 66 (67 effects total)
for i=0 to 67

' 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 = "67standardTransionEffects.wmv"

' Run the conversion
converter.RunAndWait()

MsgBox "Done! See 67standardTransionEffects.wmv"

Set converter = Nothing


' Open the output file in default app
Set shell = CreateObject("WScript.Shell")
shell.Run "67standardTransionEffects.wmv", 1, false
Set shell = Nothing