cool web a perfektni rs- Doporucuji

Sunday, August 19, 2007

Napište událostní proceduru Click tohoto prvku nabídky:
Public Sub mnuItemNázevPísma_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles mnuItemNázevPísma.Click
If mnuItemNázevPísma.Text = "&Změnit název písma" Then
FontDialog1.ShowColor = True
FontDialog1.ShowEffects = True
FontDialog1.ShowDialog()
lblCislo1.Font = New System.Drawing.Font(FontDialog1.Font.Name, 48!)
lblCislo1.ForeColor = FontDialog1.Color
' Obdobně pro popisky lblCislo2 a lblCislo3
mnuItemNázevPísma.Text = "&Zpět původní písmo"
Else
lblCislo1.Font = New System.Drawing.Font(PůvodníPísmo, 48!)
lblCislo1.ForeColor = PůvodníBarva
' Obdobně pro popisky lblCislo2 a lblCislo3
mnuItemNázevPísma.Text = "&Změnit název písma"
End If
End Sub

Labels: