Tugas 4

Assalamualaikum Wr.Wb

Pada kesempatan ini saya ingin memaparkan hasil tugas pada pertemuan ke-7 mata kuliah visual basic senin  3 Desember 2012 .

Disini ada 3 tugas yang diberikan, yaitu :

1 . Buatlah posisi toolbar yang berada diatas menjadi dibawah .

2 . Mencari dan tambahkan menu library tambahan agar lebih interaktif .

3 . Buatlah menu dalam form menjadi tail vertical ,horizontal dan cascade .

Dibawah inilah ulasan tugas yang saya buat .

Sebelum menjawab ketiga tugas diatas , kita harus membuat form yang sudah disediakan .
Form tersebut berisikan Menu dan submenu beserta icon tambahan yang berada pada toolbox dan properties dengan tampilan sebagai berikut .

* Tampilan Awal .

Pada tampilan awal toolbar masih berada diatas , lalu mari kita jawab tugasnya .

* Berikut adalah SourceCodingnya secara keseluruhan .

Public Class Form1

    Private Sub LatihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanToolStripMenuItem.Click

    End Sub

    Private Sub LatihanSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanSatuToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub LatihanDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanDuaToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub TugasSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasSatuToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub TugasDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasDuaToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

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

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

* Jawaban Coy ... 

1 . Buatlah tampilan toolbar yang berada diatas menjadi dibawah .

Toolbar dapat dibawah karena ada pada peraturan pembuatannya ada pada toolbox menu ToolStrip ditempatkan dibawah menu strip .

* Tampilannya setelah dirubah .

2 . Menambahkan library agar lebih interaktif

Jawab : Belum pak.

3 . Membuat menu menjadi Vertical, Horizontal ,dan Cascsde .

* Tampilan Layout Vertical 

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara vertical .

Berikut codingnya adalah :

 Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

*Tampilan Layout Horizontal .

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara horizontal .

Berikut codingnya adalah :

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

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

*Tampilan Layout Cascade .

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara cascade .

Berikut codingnya adalah :

 Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

Sekian hasil dari pekarjaan saya.TERIMA KASIH. ^_^