' Project name:         Memo Project
' Project purpose:      The project writes the contents of a multiline text
'                       box to a sequential access file.
' Created/revised by:   <> on <>

Option Explicit On
Option Strict On

Public Class MainForm

    Private Sub MainForm_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Load
        
    End Sub
    Private Sub exitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub

    Private Sub memoTextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles memoTextBox.Enter
        memoTextBox.SelectAll()
    End Sub

    Private Sub writeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles writeButton.Click
        Dim file As String = "C:\Course Technology\83623-0\VbReloaded\Chap09\Memo Solution\Memo Project\memo.txt"
        Dim Intro As String = "To all employees:"
        Dim Body As String = "The annual picnic will be held at Rogers Park on Saturday, July 13. Bring your family for a day full of fun!"
        Dim blank As String = ""
        Dim name As String = "Carolyn Meyer"
        Dim title As String = "Personnel Manager"
        My.Computer.FileSystem.WriteAllText(file, Intro, True)
        My.Computer.FileSystem.WriteAllText(file, Body, True)
        My.Computer.FileSystem.WriteAllText(file, blank, True)
        My.Computer.FileSystem.WriteAllText(file, name, True)
        My.Computer.FileSystem.WriteAllText(file, title, True)
    End Sub

End Class