Question : Timer Interval not working

Hi Experts,

I added a timer interval of 1000 on my form, but it has no any effect. In fact, the form does not appear at all. The application is a Front End and when it's opened, a message appears to indicate if the version is updated or up to date. I have a small form for this, but it does not appear at all on the screen.
How I can make that work ?

thanks in advance for your help
stronghold888

Answer : Timer Interval not working


  I generally like to avoid the timer event unless I want to use it for a trigger for other things (because you only can have one per form).  For something like you describe,  I do something like:

Do something (open a form or message window)
wait(3)
Clean up (close form or message window).

  The Wait() procedure is attached.

  In place of the above, if you already have a message box class, then you could add the wait() right into it giving you another tool in the toolbox for use through out your app.

HTH,
JimD.



  
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Function Wait(intSeconds As Integer) As Integer
 
    Dim datCurDateTime As Date
    datCurDateTime = Now
    
    Do Until DateDiff("s", datCurDateTime, Now) > intSeconds
      DoEvents
    Loop
    
End Function
Open in New Window Select All
Random Solutions  
 
programming4us programming4us