' CHANGE YOUR CODE TO MATCH THIS...
Case "verificaupdates"
simcategoria = False
links.Clear
painelseries.visible = False
painelsobre.Visible = False
listacategorias.Visible = False
Dim parser As JSONParser
parser.Initialize(job.GetString)
root = parser.NextArray
ExtractResults(0, 10) ' Extract and save the first 10 results
......
......
' AND ADD THESE SUBS...
Public Sub ExtractResults(start_index, quantity)
Dim contador As Int
If start_index = 0 Then kv.DeleteAll ' Only delete keyvalue store if starting a new list
For contador = start_index To Min(start_index + quantity, root.Size - 1)
Dim colroot As Map = root.Get(contador)
Dim capa_img As String = colroot.Get("capa_img")
Dim id As String = colroot.Get("id")
Dim titulo As String = colroot.Get("titulo")
Dim descricaocurta As String = colroot.Get("descricaocurta")
kv.PutSimple("capa_img"&contador,capa_img)
kv.PutSimple("id"&contador,id)
kv.PutSimple("titulo"&contador,titulo)
kv.PutSimple("descricaocurta"&contador,descricaocurta)
links.Add(capa_img)
Next
' Update progress bar
CallSubDelayed2("" , "progress_update", contador)
End Sub
Public Sub progress_Update(extracted As Int)
If extracted < root.Size - 1 Then
Dim percent As Int
percent = (extracted / (root.Size - 1) ) * 100
progress.progress = percent
progress.Visible = True
ExtractResults(extracted + 1, 10) ' Extract the next 10 results
Else
progress.progress = 0
progress.Visible = False
root.Clear ' Finished using root list and so clear contents to free memory
BuildItems
End If
End Sub
' YOU WILL ALSO NEED TO DECLARE, INITIALISE AND ADD A ProgressBar NAMED progess TO YOUR ACTIVITY