Tugas Ke-5 Merancang Aplikasi Menu dan Toolbar di Visul Basic 2010

Rasanya sudah cukup lama gak posting, nah kali ini saya akan mencoba berbagi pengetahuan lewat postingan ini. Pada kesempatan ini  saya akan menjelaskan tentang merancang Menu Dan Toolbar yang ada pada Visual Basic 2010. Oke lah biar mempersingkat langsung saja masuk ke materi, berikut ini adalah tampilan awalnya :

Untuk membuat desain seperti diatas kita memerlukan berbagai komponen-komponen yang digunakan seperti Panel, TabControl, ToolStrip dan StatusStrip. Sehingga akan menghasilkan tampilan-tampilan seprti berikut :

Tampilan Menu Latihan 

 Tampilan Menu Tugas

Tampilan Menu Posisi

  

Tampilan Menu Keluar

Tampilan Tab Menu

Nah bisa kita lihat pada Gambar 001 ada garis pemisah antara kolom yang bagian atas dan bawah. Untuk menyatukanya bisa dengan cara merubah pengaturannya, langkah pertama klik panelnya trus masuk ke Propertiesnya kemudian cari Dock lalu ubah None menjadi Top. Biar lebih jelanya lihat pada Gambar 002 dibawah :

Gambar 001

Gambar 002

 

Setelah itu maka akan menampilkan seperti berikut :

Dan setelah selesai maka saya lanjutkan saja pada menu-menu yang ada :

• Menu Latihan

Pada menu latihan tersebut kita bisa menampilkanya dengan berbagai cara dan langkah yaitu bisa dengan cara mengeklik icon yang ada di menu latihan dan bisa juga dengan cara meng klik Ctrl+1 untuk menampilkan Latihan 1 dan juga cara yang hampir sama (Ctrl+ . . .) untuk menampilkan Latihan-latihan lainya.

• Menu Tugas

Caranya masih sama dengan menu latihan yaitu bisa dengan cara mengeklik icon yang ada di menu tugas dan bisa juga dengan cara meng klik Alt+1 untuk menampilkan Tugas 1 dan juga cara yang sama (Alt+ . . .) untuk menampilkan Tugas-tugas lainya.

• Menu Posisi

Begitu juga dengan menu posisi sama dengan menu-menu sebelumnya bisa dengan cara mengeklik icon yang ada di menu posisi dan bisa juga dengan cara meng klik Ctrl+H untuk menampilkan Horizontal, Ctri+V untuk Vertical dan Ctrl+C untuk Cascade.

• Menu Keluar

Caranya mengeklik icon yang ada di menu keluar dan bisa juga dengan cara meng klik Alt+F4 untuk keluar secara langsung.

Dan selantutnya ketika kita mengklik menu / icon latihan ataupun tugas yang ada pada program maka akan menampilkannya pada form aplikasi tersebut dengan tampilanya yang berantakan dan tidak rapih. Untuk merapihkanya kita bisa lakukan dengan cara mengeklik menu/icon berikut :

• Horizontal

 Berikut adalah koding programnya : 
                Me.LayoutMdi(MdiLayout.TileHorizontal)

• Vertical

 Berikut adalah koding programnya : 
               Me.LayoutMdi(MdiLayout.TileVertical)

• Cascade

 Berikut adalah koding programnya : 
               Me.LayoutMdi(MdiLayout.Cascade)

•  Keluar

Berikut adalah koding programnya :

Private Sub TabKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabKeluar.Click
  If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
         Me.Close()
        End If
 End Sub

Berikut adalah semua koding programnya :

Public Class TugasSetelahUTS

Private Sub MenuLatihan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub MenuLatihan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub MenuLatihan3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub MenuLatihan4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub MenuTugas1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub MenuTugas2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub MenuTugas3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub MenuTugas4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub Horizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Horizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

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

Private Sub Cascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
 

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

 

Private Sub Latihan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub Latihan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub Latihan3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub Latihan4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub
 

Private Sub Tugas1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub Tugas2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub Tugas3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub Tugas4_Click(ByVal
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub TabHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabHorizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

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

Private Sub TabCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabCascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
 

Private Sub TabKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabKeluar.Click
        If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

 

Private Sub IconHorizontal_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconHorizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

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

Private Sub IconCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconCascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class