TUGAS IV

TUGAS IV-RANCANGAN APLIKASI MENU & TOOLBAR DI VB.

kembali lagi saya bergelut dengan kuliah VB, sekitar satu bulan sudah tidak mengunjungi blog ini karena UTS. kini saatnya mencoba untuk memulainya lagi dengan adanya tugas yang diberikan. pembahasan kali adalah mengenai aplikasi menu & toolbar. berikut adalah tampilan awal yang saya coba buat :

dalam membuat tampilan seperti di atas, maka dibutuhkan komponen-komponen seperti contextMenuStrip, toolstrip dan juga button sehingga akan menampilkan seperti gambar di bawah ini

 

 

selanjutnya adalah menu-menu yang ada dalam aplikasi di atas. antara lain :

• menu latihan
• menu tugas
• menu exit
• dll.

apabila kita klik pada latihan1, maka akan muncul form seperti di bawah

dan selanjutnya kita klik pada latihan 3, maka form selanjutnya adalah seperti gambar di bawah ini

dan begitu juga dengan library yang di bawah nya. seperti menu pilihan dan kontrol. maka akan muncul seperti tampilan di atas.

apabila kita ingin keluar dari aplikasi, maka pilih menu exit, dan pilih keluar.
berikut adalah koding dari program di atas :

Public Class Form1

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Form2.Show()
        Form2.MdiParent = Me
        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

    Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.MdiParent = Me
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form3.Show()
        Form3.MdiParent = Me
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form4.Show()
        Form4.MdiParent = Me
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
End Class


terima kasih atas perhaatiannya. semoga bermanfaat...

^_^