Aprire un progetto di Visual Basic . Fare doppio clic sul controllo Timer per aggiungere Timer1 al progetto. Fare doppio clic sul controllo Label per aggiungere Label1 al form. Modifica delle proprietà del controllo Timer1 Enabled su true e la proprietà Interval su 1000
2
Premere " F7 " per aprire la finestra di codice , e digitare il seguente codice: .
Tempo fioco come integer = 10
Questo crea una variabile e la inizializza
3
Aprire la subroutine Timer1_Tick e digitare il seguente codice: .
tempo > 0 Then
tempo
= tempo - 1
Label1.Text = tempo
Else
Timer1.Enabled = False
End If
Quando il programma viene eseguito , il Timer decrementare la variabile tempo di uno ogni secondo , e visualizzare il valore in etichetta , fino a quando il conteggio raggiunge 0 , a questo punto il timer si spegne.
4
Premete "Shift " e "F7" per aprire la finestra di progettazione . Fare doppio clic sul controllo Timer per aggiungere Timer2 al progetto. Cambiare la proprietà Enabled su true e la proprietà Interval su 100 , quindi fare doppio clic per aprire il sottoprogramma Timer2_Tick . Digitare il seguente codice :
( Label1.Left + Label1.Width ) > Me.Width Poi
Label1.Left = Me.Left - 100
Programmazione © www.354353.com