
03/08/2003, 13:11
|
| | Fecha de Ingreso: abril-2002
Mensajes: 116
Antigüedad: 22 años, 10 meses Puntos: 0 | |
* * * Dehabilita el Timer * * * Hola compañero, no te preocupes, lo que tienes que hacer es muy sencillo, basta con que vuelvas a poner el Timer1.enabled=False para que no se repita cada segundo.
Es decir tienes que jugar con el timer1.enabled = True y el Timer1.enabled = false.
Te pongo el codigo de un ejemplo para que lo entiendas. La aplicacion consta de un boton que cuando lo pulsas te envia un mensaje por pantalla cada segundo para decirte que el timer esta habilitado, y cuando lo vuelves a pulsar se cancela la operacion.
Espero que te sea de utilidad y ANIMO.
----------------------------------------------------------------------------------
Private Sub Command1_Click()
'SI EL TIMER ESTA DESHABILITADO, LO HABILITAMOS, Y SI ESTA
'HABILITADO LO DESHABILITAMOS.
If Timer1.Enabled = False Then
Timer1.Enabled = True
Command1.Caption = "TIMER ON" 'CAMBIAMOS EL CAPTION DEL BOTON
Else
Timer1.Enabled = False
Command1.Caption = "TIMER OFF" 'IGUAL.
End If
End Sub
Private Sub Timer1_Timer()
MsgBox "TIMER FUNCIONANDO" 'MANDAMOS UN MENSAJE POR PANTALLA.
End Sub |