MDI Form "Merancang Aplikasi Menu dan Toolbar"

MDI Form adalah form multiple document interface. Maksudnya adalah form tersebut dapat mengelola multiple form. Dengan MDI form kita bisa mengatur tata letak form child (form yang dibawah kendali form MDI).

Pada program di atas adalah menu dan toolbar akan di modifikasi sedemikian rupa . berikut adalah tampilan awal nya.

 

Dalam pembuatan desain seperti diatas kita memerlukan berbagai komponen-komponen yang digunakan seperti Panel, TabControl, ToolStrip dan StatusStrip. Sehingga akan menghasilkan tampilan-tampilan seperti berikut :

 

 

Dan selanjutnya ketika kita mengklik menu / icon latihan ataupun tugas yang ada pada program maka akan menampilkannya pada form aplikasi tersebut dengan tampilanya yang berantakan dan tidak rapih. Untuk merapihkanya kita bisa lakukan dengan cara mengeklik menu/icon berikut :

 1.  Horizontal

 Berikut adalah koding programnya : 

           Me.LayoutMdi(MdiLayout.TileHorizontal)

2. Vertical

Berikut adalah koding programnya : 

               Me.LayoutMdi(MdiLayout.TileVertical)

3. Cascade

Berikut adalah koding programnya : 

               Me.LayoutMdi(MdiLayout.Cascade)

4. Keluar

Berikut adalah koding programnya :

Private Sub TabKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabKeluar.Click
  If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
         Me.Close()
        End If
 End Sub

Berikut adalah semua koding programnya :

Public Class TugasSetelahUTS

Private Sub MenuLatihan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub MenuLatihan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub MenuLatihan3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub MenuLatihan4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub MenuTugas1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub MenuTugas2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub MenuTugas3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub MenuTugas4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub Horizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Horizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

Private Sub Vertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Vertical.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

Private Sub Cascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
 

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

 

Private Sub Latihan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub Latihan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub Latihan3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub Latihan4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub
 

Private Sub Tugas1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub Tugas2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub Tugas3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub Tugas4_Click(ByVal
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub TabHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabHorizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

Private Sub TabVertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabVertical.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
 

Private Sub TabCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabCascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
 

Private Sub TabKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabKeluar.Click
        If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

 

Private Sub IconHorizontal_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconHorizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

Private Sub IconVertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconVertical.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

Private Sub IconCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconCascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class

  Sekian , terima kasih :)