Časovač a kód

s ním sdružený přidáte do formuláře takto:
1. Při práci v návrháři formulářů klepněte v soupravě nástrojů na tlačítko Components, pak na nástroj
Timer a klepněte na formuláři.
2. Klepněte na ikonu Timer1 na podnosu komponent pravým tlačítkem myši a z místní nabídky zvolte
Properties. Nastavte hodnotu vlastnosti Interval časovače na 100.
Interval časovače určuje dobu, po jejímž uplynutí se vykoná (je-li časovač zapnutý) kód, který
umístíte do událostní procedury Tick časovače. Interval se nastavuje v milisekundách, takže 100
znamená desetinu vteřiny.
Tikání hodin časovače se zapíná pomocí vlastnosti Enabled. Je-li její hodnota rovna False, hodiny
časovače neběží. Časovač je možno zapnout v návrhovém režimu, aby se jeho hodiny rozběhly
automaticky od okamžiku, kdy se formulář objeví. Dá se ale také zapínat dynamicky až při běhu,
a to v případech, kdy chcete časovač rozběhnout až tehdy, kdy nastane nějaká konstelace okolností,
kterou nejde v návrhovém režimu předpovědět (když uživatel aplikace vyhraje).
3. Přejděte do okna kódu, vyberte ze seznamu vlevo položku Timer1 a ze seznamu vpravo událost
Tick. Do těla procedury napište kód, jehož výpis následuje:
Public Sub Timer1_Tick(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
KolikrátBlikat = KolikrátBlikat + 1
Blikat = FlashWindow(Me.Hwnd, 1)
If KolikrátBlikat * Timer1.Interval > 2800 Then
Timer1.Enabled = False
KolikrátBlikat = 0
End If
End Sub
Konstanta 2800 v konstrukci If určuje horní mez, kdy časovač sám sebe vypne a blikání tedy skončí.
Dříve se neprogramovala událostní procedura Tick, ale procedura s názvem stejným,
jako je název ovládacího prvku, tedy Timer. Další rozdíl spočívá v tom, že se dříve dal časovač
vypínat nastavením jeho vlastnosti Interval na nulu. Nyní to musíte dělat jen tak, že nastavíte
vlastnost Enabled časovače na False (nastavíte-li Interval na nulu, přepne se
automaticky na hodnotu 1).