Need advice about animation

[Alex69]

Hi,
I am using this

Sub add_LongClick
   Activity.AddView(toast,70%x,10%y,20%x,7%y)
   toast.Color=Colors.Black
 anim.InitializeAlpha("",0,255)
 anim.RepeatCount=1
 anim.RepeatMode=anim.REPEAT_REVERSE
 anim.Duration=12000
 obj=anim
 
 animate
 
End Sub

Sub animate
Dim a As Animation
a=obj
a.Start(toast)
'toast.RemoveView
End Sub

to manage animation .

1. Why wnen I am calling animation , animation (fading) takes just 2 second while label lasts for 15 seconds?


I am happy to hear all your thoughts about it.
Alex

 

[Erel]

Not related to your question, but why don't you pass the animation object:

animate(anim)
...
Sub animate(a As Animation)
...

What do you mean with "label lasts for 15 seconds"?