Hi,
What are the steps to create an event?
My objective is: A class or object that wait n seconds and when it complete (wait n seconds) it raises the event complete, like mediaplayer complete.
I want that because my app show wait some time before running the next music file. It works fine but if I try to back or forward the music that app don't respond because I've implement the wait sub like:
Thanks
What are the steps to create an event?
My objective is: A class or object that wait n seconds and when it complete (wait n seconds) it raises the event complete, like mediaplayer complete.
I want that because my app show wait some time before running the next music file. It works fine but if I try to back or forward the music that app don't respond because I've implement the wait sub like:
B4X:
Sub WaitSeconds(seconds As Int)
Dim Ti As Long
Ti = DateTime.Now + (seconds * 1000)
Do While DateTime.Now < Ti
DoEvents
Loop
End Sub