I am developing an app for low literacy users. I have three buttons on the screen which I want read to the user. I want to show which button corresponds to the instructions, so I want to turn the button red while the corresponding audio plays.
Here is my code...
the notification is giving the underlying SO the time needed for the change to be noticeable!
you are change the color of the button in a rapid sequence, which, without the message notification its takes the last color change almost immediatly
Use CallSubPlus to set the color back to gray after 500ms.
B4X:
AgreeButton.Color = Colors.Red
sp.Load(...)
sp.Play
csu.CallSubPlus2(Me, "Reset_Color", 500, Array (AgreeButton))
End Sub
Sub Reset_Color (Args() As Object)
Dim b As Button = Args(0)
b.Color = Colors.Gray
End Sub