Membuat Form Mdi Child

1.      Membuat 4 buah Form Mdi child

Langkah membuat form klik kanan pada nama project pilih add new item pilih windows form kllik ok

Berikut kodingnya

Private Sub Lat1ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem1.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Lat2ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub Lat1ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem2.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub Lat4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat4ToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

 

2.      Membuat menu interface pada applikasi VB 2010

Langkah membuatnya adalah

Klik toolbox lalu pilih menus and toolsbar

Pilih menu strip lalu atur seperti gambar berikut ini

menu strip

 

·        Lalu membuat menu kontex

Menu kontexadalah menu yang muncul ketika kita mengklik pada bagian form 1

Caea membuatnya adalah

Klik kontextmenustrip pada menus and toolsbar

Hasilnya adalah seperti berikut ini

Menu kontex

 

·        Membuat tampilan form menjadi horisontal, vertikal dan cascade

Untuk menjalankan perintah tersebut klik pada menu tampilan pilih-pilihan yang  tersedia pada menu tampilan ersebut.

·        Horisontal

Berikut kodingnya

Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

·        hasilnya

 

·        Vertikal

Berikut kodingnya

Private Sub Tugas2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2ToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

       

    End Sub

·        hasilnya

·        Cascade

Berikut kodingnya

Private Sub Tugas3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3ToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

       

    End Sub

·        hasilnya

3.      Mengatur posisi menu sesuai dengan keinginan desainer