Timer dinamico VB 6.0

[chcma]

Hola buenos días,

Querría saber si alguien me puede ayudar a crear un Timer dinámico. Bueno, crear el objeto no tengo ningún problema, pero lo que no sé es como asignarle el metodo para que controle su tiempo.

Asi que si alguien puede ayudarme, se lo agradecería. Expero haberme expliado.

Saludos cordiales.

[LeXteR]

si te refieres al intervalo, lo puedes poner desde las propiedades, luego lo puedes cambiar durante la ejecucion del programa con Timer1.interval = XXXX en milisegundos.

Creo que es eso a lo que te refieres.
saludos

[chcma]

Gracias LeXteR pero no es eso a lo que me refiero, eso también se hacerlo yo. A lo que me refeiro es al Evento.

Es decir, el Timer una vez que se le establece la propiedad "enabled" a TRUE se ejecutar el método: nombreTimer_Timer()

Bien, mi intención es como crear ese método para cada objeto creado dinámicamente. Es decir:

'objTimerGenerico es un control Timer agregado en tiempo de diseño, para asi poder instanciar los demás.

set objTimer = Form1.objTimerGenerico
objTimer.Inteval = 2000
'objTimer.MetodoTimer = UnMetodo
objTimer.Enabled=True

set objTimer2 = Form1.objTimerGenerico
objTimer2.Inteval = 2000
'objTimer2.MetodoTimer = UnMetodo2
objTimer2.Enabled=True

Y cada vez que se suceda el Interval en cada timer, que se ejecute su correspondiente Método de gestión de Timer, es decir UnMetodo y UnMetodo2. En fin, espero haberme explicado cno amyor precisión y que puedan ayudarme.

Saludos cordiales.

[marcos1979]

Ahora no estoy con VB por lo que no estoy 100% seguro.
Crea un timer en tiempo de diseño y pone la propiedad index = 0 (con esto creas una matriz de controles)
Despues carga nuevos controles con Load Timer1(2), Load Timer1(3), etc. Con esto tendras nuevos controles y el evento es unico pero se diferencia por el parametro Index el cual usas como "identificador" para un Timer1 en particular.

Tequedaria algo asi:

Private Sub Timer1_Timer (Index as Integer)

Select Case Index
Case = 0
MsgBox "Evento de Timer1(0) "
Case = 1
MsgBox "Evento de Timer1(1) "
Case = 2
MsgBox "Evento de Timer1(2) "
'... Etc
End Select

End Sub

Espero no me haya equivocado, un saludo