Shockwave Flash Plugin pauses whilst code executes?

RusselJ

Board Regular
Joined
Aug 5, 2013
Messages
155
Hi all

I am trying to use a Shockwave flash plugin which I have named “Progress” to show whilst the code takes time to load a file list by toggling the visibility.

The only problem is that the video pauses whilst the list is populated which defeats the object of me having it!

Can someone suggest how this could be done so that it plays whilst the remainder of the code is executed?

Code:
Private Sub UserForm_Activate()

[B]Progress.Visible = True[/B]
[B][B]Progress.Playing = True[/B][/B]

ReDim FileList(1 To 2, 1 To 1) As String 'reinitialize FileList
Dim i As Long, n As Long, j As Long
Dim x As Variant 'not sure what this was for
Dim fName As String, fldrName As String, FilePath As String
FilePath = "Q:\cases\"
ReDim FolderList(1 To 1) As String 'reinitialize FolderList
FolderList(1) = FilePath
Progress.Playing = True
listDir FilePath, 1 'loads array FolderList with folders/subfolders
i = 1
For j = 1 To UBound(FolderList)
fName = Dir(FolderList(j) & "*" & SearchBox.Value & "*.xls*")
Do While fName <> ""
ReDim Preserve FileList(1 To 2, 1 To i) As String
FileList(1, i) = FolderList(j) & fName
FileList(2, i) = Replace(FileList(1, i), FilePath, "")
i = i + 1
fName = Dir()
Loop
Next j

With Me.ListBox1
.BoundColumn = 1
.ColumnCount = 2
.ColumnWidths = "5 pt;"
' " & .Width & "5 pt"
.Clear
.Column = FileList
End With

[B]Progress.Visible = False[/B]
End Sub
 

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

Forum statistics

Threads
1,203,605
Messages
6,056,268
Members
444,853
Latest member
sam69

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top