Hi,
I have entries, which are displayes with For Next. A progressBar has to run at every entry. I think I need at ###### something like ProcessMessages() (C++).
At the moment the app is working, but nothing is displayed except the last entry at the end of for next.
Sub imgDBehRun_Click
For i = 0 To mKoerper.Size - 1
If mKoerper.GetValueAt(i) = True Then
lblDBeh.Text = mKoerper.GetKeyAt(i)
iProgressCount = -1
bTimer2Run = True
timer2.Initialize("timer2", 300)
timer2.Enabled = True
Do While bTimer2Run = True
'Activity.Invalidate
lblDBeh.Invalidate
objProgressRunDBeh.Invalidate
######
Loop
End If
Next
End Sub
Sub timer2_tick
iProgressCount = iProgressCount + 1
objProgressRunDBeh.Progress = iProgressCount
If iProgressCount > 93 Then
bTimer2Run = False
objProgressRunDBeh.Progress = 0
timer2.Enabled = False
End If
End Sub
I have entries, which are displayes with For Next. A progressBar has to run at every entry. I think I need at ###### something like ProcessMessages() (C++).
At the moment the app is working, but nothing is displayed except the last entry at the end of for next.
Sub imgDBehRun_Click
For i = 0 To mKoerper.Size - 1
If mKoerper.GetValueAt(i) = True Then
lblDBeh.Text = mKoerper.GetKeyAt(i)
iProgressCount = -1
bTimer2Run = True
timer2.Initialize("timer2", 300)
timer2.Enabled = True
Do While bTimer2Run = True
'Activity.Invalidate
lblDBeh.Invalidate
objProgressRunDBeh.Invalidate
######
Loop
End If
Next
End Sub
Sub timer2_tick
iProgressCount = iProgressCount + 1
objProgressRunDBeh.Progress = iProgressCount
If iProgressCount > 93 Then
bTimer2Run = False
objProgressRunDBeh.Progress = 0
timer2.Enabled = False
End If
End Sub