Como programar o controle Timer no VB.NET

Com o controle Timer do Visual Basic .NET, você pode controlar eventos recorrentes.

Passo 1

Abra um projeto do Visual Basic. Clique duas vezes no controle "Timer" para adicionar Timer1 ao projeto. Clique duas vezes no controle "Label" para adicionar Label1 ao formulário. Altera a propriedade "Habilitado" do controle Timer1 para "True" (true) e a propriedade "Interval" (intervalo) para 1000.

Passo 2

Pressione "F7" para abrir a janela de código e digite o seguinte:

Dim time As Integer = 10

Isso criará uma variável e iniciará com um valor.

Passo 3

Abra a sub-rotina Timer1_Tick e digite o seguinte código:

Se time> 0 Then time = time - 1 Label1.Text = time Outros Timer1.Enabled = False End If

Quando o programa é executado, o Temporizador irá diminuir a variável tempo um por um a cada segundo e exibir o valor na etiqueta até que a contagem atinja 0. Nesse momento, o Temporizador será desativado.

Passo 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 de "Enabled" para "True" e sua propriedade "Interval" para 100. Em seguida, clique duas vezes nele para abrir a sub-rotina Timer2_Tick. Escreva o seguinte código:

If (Label1.Left + Label1.Width)> Me.Width Então Label1.Left = Me.Left - 100 End Se Label1.Left = Label1.Left + 5

Com esse código, o rótulo se moverá horizontalmente pela tela, movendo cinco pixels a cada décimo de segundo. Quando o rótulo atingir o final direito do formulário, ele retornará à extremidade esquerda e começará a rolar horizontalmente novamente.

Passo 5

Pressione "Shift" e "F7" para abrir a janela de design. Clique duas vezes no Timer para adicionar Timer3 ao projeto. Altere sua propriedade "Enabled" para "True" e sua propriedade "Interval" para 500. Clique duas vezes no controle "TextBox" (caixa de texto) para adicionar TextBox1 ao projeto. Clique duas vezes no Timer3 do projeto para abrir a sub-rotina Timer3_Tick. Escreva o seguinte código:

TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Select (TextBox1.TextLength, 0)

A cada meio segundo, o temporizador mudará todo o texto em TextBox1 para letras maiúsculas. Por padrão, quando o Timer faz essa alteração, o cursor retorna ao início da caixa de texto. A segunda linha de código impede que isso aconteça.