Dynamically add timer

[anuragshrivastava64]

Is there any way to add a timer control while run time

similar to textbox
Set txtNew = Controls.Add("VB.TextBox", "TextDynamic")

[Killer42]

Is there any way to add a timer control ...

You might be able to work without it. If you need to do multiple timers, why not just use a single control and fire different events based on your own counters? For example...

Private Sub Timer1_Timer()
  Static Counter1 As Long
  Static Counter2 As Long
  Counter1 = Counter1 + 1
  Counter2 = Counter2 + 1
  If Counter1 >= Limit1 Then
    ' Call your first timed routine
    Counter1 = 0
  End If
  If Counter2 >= Limit2 Then
    ' Call your second timed routine
    Counter2 = 0
  End If
End Sub
 

Of course, it would be better to base the events on actual elapsed time since the last firing, rather than a simple count, in case you need to change the Interval of the timer control.

[QVeen72]

Hi,

Place a Timer On the Form in Design Time, and Make Index = 0
To Add One More Timer, just use this code:

Load Timer1(1)

With above code, you can use Events associated with cotrols loaded during Run-Time...
But if you add Controls, You have to Create Events, Which is a Very Tedious process..


Regards
Veena

[Killer42]

Yes, if you're using VB6, then a control array is certain to be the simplest way to implement this.