CARLOS FALCÃO
não registrado
|
|
Postada em 24/09/2004 21:23 hs
Boa noite. Alguém poderia me ajudar a criar um cronometro. Gostaria de definir o inicio por exemplo 60 segundos e ele me mostraria na tela 59, 58, 57, 56..... e assim por diante a cada segundo. Obrigado. |
|
|
|
|
|
Jose.Niz
|
CURITIBA
PR - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/09/2004 22:53 hs
Adicione um label e um timer no formulário e use o exemplo abaixo.
Private Sub Form_Load()
Label1.Font = "MS Sans Serif"
Label1.FontSize = 24
Label1.FontBold = True
Label1.Caption = 60
Timer1.Interval = 1000 ' Intervalo de 1 segundo
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Not CInt(Label1.Caption) = 0 Then _
Label1.Caption = CInt(Label1.Caption) - 1
End Sub |
|
|
|
CARLOS FALCAO
não registrado
|
|
Postada em 28/09/2004 11:30 hs
Valeu Jose Funcionou perfeitamente.... Obritgado |
|
|
|
