Latihan Menu Toolbar dan MDI Form

Meilita Rahayu
TI 11 C
11.11.2486

Tugas 7
Membuat MDI form child 3 dan parent 1
Membuat tile horizontal, tile vertikal dan cascade

1. Tile horizontal

 2. Tile Vertikal

3. Cascade

 contextmenustrip

Listing programnya

 Public Class Form1

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
        Form2.MdiParent = Me
        Form2.Show()
        Form3.Show()

        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub


    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
        Form3.Show()

        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
        Form2.MdiParent = Me
        Form2.Show()
        Form3.Show()
        Form4.Show()
        Form5.Show()
    End Sub

    Private Sub WindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanToolStripMenuItem.Click

    End Sub

End Class