Option Strict On
Imports System.IO
Imports System.Windows.Forms

Public Class ParentForm

    Dim counter As Integer = 0

    Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click

        Dim NewChild As New ChildForm

        counter += 1

        NewChild.Text = "Window " & counter.ToString

        NewChild.MdiParent = Me

        NewChild.Show()


    End Sub

    Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click

        Dim open As New OpenFileDialog

        open.ShowDialog()

        open.CheckFileExists = True

        Dim file1 As String

        file1 = open.FileName

        open.Title = "Open"

        open.Filter = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*"

        Dim sr As New StreamReader(file1)


        Dim editor As New ChildForm()

        editor.MdiParent = Me

        editor.Show()

        editor.RichTextBox1.Text = sr.ReadToEnd()

        sr.Close()

    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveAsToolStripMenuItem.Click


    End Sub

    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

        Dim save As New SaveFileDialog()

        save.ShowDialog()

        save.Filter = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*"

        save.CheckPathExists = True

        Dim file1 As String

        file1 = save.FileName

        Dim sw As New StreamWriter(file1)

        Dim editor As New ChildForm()

        editor.MdiParent = Me

        editor.Show()

        sw.Write(editor.RichTextBox1.Text)

        sw.Close()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click

        Dim Form = Me.ActiveMdiChild

        If TypeOf Form.ActiveControl Is RichTextBox Then

            Dim Box As RichTextBox = DirectCast(Form.ActiveControl, RichTextBox)

            My.Computer.Clipboard.SetText(Box.SelectedText)

            Box.SelectedText = ""

        End If

    End Sub

    Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click

        Dim Form = Me.ActiveMdiChild

        Dim Box As RichTextBox = DirectCast(Form.ActiveControl, RichTextBox)

        My.Computer.Clipboard.SetText(Box.SelectedText)

    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click

        Dim Form = Me.ActiveMdiChild

        Dim Box As RichTextBox = DirectCast(Form.ActiveControl, RichTextBox)

        Box.SelectedText = My.Computer.Clipboard.GetText

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TileVerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click

        MessageBox.Show("NETD2201" + vbNewLine + "LAB# 6" + vbNewLine + "Kush Gupta", "ABOUT")

    End Sub

    Private Sub ParentForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim NewMDIChild As New ChildForm()

        NewMDIChild.MdiParent = Me

        NewMDIChild.Show()

    End Sub

End Class