Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'A névsor beolvasása
        NévsorBeolvas(NévsorFájl)
        'A névsor kiírása
        SzövegdobozNévsor(Me.RichTextBox1)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Névsor beolvasás a Tanulók tömbbe, Indexelés
        NévsorBeolvas(NévsorFájl)
        IndexelNév()
        BeolvasListába(Me.ComboBox1)
    End Sub

    Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        Rendezés(Tanulók, 1)
        'A névsor kiírása
        SzövegdobozNévsor(Me.RichTextBox1)
    End Sub

    Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
        Rendezés(Tanulók, 2)
        'A névsor kiírása
        SzövegdobozNévsor(Me.RichTextBox1)
    End Sub

    Private Sub RadioButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.Click
        Rendezés(Tanulók, 3)
        'A névsor kiírása
        SzövegdobozNévsor(Me.RichTextBox1)
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Rendezés(Tanulók, 4)
        'A névsor kiírása
        SzövegdobozNévsor(Me.RichTextBox1)
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        Rendezés(Tanulók, 5)
        'A névsor kiírása
        SzövegdobozNévsor(Me.RichTextBox1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Statisztika
        Statisztika()
        SzövegdobozStatisztika(Me.RichTextBox1)
        StatisztikaMent(Me.RichTextBox1, StatisztikaFájl)
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim KeresettNév As String
        Dim i As Integer
        KeresettNév = Me.ComboBox1.SelectedItem.ToString
        i = Keresés(IndexNév, KeresettNév)
        If i > -1 Then
            Me.RichTextBox1.Text = "Keresett tanuló adatai:" & vbNewLine
            Me.RichTextBox1.Text &= "Név: " & IndexNév(i).Név & vbNewLine
            Me.RichTextBox1.Text &= "Osztály: " & IndexNév(i).Osztály & vbNewLine
            Me.RichTextBox1.Text &= "Neme: " & IndexNév(i).Neme & vbNewLine
            Me.RichTextBox1.Text &= "Született: " & IndexNév(i).Született & vbNewLine
            Me.RichTextBox1.Text &= "Átlag: " & IndexNév(i).Átlag
        End If
    End Sub
End Class