Sub Activity_Resume
ImageView1.SetVisibleAnimated(10000,True) '10 sec to show
'reklamy
'AdView1.Resume
End Sub
then use setvisibleanimated with 200 as time.in ~200ms
Sub Button1_Click
ImageView1.SetVisibleAnimated(10000,True) '10 sec to show
End Sub
Sub Button2_Click
ImageView1.SetVisibleAnimated(10000,False) '10 sec to hide
End Sub
What exatly you want to archieve???
ImageView1.SetVisibleAnimated(10000,True)
csu.CallSubPlus(Me, "hide_ImageView", 10000)
...
Sub hide_ImageView
ImageView1.SetVisibleAnimated(10000,False)
End Sub
You can use CallSubPlus here: https://www.b4x.com/search?query=CallSubPlus
B4X:ImageView1.SetVisibleAnimated(10000,True) csu.CallSubPlus(Me, "hide_ImageView", 10000) ... Sub hide_ImageView ImageView1.SetVisibleAnimated(10000,False) End Sub
Public csu As CallSubUtils