Tugas 1 pasca UTS

berikut saya tampilkan hasil program Visual basic dengan menggunakan Menu, Toolbar dan MDI Form.
yang pertama berikut ini adalah tampilan awal program :

dibawah ini saya tampilkan tampilan menu Latihan yang berisi form terpisah :

 Setelah muncul 2 form, klik menu Windows>Vertikal baik di menu strip ataupun di tab control, maka akan tampil seperti dibawah ini : 

jika kita memilih Windows>horizontal, maka akan muncul tampilan seperti dibawah ini :

berikut saya lampirkan beberapa kelengkapan menu seperti "File" :

berikut tampilan menu didalam menu strip :

setelah kita melihat tampilan screen shot dari program , saya akan tampilkan coding yang ada didalam program tersebut :

Public Class Form1


    Private Sub LatihanSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanSatuToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub LatihanDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanDuaToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub TugasSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasSatuToolStripMenuItem.Click
        Form2.ShowDialog()
    End Sub

    Private Sub TugasDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasDuaToolStripMenuItem.Click
        Form3.ShowDialog()
    End Sub

    Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

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

    Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click
        ' Create a new instance of the child form.
        Dim ChildForm As New System.Windows.Forms.Form
        ' Make it a child of this MDI form before showing it.
        ChildForm.MdiParent = Me
        ChildForm.Show()
    End Sub

    Private Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripButton.Click
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            ' TODO: Add code here to open the file.
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

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

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class

-TERIMAKASIH-