[RESOLVED] Novice question

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

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

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

zaza

Welcome to the forums. :wave:

Try this

VB Code:

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

Quote:

---

Originally Posted by jethrobg

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

---

Sorry, I type a mistake.

Quote:

---

Originally Posted by zaza

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.

Quote:

---

Originally Posted by Hack

Welcome to the forums. :wave:

Try this

VB Code:

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 :wave:

Quote:

---

Originally Posted by unora

Hello from Spain :wave:

---

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. :)

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.

Quote:

---

Originally Posted by Hack

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 ;)

Quote:

---

Originally Posted by unora

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.

Quote:

---

Originally Posted by Hack

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 :thumb:

Quote:

---

Originally Posted by unora

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

Quote:

---

Originally Posted by unora

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.