Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Beolvasás betuk.txt-ből
        Dim Fájl As String
        Fájl = FájlÚtvonal("betuk.txt")
        Beolvas(Me.RichTextBox1, Fájl)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Kiírás betuk2.txt-be
        Dim Fájl As String
        Fájl = FájlÚtvonal("betuk2.txt")
        Kiír(Me.RichTextBox1, Fájl)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Naplózás naplo.txt-be
        Dim Fájl As String
        Fájl = FájlÚtvonal("naplo.txt")
        Naplóz(Me.RichTextBox1, Fájl)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Ürítés (RichTextBox)
        Me.RichTextBox1.Text = ""
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Me.OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            Beolvas(Me.RichTextBox1, Me.OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Me.SaveFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            Kiír(Me.RichTextBox1, Me.SaveFileDialog1.FileName)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OpenFileDialog1.InitialDirectory = ProjektÚtvonal()
        Me.SaveFileDialog1.InitialDirectory = ProjektÚtvonal()
    End Sub

    
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        'A napló fájl törlése
        On Error GoTo Hiba
        Dim Fájl As String
        If MsgBox("A naplo.txt törlődni fog! Valóban ezt akarja?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Fájl = FájlÚtvonal("naplo.txt")
            If System.IO.File.Exists(Fájl) Then
                System.IO.File.Delete(Fájl)
            Else
                MsgBox("A " & Fájl & " nem létezik!")
            End If
        End If
        Exit Sub
Hiba:
        MsgBox("A fájl törlésekor valamilyen hiba lépett fel!")
    End Sub
End Class