Screensaver Blues

(Since this is the Graphics forum, I thought I'd use a color in the subject---woo ha ha.)

I'm writing a custom screensaver (in VB6) that some of you may find pretty boring---it displays random text and quotes. However, I'd really appreciate your help with a couple of things:

(1) As usual, I copy the .scr file to Windows/System, then choose it from the Screen Savers list in Display Properties. The screensaver then runs after the designated time.

However, from that point on, Windows no longer shows the screensaver's title in the Screen Savers box; it's reset to "(None)." And yet Windows keeps running the screensaver normally. How come it can't remember the name? And why does it keep using it when the box says "(None)"?

(2) I'd like to add the option to smoothly scroll the text across the screen. I've tried Move (with the text in a picture box)---and it's very fast, even with DoEvents in the loop (which you need, right?). However, when I try to control the speed by adding a timer-check loop:

TimesUp = False
Do
DoEvents
If TimesUp = True then Exit Do
Loop

...everything slows to a crawl---even with the timer set to 1 millisecond.

Am I doing this all wrong? If I need to use API calls, etc., do you think you could explain it so even a non-genius like I could understand?

Thanks for your help!

Use gettickcount API. Such as:

VB Code:

TimesUp = Gettickcount + Delay
Do 
 DoEvents 
Loop until TimesUp <= Gettickcount

TimesUp needs to be a long (&), and delay should be a positive value (for obvisus reasons), and should also be a long. The Delay value is the number of milliseconds to delay for.

You would have to use the Api Viewer (or a search of the forums) to find the declation of the api. My school didn't bother to install the api viewer (those cheap asses...:rolleyes: ).

Declare Function GetTickCount Library "kernel32" () As Long

Thanks, guys! I'll give it a try ASAP.

Cheers, Ander

Wow---getTickCount is great! I may never use a timer again. :?)

Thanks, guys. You're geniuses.

By the way, the actual declaration is:

Declare Function GetTickCount Lib "kernel32" () As Long

("Lib" instead of "Library".)

*smile* YES! YES! Timers are evil

If you need more precision, you can use the QueryPerformanceCounter/Frequency API calls. They offer (depending on the computer) < 1 ms accuracy.

You know, that Declare thing is the only thing I've ever used in VB, and that's a while ago.
Used it to insert my own lib into someone else's app...