Tugas 7

MEMBUAT MDI FORM, LAYER CASECADE, HORIZONTAL, VERTICAL & RIBBON TOOLBOX

Kali ini saya akan menerangkan tentang MDI Form – MDI Child, Membuat layer MDI Child berbentuk Casecade, Horizontal, Vertical, & Membuat Toolbox Ribbon seperti pada MS Office Word 2010.....

Langsung ajah :

1. Buatlah form Induk MDI Form seperti dibawah ini :

2. Ganti Properties Form1 sub IsMDIContain ubah menjadi “True” untuk menetapkan Form1 sebagai Induk dari MDIForm. Untuk memindahkan ToolStrip, klik pada segitiga saat ToolStrip di klik, Lalu pilih Dock, pindah sesuai kebutuhan.

3. Isikan Tab Latihan dengan Latihan 1 – Latihan 3, dan buat Tab barum dengan nama "Tugas " di isi dari tugas 1 - tugas 3 ( siisi semau kamu )

4. Buat perintah tombol menggunakan toolstrip, untuk membuat perintah: casecade, horizontal, dan vertical.

    a. Hasil dari casecade : 

    b. Hasil dari horizontal :

    c. Hasil dari vertical :

5. Untuk membuat Tool tambahan saya menggunakan toolstrip, karena belum tau tool tambahan yang lain slain di visual basic 2010. Dan hasilnya seperti ini : 

6. Untuk membuat program seperti diatas , berikut coding yang saya gunakan, mungkin ada kesalahn saya minta maaf :

Public Class FormInduk

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    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 VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FertikalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

      

    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

      

    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

7. Sekian yang sya dapat jelaskan, bila ada kesalahan saya mohon maaf, karena manusia ga jauh dari kesalahan. 

TERIMA KASIH