Using Basic4Android's ProgressBar

[wdegler]

The following use of a progress bar is not valid. It doesn't appear until the code ends. I wish to show the progress as a number of subroutines are called. What do I need to do to make this happen?

Sub Activity_Create(FirstTime As Boolean)
Dim I As Byte
Dim PBar As ProgressBar

PBar.Initialize("")
Activity.AddView(PBar,10%x,20%y,80%x,10%y)
For I=1 To 10
Delay
PBar.Progress=10*I
Next
PBar.RemoveView
End Sub

Sub Delay 'any activity
Dim I As Long

For I=0 To 200000
Next
End Sub

 

[thedesolatesoul]

Add DoEvents and PBar.Invalidate in the Delay loop.

 

[Erel]

Actually DoEvents is sufficient. Invalidate is only required when you are drawing something yourself.

 

[nfordbscndrd]

Actually DoEvents is sufficient. Invalidate is only required when you are drawing something yourself.

On the Toshiba Thrive, Android frequently does not finish drawing views and I have to use Invalidate + DoEvents (usually more than once -- in a loop) to get it to finish.

 

[wdegler]

Solved!

Thank you for your response; DoEvents makes it work perfectly!