' The Blank Page item template is documented at http://go.microsoft.com/fwlink/?LinkId=234238

''' <summary>
''' An empty page that can be used on its own or navigated to within a Frame.
''' </summary>
Public NotInheritable Class MainPage
    Inherits Page

    Private Sub TlacitkoPridatZaznam_Click(sender As Object, e As RoutedEventArgs) Handles TlacitkoPridatZaznam.Click
        'Deklarace noveho objektu LyzarZavodnik typu Lyzar
        Dim LyzarZavodnik As New Lyzar
        'Nastaveni vlastnosti objektu LyzarZavodnik pomoci
        'obsahu vstupnich textovych poli
        LyzarZavodnik.KrestniJmeno = TextovePoleKrestniJmeno.Text
        LyzarZavodnik.Prijmeni = TextovePolePrijmeni.Text
        If (TextovePoleVek.Text <> Nothing) Then LyzarZavodnik.Vek = TextovePoleVek.Text
        LyzarZavodnik.Pohlavi = TextovePolePohlavi.Text
        'Zobrazeni zavodni skupiny, do niz byl zak zarazen,
        'na zaklade volani metody Skupina objektu LyzarZavodnik
        TextovePoleSkupina.Text = LyzarZavodnik.Prijmeni & " zařazen do skupiny: " _
            & LyzarZavodnik.Skupina()
    End Sub
End Class
