Scribd
Upload
35 views2 pages

Icosscaleanimation: "Anim3" "Esci" "Esci"

The document contains code for an animation library that scales an image view called i1 in different directions using an ICOSScaleAnimation object called a over 2000 milliseconds when buttons b1 through b20 are clicked. It also shows a toast message when the animation ends and exits the application when a button called esci is clicked.

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
35 views2 pages

Icosscaleanimation: "Anim3" "Esci" "Esci"

The document contains code for an animation library that scales an image view called i1 in different directions using an ICOSScaleAnimation object called a over 2000 milliseconds when buttons b1 through b20 are clicked. It also shows a toast message when the animation ends and exits the application when a button called esci is clicked.

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

Sub Globals

ICOSScaleAnimation
Dim a As ICOSScaleAnimation
Dim i1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)


[Link]("Anim3")
[Link]("Esci","esci")
[Link]="ICOSScaleAnimation Library - Copyright Giuseppe Salvi"
End Sub

Sub Activity_Resume
End Sub

Sub b1_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b2_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b3_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b4_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b5_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b6_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b7_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b8_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b9_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b10_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b11_Click
[Link]("a",2000)
[Link](i1)
End Sub
Sub b12_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b13_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b14_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b15_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b16_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b17_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b18_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b19_Click
[Link]("a",2000)
[Link](i1)
End Sub

Sub b20_Click
[Link]("a",2000)
[Link](i1)
End Sub

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

Sub esci_Click
ExitApplication
End Sub

You might also like