Text Editor Project

Form 1

Public Class TextEditor     Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click         If txtEditor.Modified Then             Dim reply As Integer             reply = MsgBox("file Hasn't Been Save.Erase Anyway?", MsgBoxStyle.YesNo)             If reply = MsgBoxResult.Yes Then                 txtEditor.Clear()             End If         Else             txtEditor.Clear()         End If     End Sub     Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click         If txtEditor.Modified Then             Dim reply As MsgBoxResult             reply = MsgBox("file Hasn't Been Save.Erase Anyway?", MsgBoxStyle.YesNo, "new text Requested")             If reply <> MsgBoxResult.Yes Then                 Exit Sub             End If         End If         OpenFileDialog1.DefaultExt = "TXT"         OpenFileDialog1.Filter = "Text Files|*.TXT|HTML Files|*.HTML|All Files|*.*"         OpenFileDialog1.FilterIndex = 1         OpenFileDialog1.ShowDialog()         If OpenFileDialog1.FileName = "" Then Exit Sub         Dim TReader As System.IO.StreamReader         TReader = New System.IO.StreamReader(OpenFileDialog1.FileName)         txtEditor.Text = TReader.ReadToEnd         TReader.Close()         TReader = Nothing     End Sub     Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click         SaveFileDialog1.DefaultExt = "TXT"         SaveFileDialog1.Filter = "Text Files|*.TXT|Batch Files|*.BAT|HTML Files|*.HTML|All Files|*.*"         SaveFileDialog1.FilterIndex = 1         SaveFileDialog1.ShowDialog()         If SaveFileDialog1.FileName = "" Then Exit Sub         Dim tWriter As System.IO.StreamWriter         tWriter = New System.IO.StreamWriter(SaveFileDialog1.FileName)         tWriter.Write(txtEditor.Text)         tWriter.Close()         tWriter = Nothing         'SaveFileDialog1.FileName = txtEditor.Text     End Sub     Private Sub btnCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCut.Click         Clipboard.SetDataObject(txtEditor.SelectedText)         txtEditor.SelectedText = ""     End Sub     Private Sub TextEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     End Sub     Private Sub btnPaate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaate.Click         If Clipboard.GetDataObject.GetDataPresent(DataFormats.Text) Then             txtEditor.SelectedText = Clipboard.GetDataObject.GetData(DataFormats.Text).ToString         End If     End Sub     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click         End     End Sub     Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click         Clipboard.SetDataObject(txtEditor.SelectedText)     End Sub     Private Sub btnUpper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpper.Click         txtEditor.SelectedText = txtEditor.SelectedText.ToUpper     End Sub     Private Sub btnlower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlower.Click         txtEditor.SelectedText = txtEditor.SelectedText.ToLower     End Sub     Private Sub btnFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFont.Click         FontDialog1.ShowDialog()         txtEditor.Font = FontDialog1.Font     End Sub End Class