Como reflejo Un lapso de tiempo en una etiqueta label

Alexforo
27 de Septiembre del 2005
Quiero que al apretar un boton en un label me muestre un tiempo que yo asigne, por ejem que inicialize en 1:20:00 (Una hora, 20 minutos, cero segundos) y vaya en retroceso a la velocidad de un reloj comun (1:19:59 y asi sucesivamente) hasta llegar a 0:00:00
Espero alguien me pueda ayudar Gracias de antemano

mvallejos
27 de Septiembre del 2005
Antes que nada necesitas un Timer con la propiedad Interval en 1000 (equivale a 1 segundo).
Luego, codificas una sub, que tome como pararámetro una cantidad de segundos y te lo convierta a Horas, minutos y segundos.
A esta sub la llamas desde el Timer

En este ejemplo, la sub, el primer parametro es la cantidad de segundos totales, esto lo debe descomponer en horas, min y segundos.

Sub Convertir(Segundos, Horas as Integer,Minutos as Integer,Seg As Integer)
Dim Resto as Long

' Tomará solo la parte entera de la división
Horas = Segundos / 3600 ' (60 min x 60 seg)
Resto =Segundos - (Horas * 3600)
Minutos = Resto / 60
Seg = Resto - (Minutos*60)

End Sub

En el Timer, le restas 1 a la cantidad de segundos iniciales, con ese resultado llamas a la sub

Saludos