zaver

Volba barvy číslic v dialogovém okně barva
Chcete-li uživateli povolit pouze změnu barvy číslic, nikoli atributy písma, bude lepší, když mu zpřístupníte
dialogové okno Barva. Postup je opět analogický jako v předchozích případech, ale jedná se o ovládací
prvek ColorDialog a návratová hodnota (barva, kterou uživatel vybral) je dána vlastností Color.
Za předpokladu, že jste do prostřední nabídky přidali třetí příkaz a prvek nabídky pojmenovali mnuItemBarvaČíslic,
může kód událostní procedury Click tohoto prvku vypadat takto (uvádím poněkud
jinou variantu řešení než v předchozích ukázkách):
Public Sub mnuItemBarvaČíslic_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles mnuItemBarvaČíslic.Click
Dim ctl As Label
If mnuPřizpůsobit.Menuitems(2).Text = "Změnit &barvu číslic" Then
ColorDialog1.ShowHelp = True
ColorDialog1.ShowDialog()
For Each ctl In panel1.Controls
If TypeOf ctl Is Label Then
ctl.ForeColor = ColorDialog1.Color
End If
Next
mnuItemBarvaČíslic.Text = "&Vrátit původní barvu"
Else
For Each ctl In panel1.Controls
If TypeOf ctl Is Label Then
ctl.ForeColor = PůvodníBarva
End If
Next
mnuItemBarvaČíslic.Text = "Změnit &barvu číslic"
End If
End Sub