ProPixel

Participe do fórum, é rápido e fácil

ProPixel
ProPixel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Ir para baixo
-Stand!
-Stand!
Membro Lendário

<b>Idade</b> Idade : 26
<b>Posts</b> Posts : 2679
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : -16
é verdade...


e vlw mesmo
Atom
Atom
Membro Pro

<b>Idade</b> Idade : 28
<b>Posts</b> Posts : 1236
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : 18
muito bom kra mas parece q só agente movimenta os topicos dessa area
q raiva!o pessoal nãi sabe programar não ta afim de aprender e fica reclamando dos bug´s sem saber nem o q está acontecendo :sad:
-Stand!
-Stand!
Membro Lendário

<b>Idade</b> Idade : 26
<b>Posts</b> Posts : 2679
<b>Créditos</b> Créditos : 0
<b>Respeito</b> Respeito : -16
~ Requerimentos ~

- Visual Basic 6
- 1 label de name "procodelblcnt" (com caption = "60")
- 1 timer de nome "procodetmrcnt" (com interval = 1000 (1 segundo))
- Conhecimento Basico

~ Tutorial ~

- Adicione os Códigos a Seguir no local de Code do vb6.

Código:
Private Sub Form_Load()
procodetmrcnt.Interval = 1000
End Sub

Private Sub procodelblcnt_Click()
If procodelblcnt.Caption = "0" Then
End
End If
End Sub

Private Sub procodetmrcnt_Timer()
procodelblcnt.Caption = procodelblcnt.Caption - 1
End Sub


- Aperte F5 para o seu programa rodar e veja o tempo diminuindo em 1 em 1 segundo.

~ Observações ~

-
Para fazer a contagem subir ao invés de decer, troque
"procodelblcnt.Caption = procodelblcnt.Caption - 1" por "lblcnt.Caption
= procodelblcnt.Caption + 1"

- Após chegar a 0 na label ele vai continuar contando e irá ir para os números negativos.





Tuto : By : Wil
Conteúdo patrocinado
Ir para o topo
Permissões neste sub-fórum
Não podes responder a tópicos