Cómo agregar una barra de progreso en el siguiente código de cuenta atrás de vb
Dim?h,?m,?s,?k,?k1?'Agregar dos variables
Private?Sub?Command1_Click()
h ? =?Int(Val(Texto1.Texto))
m?=?Int(Val(Texto2.Texto))
s?=?Int(Val(Texto3.Texto) )
Comando1.Enabled?=?False
Comando2.Enabled?=?True
k?=?h?*?3600?+?m ? *?60?+?s'Añadir esta frase
Timer1.Interval?=?1000
Timer1.Enabled?=?True
End?Sub
Privado?Sub?Command2_Click()
Temporizador1.Enabled?=?False
Comando2.Enabled?=?False
Comando1 . ¿Habilitado?=?Verdadero
Fin?Sub
Privado?Sub?Command3_Click()
¿Descargar?Yo
Fin?Sub
¿Privado?Sub?Text2_Click()
Texto2.Text?=?""
Fin?Sub
Privado?Text1_Click? ()
Texto1.Texto?=?""
Fin?Sub
Privado?Sub?Text3_Click()
Texto3 . ¿Texto?=?""
Fin?Sub
Privado?Sub?Timer1_Timer()
Etiqueta5.Caption?=?Time()
Si?Comando1.Enabled?=?False?Entonces
Si?s?>?0?Entonces
s?=?s?-?1
Label4.Caption?=?Str(h)?+?":"?+?Str(m)?+?":"?+?Str(s)
ElseIf?s ? 1?Y?m?>?0?Entonces
m?=?m?-?1
s?=?59
Etiqueta4 . ¿Caption?=?Str(h)?+?":"?+?Str(m)?+?":"?+?Str(s)
ElseIf?s?1? ?m?1?Y?h?>?0?Entonces
h?=?h?-?1
m?=?59
s?=?59
Label4.Caption?=?Str(h)?+?":"?+?Str(m)?+?":"?+?Str(s)
Else
Comando1.Enabled?=?True
Comando2.Enabled?=?False
Temporizador1.Enabled?=?False
Label4.Caption?=?"Cuenta regresiva completada"
¿Fin?Si
Si no
¿Fin?Si
k1?=?h?*?3600?+?m?*?60?+?s?'Agregar esta oración
If?k?<>?0?Then?ProgressBar1.Value? ?
k1?/?k?*?ProgressBar1.Max?'Añadir esta frase
End?Sub