Il tanto deprecato DoEvent lo avevo usato per far girare il progressdialog durante una elaborazione.
Non posso sostituire con Sleep(0) in quanto fa il return.
Quindi?
Non posso sostituire con Sleep(0) in quanto fa il return.
Quindi?
B4X:
strquery = "SELECT * FROM tabella "
dbcursor = Main.dbSql.ExecQuery(strquery)
Dim documento As String
For i = 0 To dbcursor.RowCount - 1
dbcursor.position = i
ProgressDialogShow("Lettura tabella in corso")
DoEvents
next