[vb6] duraçao de um periodo de tempo

[n_digo]

boas pll

gostava de saber tipo...

carrego num botao e uma label faz a contagem decrecente do nº que eu quizer e ao chegar ao zero fecha a form!!!

como faço isso??

[Cypher]

com o timer!

[n_digo]

pois mas como ?

é que eu n consigo fazer isso...

[Miguel_Silva]

Inseres um timer, metes o interval =1000(1000 milisegundos ou seja um segundo) e depois clicas nele, na janela de código inseres o código que pretendes e pronto é isto.

[n_digo]

aradeço a vossa ajuda ...

mas assim demorame 1 s a.

eu cria carregavas num botao por exemplo, serve qualquer interação depois começava uma contagem de 10 s onde mostrava na

label mostrava esses 10 segundos por contagem decresecente, aqui o decrescente não me interessa mt, mas sim mostrar a

contagem.

Durante esses 10 s eu poderia fazer o que bem entendesse e que tivesse na minha form , carregar em botoes preencher caixas de texto , enfim o que quizesse. Ao fim dos 10 segundos parava e fazia um unload me da form.

o problema n esta como ponho a contar o tempo mas sim como faço isto td ao mesmo tempo!! 

[Miguel_Silva]

Imagina que tens um label chamado label1 um timer chamado timer1 e interval=1000

Agora exprimenta isto:

Dim cont As Integer

Private Sub Form_Load()
cont = 11
End Sub

Private Sub Timer1_Timer()
cont = cont - 1
Label1.Caption = cont & " segundos para fechar"
If cont = 0 Then Unload Me
End Sub

Durante este tempo podes clicar em botões etc.

[Cypher]

como queres isso a começar com a interaçao de um botao poens o timer1.enable=false

e na acção do botao poens timer1.enable=true

[[]]