Using a modeless form to show status

N

NotMe

Rather than use the status bar, I displayed a modeless form with just a
label control. During the execution of a ton of code operating on a ton of
data, I periodically wrote text to the control telling how far computation
had progressed. It all seemed to work, except that the area where the
label was was whit and no text showed up. When computation was complete
and I stopped updating the control, the last message I had sent displayed
correctly.

Is there any way to use a user form (or anything similar) to display a
rapidly changing message during execution?

Thanks.
 
O

OssieMac

Hi,

The following simple example worked OK using Repaint. However, if I inserted
the following line inside the If/End If then it did not work.
Me.Label1.Caption = i

Private Sub CommandButton1_Click()
Dim i As Long

For i = 1 To 100000
Me.Label1.Caption = i
If i Mod 1000 = 0 Then
Me.Repaint
End If
Next i

End Sub


The following code did NOT work and I have no idea why.

Private Sub CommandButton2_Click()
Dim i As Long

For i = 1 To 100000
If i Mod 1000 = 0 Then
Me.Label1.Caption = i
Me.Repaint
End If
Next i

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top