Nenhuma avalição
COMENTAR
INDICAR
Relógio no Visual BasicPostada em: 29/12/2004
- Crie um FORM no seu projeto
- Insira um LABEL
- Insira um TIMER
Insira o código abaixo:
Option Explicit 'Ativa a declaração explicita de variáveis, evitando que seja utilizado no código uma variável que não tenha sido declarada
Dim vHoraAtual As Date 'Declara uma variável de nome "vHoraAtual" como sendo do tipo Date
Private Sub Form_Load() 'Executa o código antes da abertura do formulário
Timer1.Interval = 500 'Define o intervalo do objeto timer1 como sendo de 500 ms. Trabalhamos com 500 para evitar aquele efeito indesejável de piscar
Timer1.Enabled = True 'Ativamos o timer1
Label1 = Time 'Setamos o texto do label1 com a hora atual
End Sub
Private Sub Timer1_Timer()
vHoraAtual = Time 'Seta o valor da variável vHoraAtual com o valor da hora atual!
If Label1 <> Time Then 'Neste If olhamos para o conteúdo do label1 a cada 500 ms
Label1 = vHoraAtual 'Se o mesmo for diferente (<>) de time (hora atual), atualizamos o conteúdo vHoraAtual, ou seja, a hora atual.
End Sub
Enviado por USUÁRIO REMOVIDO em 7 de janeiro de 2005 Eduardo, tudo bem ??
Legal sua materia, para quem quer começar a programar em VB está ai, um exemplo bom, tenho também algumas coisas de VB para passar para o pessoal..
Até +
