. No Visual Basic NET , o controle Timer permite controlar eventos recorrentes durante o tempo de execução para a sua aplicação . Timer tem algumas propriedades e métodos que são únicas para ele. Sua propriedade mais importante é a Interval , que especifica quantas vezes o temporizador deve executar seu código . Você fornece um valor de intervalo em milissegundos ; 1.000 milissegundos equivale a um segundo. Alguns exemplos do que você pode fazer com um controle Timer incluem a execução de uma contagem regressiva , alterar dinamicamente os valores de propriedade para outros controles e manter uma vigilância constante sobre alguma outra parte da aplicação. Instruções
1
Abra um projeto Visual Basic. Clique duas vezes no controle Timer para adicionar Timer1 para o projeto. Clique duas vezes no controle Label Label1 para adicionar ao formulário. Altere a propriedade Enabled do controle Timer1 para True ea propriedade Interval a 1000
2
Pressione " F7 " para abrir a janela de código e digite o seguinte código: .
Tempo Dim integer = 10
Isso cria uma variável e inicializa-lo
3
Abra o sub-rotina Timer1_Tick e digite o seguinte código: .
Se o tempo > 0 Then
tempo = tempo - 1
Label1.Text = tempo
Else
Timer1.Enabled = False
End If
Quando o programa é executado , o temporizador irá diminuir a variável tempo por um a cada segundo, e exibir o valor no rótulo, até que a contagem chegar a 0 , no ponto em que o temporizador desliga-se.
< br > 4
Pressione " Shift" e " F7 " para abrir a janela de design. Clique duas vezes no controle Timer para adicionar Timer2 ao projeto. Mude sua propriedade Enabled como True e sua propriedade Interval para 100, em seguida, clique duas vezes nele para abrir o sub-rotina Timer2_Tick . Digite o seguinte código:
Se ( Label1.Left + Label1.Width ) > Me.Width Então
Label1.Left = Me.Left - 100
End If
Label1.Left = Label1.Left + 5
Este código faz com que o rótulo para rolar horizontalmente na tela , movendo-se cinco pixels a cada décimo de segundo. Quando o rótulo atinge a extremidade direita da forma que salta de volta para a esquerda e começa a rolar em toda novamente.
5
Pressione " Shift" e " F7 " para abrir a janela de design. Clique duas vezes no controle Timer para adicionar Timer3 ao projeto. Mude sua propriedade Enabled como True ea propriedade Interval para 500. Clique duas vezes no controle TextBox para adicionar TextBox1 para o projeto. Clique duas vezes em Timer3 no projeto para abrir o sub-rotina Timer3_Tick . Digite o seguinte código:
TextBox1.Text = TextBox1.Text.ToUpper
TextBox1.Select ( TextBox1.TextLength , 0)
a cada meio segundo o timer muda tudo o texto em TextBox1 para maiúsculas . Por padrão, quando o temporizador faz esta mudança que se move o cursor para o início da caixa de texto. A segunda linha de código impede que isso aconteça .