[RESOLVED] Help needed! DoEvents doesnt works

[RS_Arm]

Hi.
My app executes a function that takes a lot of time.
Therefor, I created a form with a little animation made with 12 icons placed in a imagelist.
Right before the execution of that function, I load that form.
The form has a timer, so each 1/2 second it changes the image in the form icon and the image of image" object.

Private Sub Timer1_Timer()
Me.SetFocus
DoEvents

Me.Refresh
Me.Image1.Refresh
i = i + 1
Me.Image1 = Me.ImageList1.ListImages(i).Picture
Me.Icon = Me.ImageList1.ListImages(i).Picture

If i = 12 Then i = 1


End Sub

What happens is that I cant see the animation "running".
In the mainForm I have this code:

'...
FormWait.Show
FormWait.SetFocus
DoEvents
verify = Generate.PS2(file)
Unload FormWait
'...

Thanks

[davidbishton]

How is 'i' defined? If it's not defined at all 'i' will never get to a value higher than 1.

[iPrank]

Also...If your code runs a loop, place the doevent inside that loop (inside Generate.PS2 method).

Private Function YourCPUIntensiveFunction() As Long
    
    Do While (SomeCondition)
         DoEvents
         ' Do The Job
    Loop      
End Function

[RS_Arm]

Well, i is defined as integer.
If I run the ForWait as StandAlone, the animation works well.

To iPrank
My function is called by a dll.
Should I put DoEvents in the dll?

[iPrank]

I'm not sure about how DoEvents works on threads (or how the dll uses threading)...but if you have the source code give it a try.

[RS_Arm]

Ok, I've tryed to put DoEvents on the dll function and it worked.
Thanks.