Hola :
Estoy iniciando en esto de Visual Basic 6 y necesito un contador descendente.
La idea es un Label que me muestre un conteo, por ejemplo de 30 hacia 0 (cero) y al llegar a 0 pueda ejecutar una orden o algo.
Gracias
30/05/2008, 07:53
| |||
| |||
| Ayuda para un Novato Hola : Estoy iniciando en esto de Visual Basic 6 y necesito un contador descendente. La idea es un Label que me muestre un conteo, por ejemplo de 30 hacia 0 (cero) y al llegar a 0 pueda ejecutar una orden o algo. Gracias |
|
30/05/2008, 10:46
| |||
| |||
| Respuesta: Ayuda para un Novato Hola, prueba poniendo un control Timer en el Form:
Código:
Dim contador As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
contador = 30
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
contador = contador - 1
Label1.Caption = contador
If contador = 0 Then
Timer1.Enabled = False
MsgBox "Se acabó el tiempo, ahora puedo ejecutar una orden"
End If
End Sub
 |
