Solved

SetIntervalin vbscript

Posted on 2002-07-17
6
195 Views
Last Modified: 2010-04-09
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
Comment
Question by:Rhods
6 Comments
 
LVL 33

Expert Comment

by:knightEknight
ID: 7160438
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
 
LVL 22

Accepted Solution

by:
CJ_S earned 300 total points
ID: 7164230
declare global:
dim myinterval

myinterval = setInterval("changecolor", 100)

and to stop:
clearInterval(myinterval)

CJ
0
 
LVL 22

Expert Comment

by:CJ_S
ID: 7171215
Any update?
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 53

Expert Comment

by:COBOLdinosaur
ID: 7240664
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
 
LVL 53

Expert Comment

by:COBOLdinosaur
ID: 7270978
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
 
LVL 5

Expert Comment

by:Netminder
ID: 7297712
Per recommendation, force-accepted.

Netminder
CS Moderator
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Date on a table 16 37
Why is my $_POST not going to results page 10 41
Blending HTML output from R Studio into a ASP.Net/C# project 4 23
Increase image taller on inner pages 2 20
Things That Drive Us Nuts Have you noticed the use of the reCaptcha feature at EE and other web sites?  It wants you to read and retype something that looks like this.Insanity!  It's not EE's fault - that's just the way reCaptcha works.  But it is …
Building a website can seem like a daunting task to the uninitiated but it really only requires knowledge of two basic languages: HTML and CSS.
The viewer will learn the benefit of using external CSS files and the relationship between class and ID selectors. Create your external css file by saving it as style.css then set up your style tags: (CODE) Reference the nav tag and set your prop…
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question