[RESOLVED] Novice question

[unora]

I am changing the caption property of a label inside a Do Loop but it does not work. The program runs well but get almost 100% from CPU and in task manager appears "Not reponding". Of course when the Do Loop finish the label get updated. The code is more or less like this:

i=1
do
label.caption="Tested:" & Cstr(i)
i=i+1
loop until 1=10000

[jethrobg]

your mistake is 1=1000 it must be i=1000

[zaza]

Also, put Doevents in your loop to get things to update and stop the computer from freezing.

zaza

[Hack]

Welcome to the forums.

Try this

Private Sub Command1_Click()
Dim i As Long
i = 1
Do
Label1.Caption = "Tested: " & CStr(i)
DoEvents
i = i + 1
Loop Until i = 10000
End Sub

[unora]

your mistake is 1=1000 it must be i=1000

Sorry, I type a mistake.

[unora]

Also, put Doevents in your loop to get things to update and stop the computer from freezing.

zaza

Sort and simple ... It is working right now, thanks.

[unora]

Welcome to the forums.

Try this

Private Sub Command1_Click()
Dim i As Long
i = 1
Do
Label1.Caption = "Tested: " & CStr(i)
DoEvents
i = i + 1
Loop Until i = 10000
End Sub

Hello from Spain

[Hack]

Hello from Spain

Welcome.

If this is resolved, please pull down the Thread Tools menu and click the Mark Thread Resolved button. That will let everyone know that you have your answer.

Thank you.

[unora]

I tried also "label.refresh" and works only if I do nothing, I mean, the label`s caption updates but if I move the window, or set the focus to other windows the label`s caption do not update any more. Doevents works fine and better. Again thanks.

[unora]

Welcome.

If this is resolved, please pull down the Thread Tools menu and click the Mark Thread Resolved button. That will let everyone know that you have your answer.

Thank you.

Done

[Hack]

but if I move the window, or set the focus to other windows the label`s caption do not update any more.

That is because in order for code to execute, the window has to have focus.

[unora]

That is because in order for code to execute, the window has to have focus.

Mmmm I do not agree that. For example my program runs on window A, now the label´s caption is being updated. Then I set focus to IE (for example) and then I return to my program´s window. The label´s caption shows nothing. But If I pause the execution and then run , the label´s caption begin to be updated again. Anyway, the statement "Doevents" works

[Hack]

For example my program runs on window A, now the label´s caption is being updated. Then I set focus to IE (for example) and then I return to my program´s window. The label´s caption shows nothing.

Right, because it doesn't have focus

But If I pause the execution and then run , the label´s caption begin to be updated again.

But, now it does have focus again.