Código fuente de cuenta regresiva de una hora de VB, el formato es 00:00:00
Aquí hay un fragmento de código que usted mismo escribió y que es más corto, más conciso y más fácil de entender, lo que le permite especificar su propia cuenta regresiva de 24 horas. Cuando se especifica, hh es el número de horas, se le asigna un valor de 0-23, mm es un número de minutos, se le asigna un valor de 0-59, ss es el número de segundos, se le asigna un valor de 0-59, pero mm y ss suelen ser 0. Haga clic en el botón de cuenta regresiva para comenzar.
'Necesita crear el control Command1 y el control Timer1 en la ventana
Dim
timeall
As
Long
'Calcular el total de segundos de cuenta regresiva
Privado
Sub
Command1_Click()
Timer1 . Habilitado
=
Verdadero
Fin
Sub
Sub
Timer1_Timer( )
Si
timeall
=
Entonces
Comando1.Título
=
"00:00:00"
MsgBox
"¡La cuenta atrás ha terminado!"Caption
=
Formato(timeall
\
3600,
"00")
&
"： "
&
Formato((timeall
\
60)
Mod
60,
"00")
&
"：
Formato(timeall
Mod.
60,
"00")
tiempotodo
=
tiempotodo
-
1
Fin
Si
Fin
Sub
Privado
Sub
Form_Activate()
Dim
hh%,
mm%,
ss%
hh<
=
1：
mm
=
0:
ss
=
'Especificar la duración de la cuenta regresiva
Comando1.Caption
=
Formato(hh,
"00")
&
":"
&
Formato(mm,
"00")
&
"："
&
Formato(ss,
"00")
timeall
=
hh
*
3600&
+
mm
*
60&
+
ss
-
1
Temporizador1.Enabled
=
Falso
Temporizador1.Intervalo
=
1000
Fin
Sub