Programación General > Visual Basic 6.0 e inferiores

 Mostrar Una Secuencia Regresiva.

(1/2) > >>

Angel38:
Hola amigos, pues primera vez que me toca hacer esto, voy a investigarlo pero aprovechando que estoy por aca :P


Quisiera mostrar en mi form un timer con cuenta regresiva de 10 segundos.

Gracias. :hola:

ArKaNtOs:
????????????????? y que quieres hacer ???????????????? no se entiende

el timer con solo ponerle 1000 ya te da un segundo y para que vaya en cuenta regresiva porque no pones algo asi:

Dim x As Byte

Private Sub Timer1_Timer()
If x = 10 Then
    MsgBox "fin"
    Timer1.Enabled = False
    Exit Sub
End If
Me.Print 10 - x
x = x + 1
End Sub

Angel38:
Excelente idea. Gracias.

robbie110487:
O algo asi se me hace mucho mas facil, mira agrega un label y un timer, y cambia la propiedad de interval de ltimer a 1000

--- Código: Text ---Dim x As BytePrivate Sub Form_Load()    x = 10End SubPrivate Sub Timer1_Timer()    If x = 0 Then Exit Sub    Label1.Caption = x    x = x - 1End Sub 
Saludos

Angel38:
Gracias Robbie, probaré a ver como me va. :P

Navegación

[0] Índice de Mensajes

[#] Página Siguiente