Update label caption in for next-loop

[Stevenn]

I have a UserForm with a label and a for next-loop and a command button. How can I update the label caption in my for next-loop? When I try updating with lblPercentage = i & "%" it does not update until the for next-loop is ended.

 

[jeffmb]

You would need to load your form modeless in order to see the updating of your label. The syntax is <FORM>fmYourFormName.Show vbModeless.

Please note that processing continues even though the form is still displayed.</FORM>

 

[Stevenn]

It seems like it updates when I use following code even though I open it directly from the UserForm

Option Explicit


Private Sub CommandButton1_Click()
    Dim i As Integer
    
    For i = 0 To 10
        Me.lblPercentage.Caption = i
        
        Application.Wait Now + TimeValue("00:00:01")
    Next i
End Sub

How is that possible when I don't open it modelessly?

 

[jeffmb]

I misunderstood what you doing. What was your code doing when you did not see an update of your caption? Did you try inserting "DoEvents" into your original code?

 

[Stevenn]

I misunderstood what you doing. What was your code doing when you did not see an update of your caption? Did you try inserting "DoEvents" into your original code?

I can't understand why it doesn't update. My code looks like

Private Sub CommandButton1_Click()
    Dim i As Integer, j As Integer
    
    For i = 1 To 10000
        Cells(i, 1).Value = "a"
        Cells(i, 2).Value = "b"
        Cells(i, 3).Value = "c"
        Cells(i, 4).Value = "d"
        
        For j = 0 To 30
            Me.lblPercentage.Caption = i
        Next j
    Next i
End Sub

 

[Stevenn]

Can I somehow have disabled DoEvents? Even in my code

For Each objControl In .Controls
    objControl.Enabled = False
Next objControl

doesn't work. But when I add DoEvents inside the for each next-loop it works.

For Each objControl In .Controls
    objControl.Enabled = False
    
    DoEvents
Next objControl

 

[jeffmb]

When I inserted DoEvents into your code it worked fine for me.

Private Sub CommandButton1_Click()
    Dim i As Integer, j As Integer
    
    For i = 1 To 10000
        Cells(i, 1).Value = "a"
        Cells(i, 2).Value = "b"
        Cells(i, 3).Value = "c"
        Cells(i, 4).Value = "d"
        
        For j = 0 To 30
            Me.lblPercentage.Caption = i
            DoEvents
        Next j
    Next i
End Sub

 

[Stevenn]

But why is it suddently necessary to use DoEvents? I think some of my projects have worked just fine without using DoEvents, but suddently doesn't work anymore without? Am I wrong or is there a explanation?

 

[jeffmb]

DoEvents causes the processing of pending events up to that point of time. Subsequent events need another DoEvents in order to be processed. See http://support.microsoft.com/kb/118468 for more information.