Pages

Selasa, 11 Desember 2012

MDI

Listing Program yang digunakan adalah



Public Class Form1

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

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

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

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

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Close()
    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 HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

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

    Private Sub Latiahan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latiahan1ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

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

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

    Private Sub Latihan4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4ToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub

End Class



TUGAS 7.1 Pengaturan Untuk MDI Child Dibuat Cascade ,Horizontal Dan Vertikal
tampilan utama

Cara membuatnya:
Pertama kita buat MDI Form agar dapat menampilkan beberapa form sekaligus caranya cari IsMdiContainer pada properties lalu kita pilih true.

Masukan beberapa form ke menu utama ,contoh tiga form yang kita masukan.






















Cascade



















Horizontal























Vertikal






















TUGAS 7.2 Menu Diatas Dan Toolbar Dibawah

Pada saat pertama kita buat posisi menu dibawah dan posisi toolbar diatas, tampilan akan muncul sebagai berikut.



Agar posisi menu diatas dan toolbar dibawah caranya adalah taruh kursor pada menustrip lalu klik kanan pada menustrip lalu pilih Send To Back ,tampilan akan muncul sebagai berikut.






















Tugas 7.3 Membuat Menu Dengan Library Tambahan (Menu Ribbon)
 Untuk Library tambahan (Ribbon)  menggunakan aplikasi tambahan yaitu DotNetBar





Tidak ada komentar:

Posting Komentar