Latihan Menu, Toolbars, dan MDI Form

Nama : Eka Yunita H S

Nim : 11.11.2498

TI 11 C

Assalamu'alaikum wr.wb
Dalam postingan kali ini saya akan membahas tentang bagaimana penerapan Menu, Toolbars, dan MDI Form pada Visual Basic 2010. Dalam pembahasan ini adapun soal-soal atau ketentuan pengerjaan dari Penerapannya.
Saya mulai dari dari soal dan kemudian pengkodean yang digunakan Visual Basic 2010.

1.  Buat Child Form untuk ditempatkan pada Parent Form
2. Menu Window :
    - Tile Horizintal
    - Tile Vertical
    - Tile Cascade
3. Posisikan toolbar sesuai selera
4. Menu dengan komponen tambahan

Tampilan Output atau Keluaran dari koding yang telah dirancang adalah sebagai berikut :

* Toolbar pada Form

 * Tampilan saat dipanggil child form

 

* Tampilan Form diluar parent ( bukan child form)

* Tampilan Tile Cascade

* Tampilan Horizontal

* Tampilan Vertical

* Tampilan untuk Menu tambahan yaitu Tampilan -> Keluar ( Shift+A)

Dari Hasil diatas didapatkan pengkodean untuk program  sebagai berikut :

Public Class Form1

  

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub Latihan4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4ToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

    Private Sub Tugas21ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas21ToolStripMenuItem.Click

        Form2.ShowDialog()

    End Sub

    Private Sub Tugas22ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas22ToolStripMenuItem.Click

        Form3.ShowDialog()

    End Sub

    Private Sub Tugas23ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas23ToolStripMenuItem.Click

        Form4.ShowDialog()

    End Sub

    Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click

        Form5.ShowDialog()

    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

        Form2.MdiParent = Me

        Form2.Show()

        Form3.MdiParent = Me

        Form3.Show()

        Form4.MdiParent = Me

        Form4.Show()

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

       Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

        If MsgBox("Anda yakin?", vbQuestion + vbYesNo + vbDefaultButton2, "Keluar") = MsgBoxResult.Yes Then Me.Close()

    End Sub

End Class

TERIMA KASIH ATAS PERHATIAN DAN KUNJUNGAN ANDA DALAM POSTINGAN INI.. ^_^

    * Maaf jika ada kesalahan dalam info, penulisan, serta penerjemahan kalimat dari otak saya... hehehehehe