• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 205
  • Last Modified:

SetIntervalin vbscript

Hi,
Can anyone tell me the solution to this:
I have text fading from white to blue using the setInterval function.

I have:
fontint = setInterval("changeColor",50)


Sub changeColor()
... Then the rest of the code to change the color

It works fine but when it's finished fading I want setInterval to stop. It continues calling that function after it's finished.
Microsoft DHTML documentation says (about SetInterval):
"Returns an integer identifier representing the interval. Use this identifier to clear (stop) the interval."

I have tried setting fontint to null and zero but it makes no difference. I have also tried this:
fontint = setInterval("changeColor",0)

and this,

fontint = setInterval("",0)


Please any ideas would be very welcome.
Thanks,
Rhods.

0
Rhods
Asked:
Rhods
1 Solution
 
knightEknightCommented:
instead of using setInterval, call setTimeout from the sub like this:


   sub changeColor

     'your change-color code here

     if ( notFinishedFading ) then
        setTimeout("changeColor",50)
     end if

   end sub



and instead of this,

   fontint = setInterval("changeColor",0)

just do this

   call changeColor
0
 
CJ_SCommented:
declare global:
dim myinterval

myinterval = setInterval("changecolor", 100)

and to stop:
clearInterval(myinterval)

CJ
0
 
CJ_SCommented:
Any update?
0
Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

 
COBOLdinosaurCommented:
This question has been abandoned. I will make a recommendation to the
moderators on its resolution in a week or two. I appreciate any comments
that would help me to make a recommendation.
<note>
   In the absence of responses, I may recommend DELETE unless it is clear
   to me that it has value as a PAQ.  Silence = you don't care
</note>

Cd&

0
 
COBOLdinosaurCommented:
It is time to clean this abandoned question up.  

I am putting it on a clean up list for CS.

<recommendation>
points to CJ_S

</recommendation>

If anyone participating in the Q disagrees with the recommendation,
please leave a comment for the mods.

Cd&
0
 
NetminderCommented:
Per recommendation, force-accepted.

Netminder
CS Moderator
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now