Manipulasi Menubar dan Toolbar

       Pada pembahasan kali ini saya akan membahas dan menampilakan hasil karya saya dalam membuat dan memanipulasi toolbar dan menubar, dalam kasus ini saya masih tetap menggunakan bahasa visual basic. Yang mendasari saya untuk membuat dan membahasnya adalah karena soal-soal dari Pak Nandang sebagai berikut :

1. Buatlah aplikasi bebas yang menggunakan menubar dan toolbar.
2. Posisikan toolbar-toolbar tersebut di beberapa tempat selain posisi top.
3. Buat menu agar dapat mengatur layout MDI.
4. Buatlah menu yang menggunakan library dari luar IDE.

       Langsung saja, untuk soal nomer 1 sampai 3 saya membuatnya dalam satu aplikasi sekaligus dan aplikasi tersebut saya beri nama "Everything at Once"

Begitulah tampilan awal ketika program dijalankan. Pada bagian atas terdapat beberapa menu yang di dalamnya terdapat beberapa pilihan.

• Menu File

Di menu file tersebut terdapat pilihan untuk Open Aplication(Untuk membuka aplikasi lain), Start Page(Untuk mebuka halaman awal), Exit(Untuk keluar dari aplikasi)
       Dalam menu "start page" saya memberikan sintaks sebagai berikut :

Private Sub Start_Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start_Menu.Click
        Start.MdiParent = Me
        Start.Show()
        Fibronanci.Hide()
        Prime.Hide()
    End Sub

       Catatan :

1. Start = nama form untuk start page
2. Start_Menu = nama button menu untuk start page
3. Fibronanci dan Prime = nama form anakan yang akan dipanggil parrent.

        Dalam menu "exit" saya berikan sintaks sebagai berikut :

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        If (MsgBox("Are you sure?", vbYesNo + vbQuestion + vbDefaultButton1, "Confirmation") = vbYes) Then
            End
        End If
    End Sub
   
       Dalam menu "Open Aplication" terdapat dua pilihan aplikasi yang bisa ditampilkan

Masing masing dalam pilihan aplikasi tersebut saya sertakan sintaks sebagai berikut

*untuk memanggil aplikasi fibronanci
Private Sub FibronanciCounterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FibronanciCounterToolStripMenuItem.Click
        Start.Hide()
        Fibronanci.MdiParent = Me
        Fibronanci.Show()
    End Sub

*untuk memanggil aplikasi bilangan prima
Private Sub FactorialCounterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrimeCounter.Click
        Start.Hide()
        Prime.MdiParent = Me
        Prime.Show()
    End Sub



       Dalam menu "Toolbar Position"  terdapat beberapa menu untuk memanipulasi posisi toolbar

*Untuk menu "Hide\show Toolbar" sintaksnya sebagai berikut

Private Sub HideToolbarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HideToolbarToolStripMenuItem.Click


        If (hides = True) Then
            ToolStrip1.Hide()
            MTop.Enabled = False
            MBottom.Enabled = False
            MLeft.Enabled = False
            MRight.Enabled = False
        Else
            ToolStrip1.Show()
            MTop.Enabled = True
            MBottom.Enabled = True
            MLeft.Enabled = True
            MRight.Enabled = True
        End If
    End Sub

Dengan sintaks seperti itu ketika menu "Hide\Show Toolbar" dipilih maka toolbar akan disembunyikan dan menu posisi toolbar akan di-disable

Ketika pilihan "Hide\Show Toolbar" kembali ditekan maka toolbar akan kembali tampil dan toolbar position akan kembali aktif.

Dan agar toolbar bisa berganti-ganti posisi, maka di di berikan sintaks sebagai berikut:

*Pada menu left

Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MLeft.Click
        ToolStrip1.Dock = DockStyle.Left
    End Sub

*Pada menu right

Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MRight.Click
        ToolStrip1.Dock = DockStyle.Right
    End Sub

*Pada menu bottom

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MBottom.Click
        ToolStrip1.Dock = DockStyle.Bottom
    End Sub

*Pada menu top

Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MTop.Click
        ToolStrip1.Dock = DockStyle.Top
    End Sub
 

       Dalam menu "Help" hanya ada satu pilihan yaitu "Offline Help"

 *Pada menu "Offline Help"

Private Sub ContentsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContentsToolStripMenuItem.Click
        MsgBox("Sorry I can't help you....", vbOKOnly+ vbCritical, "He-help")
    End Sub

       Pada combo box Layout MDI

 dan sintaksnya adlah sebagi berikut

Private Sub TampilanMdi_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TampilanMdi.SelectedIndexChanged
        If (TampilanMdi.Text = "Cascade") Then
            Me.LayoutMdi(MdiLayout.Cascade)
        ElseIf (TampilanMdi.Text = "Tile Horizontal") Then
            Me.LayoutMdi(MdiLayout.TileHorizontal)
        ElseIf (TampilanMdi.Text = "Tile Vertical") Then
            Me.LayoutMdi(MdiLayout.TileVertical)
        End If

    End Sub

*Cascade

*Tile Horizontal

*Tile Vertical

       Sementara untuk aksi yang ada di toolbar(Start page, Offline help) sama persis sintaksnya yang ada di menu bar, sementara pengaturan letak toolbar yang menggunkan combobox sintaksny adalah sebgai berikut:

 Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged
        If (ToolStripComboBox1.Text = "Left") Then
            ToolStrip1.Dock = DockStyle.Left
        ElseIf (ToolStripComboBox1.Text = "Bottom") Then
            ToolStrip1.Dock = DockStyle.Bottom
        ElseIf (ToolStripComboBox1.Text = "Right") Then
            ToolStrip1.Dock = DockStyle.Right
        ElseIf (ToolStripComboBox1.Text = "Top") Then
            ToolStrip1.Dock = DockStyle.Top
        End If
    End Sub



       Untuk soal nomer 4 saya menggunakan library System.windows.forms.ribbon.dll, library tersebut memberikan menu yang kita buat mirip seperti ribbon menu yang ada pada Ms Office 2007. Dalam kasus ini saya membuat aplikasi web browser menggunakan menu ribbon

Berikut sintaks yang saya gunakan
Public Class Form1

   
    Private Sub Mulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mulai.Click, Ribbon_Mulai.Click
        Halaman.Navigate(Alamat.Text)
    End Sub

    Private Sub Mundur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mundur.Click, Ribbon_Back.Click
        Halaman.GoBack()
    End Sub

    Private Sub Refreshhh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refreshhh.Click
        Halaman.Refresh()
    End Sub


    Private Sub Exit_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Exit_Button.Click, RibbonPanel2.Click, RibbonButton1.Click
        If (MsgBox("Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Konfirmasi")) = vbYes Then
            End
        End If

    End Sub

    Private Sub Maju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Maju.Click, Ribbon_Forward.DoubleClick
        Halaman.GoForward()
    End Sub
End Class

Berikut bebrapa printscreen yang saya ambil