Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
28 views2 pages

ICOSSlide Animation

The document defines subroutines that control slide and fade animations of an image view using an ICOSSlideAnimation object. Buttons trigger methods like SlideFadeFromLeft, SlideToRight, and SlideFromTopToBottom that change the position and opacity of the image view over durations like 600ms or 1200ms. An animationend handler provides feedback when animations finish.

Uploaded by

duribesantos2
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
28 views2 pages

ICOSSlide Animation

The document defines subroutines that control slide and fade animations of an image view using an ICOSSlideAnimation object. Buttons trigger methods like SlideFadeFromLeft, SlideToRight, and SlideFromTopToBottom that change the position and opacity of the image view over durations like 600ms or 1200ms. An animationend handler provides feedback when animations finish.

Uploaded by

duribesantos2
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 2

ICOSSlideAnimation

Sub Globals
Dim a As ICOSSlideAnimation
Dim l1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)


Activity.LoadLayout("Anim2")
Activity.AddMenuItem("Esci","esci")
Activity.Title="ICOSSlideAnimation Library - Copyright Giuseppe Salvi"
End Sub

Sub Activity_Resume
End Sub

Sub b1_Click
a.SlideFadeFromLeft("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b2_Click
a.SlideFadeToLeft("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b3_Click
a.SlideFadeFromRight("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b4_Click
a.SlideFadeToRight("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b5_Click
a.SlideFadeFromTop("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b6_Click
a.SlideFadeToTop("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b7_Click
a.SlideFadeFromBottom("a",1200,2000)
a.StartAnim(l1)
End Sub

Sub b8_Click
a.SlideFadeToBottom("a",1200,2000)
a.StartAnim(l1)
End Sub

Sub b9_Click
a.SlideFromLeft("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b10_Click
a.SlideToLeft("a",600,2000)
a.StartAnim(l1)
End Sub
Sub b11_Click
a.SlideFromRight("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b12_Click
a.SlideToRight("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b13_Click
a.SlideFromTop("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b14_Click
a.SlideToTop("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b15_Click
a.SlideFromBottom("a",1200,2000)
a.StartAnim(l1)
End Sub

Sub b16_Click
a.SlideToBottom("a",1200,2000)
a.StartAnim(l1)
End Sub

Sub b17_Click
a.SlideFromLeftToRight("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b18_Click
a.SlideFromRightToLeft("a",600,2000)
a.StartAnim(l1)
End Sub

Sub b19_Click
a.SlideFromTopToBottom("a",1200,2000)
a.StartAnim(l1)
End Sub

Sub b20_Click
a.SlideFromBottomToTop("a",1200,2000)
a.StartAnim(l1)
End Sub

Sub a_animationend
ToastMessageShow("Done",True)
End Sub

Sub esci_Click
ExitApplication
End Sub

You might also like