Timer

[sniper_014]

I am making a game show type of game and i dont know how to make a timer on it so that there is a label that is shrinking in size untill it is gone. When it is gone i am going to make form2.visible=false. So if u have a code that can make this type of timer please post a reply
thanks,
sniper

[Electroman]

Place a Timer on your form and call it TmrLabel then add this code:

Private Sub TmrLabel_Timer()
Static Times As Integer
    
    If Times = 10 Then ' Change 10 to the amount of steps you want!
        'Hide the other form...
        Form2.Visible = False
        
        'Disable the Timer...
        TmrLabel.Enabled = False
        
        'Set Times to zero so it can be run again...
        Times = 0
    Else
        'Do the code to make the label smaller...
        
        
        'Increment the counter...
        Times = Times + 1
    End If
End Sub

Hope that helps you, I didn't do the code for shrinking the label because I wasn't sure how your going about that .

[sniper_014]

what i mean by the timer shrinking is that it will be like a label box that is a long rectangle and as the time runs out the rectangle will get shorter.

[Electroman]

Posted by sniper_014
what i mean by the timer shrinking is that it will be like a label box that is a long rectangle and as the time runs out the rectangle will get shorter.

Your going to be changing the font to do that right?

You will still be able to use my code, the total time until the time runs out will be 10 * TmrLabel.Interval (where the 10 is you can chage this to add more time), the interval will simply determine how acurate it is, so if you make the interval smaller then it will be smooth but if you make it big it will be jumpy. Whenever you change the interval remember it will effect the total time so you'll need to then edit the 10 .

[Electroman]

If you put this line where I left a spare then it works but I don't know how you want it to shrink. If it would shink into the center (which is a bit harder) or like this line does makes it shrink into the top left corner :

Label1.Font.Size = Label1.Font.Size - 2

[vbNeo]

I really would consider using a set of functions based on GetTickCount() instead of the normal VB timers, you can save a lot of resources by doing that ...

[alkatran]

Place a timer on the form, give it an interval of 10. Put your label, double click the timer, and in the event make the label shrink relative to itself.

...cooties? over the internet?