[vb8] duraçao de um periodo de tempo

[david_carlos]

boas pll

gostava de saber tipo...

uma label faz a contagem decrecente do nº que eu quizer e ao chegar ao zero abria uma MessageBox

como faço isso??

[renafi]

Bem... Precisas de um timer e configurá-lo para executar os ciclos de seg a seg.

Capturas o evento Tick... e ai dentro vais retirando um valor à label. Quando chegar a zero, desligas o timer, e apresentas a mensagem.

[jpaulino]

Boas

podes me arranjar o codigo sff?

Já tens alguma coisa feita ? É mais ou menos isto:

Public Class Form1

    Private WithEvents tm As New Timer
    Private counter As Byte

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        counter = 10
        tm.Interval = 1000
        tm.Start()
    End Sub

    Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
        counter -= 1
        If counter <= 0 Then
            tm.Stop()
            MessageBox.Show("Done!")
        End If
    End Sub

End Class

[jpaulino]

E tens o código igual ? Vê lá bem!