Red de conocimiento informático - Material del sitio web - Cómo agregar una barra de progreso en el siguiente código de cuenta atrás de vb

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 ? ?0?Entonces

m?=?m?-?1

s?=?59

Etiqueta4 . ¿Caption?=?Str(h)?+?":"?+?Str(m)?+?":"?+?Str(s)

ElseIf?s??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