Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/11/2010, 16:26
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 15 años, 2 meses
Puntos: 53
Respuesta: Dos Timer y uno no funciona.

Hola Xyon, encantado de saludarte de nuevo, ante la duda de si o no puedes utilizar varios timer, acabo de hacer esta prueba.

Necesitas un Formulario con un array de 3 Timer y un array de 3 Labels

Timer1(0), Timer1(1), Timer1(2)
Label1(0), Label1(1), Label1(2)

Código vb:
Ver original
  1. Private Sub Label1_Click(Index As Integer)
  2.   ' Al pulsar sobre el label se activa/desactiva su timer
  3.  If Timer1(Index).Enabled Then
  4.     Timer1(Index).Enabled = False
  5.   Else
  6.     Timer1(Index).Enabled = True
  7.   End If
  8. End Sub
  9.  
  10. Private Sub Timer1_Timer(Index As Integer)
  11.   ' Al producirse el evento, se incrementa en 1 el label
  12.  Label1(Index) = Val(Label1(Index).Caption) + 1
  13. End Sub
Con este código puedes comprobar que funcionan independientes, después el cálculo que dena efectuar cada uno de ellos ya es independiente.

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...