Námět na procvičování.

Zkuste snížit počet volání konverzních funkcí v kódu vypisovaném zde i jinde
v brožuře (například pomocí vhodných pomocných proměnných).
Nastavení barvy textu v ovládacím prvku
Další drobné zobecnění bude spočívat v tom, že pokud bude kredit vyšší, než počáteční (hráč vyhrává),
zůstane hodnota kreditu v původní barvě, bude-li prohrávat, decentně ho na to upozorníme tím, že hodnotu
zobrazíme jinou barvou (odstín růžové barvy).
1. Do deklarační sekce třídy formuláře přidejte deklaraci:
Private PočátečníBarvaKreditu As System.Drawing.Color
2. Na konec událostní procedury tlačítka Roztočit přidejte tuto rozhodovací konstrukci:
If CInt(lblKredit.Text) < PočátečníKredit Then
lblKredit.Forecolor = System.Drawing.Color.RosyBrown
Else
lblKredit.Forecolor = PočátečníBarvaKreditu
End If
Barva popředí (inkoust) se tedy nastavuje prostřednictvím vlastnosti ForeColor, obdobně barva pozadí
prostřednictvím vlastnosti BackColor. Většinou se barvy nastavují vizuálně v okně vlastností.