TUGAS 7 PEMROGRAMAN VISUAL

• Membuat MDI form minimal mempunyai form anak sebanyak 4
• Membuat menu vertikal, horizontal dan cascade
• Aturlah posisi menu dan toolbar sesuai keinginan
• Membuat menu library tambahan

Jawaban

1.  Buatlah project baru, dengan mengklik file - new - project
2.  Langkah berikutnya, pada toolbox windows form menu dan toolbar, Kemudian pilih Menu strip(menu utama pada aplikasi yang akan dibuat).
3.  Pada Menu file ditambahkan empat menu misal : '' Tabel1, Tabel2, Tabel3, Tabel4 ''. Pada Menu tampilan tambahkan juga Menu '' Vertikal, Horizontal, Cascade ''.

 

                                Gambar. Tampilan Cascade

                               Gambar. Tampilan Vertikal

                               Gambar. Tampilan Horizontal

4. Untuk mengaktifkan MDI form pilih IsMdiContainer pada proprties, lalu pilih True

Gambar. Tampilan Mengaktifkan IsMdiContainer

5. Berikut ini adalah cording program di atas :

Untuk menapilkan Form supaya berada didalam menu strip :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.MdiParent = Me
        Form3.MdiParent = Me
        Form4.MdiParent = Me
        Form5.MdiParent = Me
    End Sub

Dibawah ini adalah cording untuk menampilkan tabel1 sampai tabel4 :
    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Form2.Show()
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Form3.Show()
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Form4.Show()
    End Sub


Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        Form5.Show()
    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

    End Sub

    Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click

    End Sub

Untuk menampilkan Cascade :
    Private Sub CascedeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascedeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

Untuk menampilkan Vertikal :
    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

Untuk menampilkan Horizontal :
    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
 End Class