make label flash whilst a spcific piece of code is runing

[DevelopV]

Whilst a specific section of code is being run I want to make a label appear to flash
eg.
some code label does not flash
more code label flashes
some code label does not flash

I assume that I use the forms timer event but I can't get it to work.

How do I do this?

Many thanks in advance

 

[SkipVought]

Hi,

What have you tried and what were the results?

Pls post your code.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[DevelopV]

For varItem = 0 To Me.lstAvialableFilesForUpload.ListCount - 1
    Me.lblFileBeingTransferred.Caption = "Copying file:  " & Me.lstAvialableFilesForUpload.Column(0, varItem) & "      File " & i & " of " & lstCount
    Form_Timer
    FileToCopyFrom = pubWebOrderUploadDataFromLocalFolder & "\" & Me.lstAvialableFilesForUpload.Column(0, varItem)
    FileToCopyTo = pubWebOrderUploadDataToInternetFolder & "/" & Me.lstAvialableFilesForUpload.Column(0, varItem)
    PutFileUsingFTP pubInternetDomainName, pubInternetFTPUserName, pubInternetFTPPassword, FileToCopyFrom, FileToCopyTo
    i = i + 1
Next
Me.TimerInterval = 0

Private Sub Form_Timer()

Me.TimerInterval = 300

If Me.lblFileBeingTransferred.Visible = True Then
Me.lblFileBeingTransferred.Visible = False
Else
Me.lblFileBeingTransferred.Visible = True

End If
End Sub

 

[PHV]

I'd try this:

Me.TimerInterval = 300
For varItem = 0 To Me.lstAvialableFilesForUpload.ListCount - 1
    Me.lblFileBeingTransferred.Caption = "Copying file:  " & Me.lstAvialableFilesForUpload.Column(0, varItem) & "      File " & i & " of " & lstCount
    FileToCopyFrom = pubWebOrderUploadDataFromLocalFolder & "\" & Me.lstAvialableFilesForUpload.Column(0, varItem)
    FileToCopyTo = pubWebOrderUploadDataToInternetFolder & "/" & Me.lstAvialableFilesForUpload.Column(0, varItem)
    PutFileUsingFTP pubInternetDomainName, pubInternetFTPUserName, pubInternetFTPPassword, FileToCopyFrom, FileToCopyTo
    i = i + 1
Next
Me.TimerInterval = 0

Private Sub Form_Timer()
Me.lblFileBeingTransferred.Visible = Not Me.lblFileBeingTransferred.Visible
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DevelopV]

Hi PH

A lot neater than mine, but the label still does not flash

 

[PHV]

What happens if you add a DoEvents call inside your loop?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[PHV]

BTW, I forget to add this line at the end of the Timer event procedure:
Me.Repaint

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886