Membuat MDI Child Menggunakan MS Visual Studio

Berikut ini adalah cara pembuatan MDI Child menggunakan Microsoft Visual Studio 2010.

Buatlah project baru berupa Windows Form Aplication.

Setelah jendela project terbuka, pilih form1 dan pada properties ubahlah IsMdiContainer menjadi true.

 

Jika sudah, kita beralih ke jendela Toolbox dan double-click pada menu strip. Berikutnya isi kolom library yang ada ketika menu strip telah terpasang pada form1. Isi kolom library tersebut sesuai dengan keinginan. “Di program ini saya menggunakan satu library menu tambahan dan satu library standard”. Setelah itu kembali ke Toolbox dan sekarang double-click pada tool strip. Setelah tool strip terpasang pada form1, klik kanan dan pilih ‘’insert standard items’’ dan hasilnya akan menjadi seperti ini.

Pada program ini saya membuat 7 form yang pada setiap formnya berfungsi sebagai berikut :
Form1   : Form induk

Form2   : Sebagai jendela Baju
Form3   : Sebagai jendela Celana
Form4   : Sebagai jendela Kaos
Form5   : Sebagai jendela Kas
Form6   : Sebagai jendela Kredit
Form7   : Sebagai jendela Help

Pada setiap form, ubahlah properties textnya sesuai dengan keinginan.

Untuk cara menambahkan form sendiri adalah dengan meng-klik kanan pada “project file” di “solution explorer” lalu klik “add” dan pilih “windows form application”.

Berikut ini adalah Print Screen dari program yang saya rancang.

•  Library Menu Tambahan pada “File”

• Tile Horizontal

• Tile Vertical

• Cascade

           

Berikut ini adalah listing program yang saya gunakan untuk menjalankan program tersebut.

Public Class Form1

    Private Sub Baju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baju.Click

        Dim baju As New Form2

        baju.Show()

        baju.MdiParent = Me

    End Sub

    Private Sub CelanaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CelanaToolStripMenuItem.Click

        Dim celana As New Form3

        celana.Show()

        celana.MdiParent = Me

    End Sub

    Private Sub KaosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaosToolStripMenuItem.Click

        Dim kaos As New Form4

        kaos.Show()

        kaos.MdiParent = Me

    End Sub

    Private Sub KasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KasToolStripMenuItem.Click

        Dim kas As New Form5

        kas.Show()

        kas.MdiParent = Me

    End Sub

    Private Sub KreditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KreditToolStripMenuItem.Click

        Dim kredit As New Form6

        kredit.Show()

        kredit.MdiParent = Me

    End Sub

    Private Sub HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    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 CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click

        Dim help As New Form7

        help.Show()

        help.MdiParent = Me

    End Sub

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

        Me.Close()

    End Sub

End Class

Demikian, Saya ucapkan terimakasih atas perhatian yang anda berikan dan saya mohon maaf jika ada salah penulisan kata atau jika ada kata-kata yang kurang berkenan di hati.