Option Strict On
Imports System
Imports System.IO
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Public Class Form1
    Dim openFileDialog1 As System.Windows.Forms.OpenFileDialog
    Dim saveFileDialog1 As System.Windows.Forms.SaveFileDialog
    Dim myStreamReader As System.IO.StreamReader
    Dim myStreamWriter As System.IO.StreamWriter



    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        Dim Open As New OpenFileDialog()


        Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
        Open.CheckFileExists = True
        Open.Title = "Open"
        Open.ShowDialog(Me)
        Try
            Open.OpenFile()
            myStreamReader = System.IO.File.OpenText(Open.FileName)
            textBox_pad.Text = myStreamReader.ReadToEnd()
        Catch ex As Exception
            ' Do nothing on Exception
        Finally
            If Not myStreamReader Is Nothing Then
                myStreamReader.Close()
            End If
        End Try



    End Sub

    'exit button
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Application.Exit()

    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim Open As New OpenFileDialog()
        Open.Filter = "Plain Text Files (*.txt)|*.txt|All files (*.*)|*.*"
        Open.CheckFileExists = True
        Open.Title = "Open"
        Open.ShowDialog(Me)
        Try
            Open.OpenFile()
            myStreamReader = System.IO.File.OpenText(Open.FileName)
            textBox_pad.Text = myStreamReader.ReadToEnd()
        Catch ex As Exception
            ' Do nothing on Exception
        Finally
            If Not myStreamReader Is Nothing Then
                myStreamReader.Close()
            End If
        End Try
    End Sub

   
    Private Sub btnToUpper_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim button As CharacterCasing

        If button = CharacterCasing.Upper Then

            textBox_pad.Text.ToUpper()

        End If

    End Sub


    Private Sub btnSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectAll.Click

    End Sub


    Private Sub sentenceCase_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sentenceCase.CheckedChanged

    End Sub

    Private Sub lowerCase_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lowerCase.CheckedChanged

    End Sub

    Private Sub btnToUpper_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toggleCase.CheckedChanged

    End Sub

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

    End Sub

    Private Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApply.Click

    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

    End Sub


    Private Sub showDirectoryPath_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles showDirectoryPath.TextChanged

    End Sub
End Class