Membuat Form MDI

Membuat form MDI di VB.net - Form MDI adalah form induk dari semua form, atau bisa diartikan sebagai form menu utama yang dapat menampilkan atau memanggil form lainnya. Saya akan membuat form MDI ini sebagai lanjutan dari tutorial aplikasi dasar vbnet (lihat disini).

• Buatlah form baru dengan nama MDI.
• Kemudian tambahkan tools MenuStip.

 

•  Kemudian isi dengan menu dengan beberapa sebagai berikut :

Berhitung
- Kubus
- Lingkaran
- Persegi Panjang 

 Pengakses
- PDF
- Image


Setting
- Font
- Color

Hiburan
- Media Player

Exit
- Keluar

• Untuk yang dicetak tebal adalah menu utama, dan dibawahnya adalah anak menu.
• Jika Anda belum mengerti lihat gambar dibawah ini : 

•  Setelah itu masukan kode dibawah ini :

Public Class MDI

    Private Sub KubusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KubusToolStripMenuItem.Click
        KUBUS.Show()
        KUBUS.Visible = False
        KUBUS.ShowDialog()
    End Sub

    Private Sub LingkaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LingkaranToolStripMenuItem.Click
        Lingkaran.Show()
        Lingkaran.Visible = False
        Lingkaran.ShowDialog()
    End Sub

    Private Sub PersegiPanjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PersegiPanjangToolStripMenuItem.Click
        Persegi.Show()
        Persegi.Visible = False
        Persegi.ShowDialog()
    End Sub

    Private Sub PDFToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDFToolStripMenuItem.Click
        PDF.Show()
        PDF.Visible = False
        PDF.ShowDialog()
    End Sub

    Private Sub ImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageToolStripMenuItem.Click
        Gambar.Show()
        Gambar.Visible = False
        Gambar.ShowDialog()
    End Sub

    Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
        Huruf.Show()
        Huruf.Visible = False
        Huruf.ShowDialog()
    End Sub

    Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
        Warna.Show()
        Warna.Visible = False
        Warna.ShowDialog()
    End Sub

    Private Sub MediaPlayerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MediaPlayerToolStripMenuItem.Click
        MediaPlayer.Show()
        MediaPlayer.Visible = False
        MediaPlayer.ShowDialog()
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Dim x As VariantType
        x = MessageBox.Show("Yakin mau keluar?", "Pesan", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If x = vbYes Then
            End
        End If
    End Sub
End Class



Sekian tutorial pemograman dasar VBnet kali ini. Semoga bermanfaat dan jika memiliki kesulitan silahkan bertanya pada kolom komentar.