tugas 7

Setelah menjalani UTS kini mulai Lagi dengan tugas yang terus menumpuk...

Kali ini saya akan sedikit membagi pengetahuan saya tentang MDIForm pada VB.net 2010


kita mulai dari cara pembuatan Mdi form pada Vb,net 2010

pertama kita buat windows form biasa dengan nama "terserah pembaca"
lalu pada Properties form cari IsMdiContain, rubah isi properties tersebut dari false menjadi true... maka akan terlihat seperti gambar berikut...

kemudian kita coba tambahkan menu strip...
pilihan menustrip ada pada toolbox bagian menu&Toolbars..
double klik pada pilihan menustrip, maka akan muncul tampilan seperti gambar berikut

selanjutnya kita tambahkan isi dari menustrip dengan cara menuliskan isi konten pada menustrip..
contoh isian dari menu strip bisa dilihat pada gambar berikut..

kita tambahkan form baru pada project ini sebanyak 4 form baru dengan cara klik kanan pada properties project lalu plih add windows form..

Setelah itu kita menambahkan coding pada masing masing menu seperti berikut...

Public Class Form1

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    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 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 Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

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

    Private Sub Form4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form4ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub Form5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form5ToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub
End Class
Demikian Sedikit Info yang dapat saya berikan...