Programing, Software, Ebook,Tutorial: Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar

Pada postingan ini saya membahas pembuatan menu alternatif selain menggunakan tool standar vb (menu editor), kali ini kita akan menggunakan komponen vbAccelerator VB6 Explorer Bar.
vbAccelerator VB6 Explorer Bar adalah salah satu komponen keren dan gratis yang tersedia di situs www.vbaccelerator.com.
Kita akan membuat menu dengan tampilan seperti berikut :

Untuk memudahkan kita memahami penggunaan komponen vbAccelerator Explorer Bar, minimal ada 2 istilah yang harus kita ketahui :

Bar Menu, gampangnya kita sebut saja menu induk
Item Menu tentu saja ini menu anaknya

Adapun contoh prosedur/fungsi untuk menambahkan Bar Menu dan Item Menu:

Private Function setBarMenu(ByVal explorerBar As Object, ByVal menuName As String, _

                            ByVal menuCaption As String, ByVal iconIndex As Long) As Object

    Dim cBar As Object

    Set cBar = explorerBar.Bars.Add(, menuName, menuCaption)

    cBar.IsSpecial = True

    cBar.iconIndex = iconIndex

    cBar.TitleForeColor = WARNA_BIRU_TUA

    cBar.TitleForeColorOver = WARNA_BIRU_TUA

    cBar.TitleBackColorLight = WARNA_BIRU

    cBar.TitleBackColorDark = RGB(234, 241, 253)

    cBar.BackColor = WARNA_ABU_ABU

    Set setBarMenu = cBar

End Function

Private Sub setItemMenu(ByVal cBar As Object, ByVal menuName As String, ByVal menuCaption As String, ByVal iconIndex As Long)

    Dim cItem   As Object

    Set cItem = cBar.Items.Add(, menuName, menuCaption)

    With cItem

        .iconIndex = iconIndex

        .TextColor = WARNA_BIRU_TUA

        .TextColorOver = WARNA_PUTIH

    End With

End Sub

Sebelum kita akan mengetikan kode lengkap untuk membuat menu dengan komponen vbAccelerator Explorer Bar, tambahkan terlebih dahulu komponen/referensi berikut ke dalam project Anda :

vbAccelerator Explorer Bar (Menu Project -> Component)
vbAccelerator Image List (Menu Project -> Component), komponen ini untuk menambahkan icon di menu bar/item
vbAccelerator VB6 Subclassing and Timer Assistant (Menu Project -> References) pembahasan tentang komponen ini bisa di lihat di sini

kemudian drag komponen vbAccelerator Explorer Bar dan vbAccelerator Image List ke form

Contoh penggunaan prosedur/fungsi setBarMenu dan setItemMenu :

Private Sub addMenu(ByVal explorerBar As Object, ByVal barIcons As Object, ByVal itmIcons As Object)

    Dim rsMenuInduk As ADODB.Recordset

    Dim rsMenuAnak  As ADODB.Recordset

    Dim cBar        As Object

    Dim i           As Long

    Dim x           As Long

    Dim rowCount(1) As Long

    With explorerBar

        .UseExplorerStyle = False

        .Redraw = False

        .BackColorStart = WARNA_BIRU

        .BackColorEnd = WARNA_BIRU

        .ImageList = itmIcons.hIml

        .BarTitleImageList = barIcons.hIml

        'menampilkan menu induk

        strSql = "SELECT id, menu_name, menu_caption " & _

                 "FROM menu_induk " & _

                 "ORDER BY id"

        Set rsMenuInduk = openRecordset(strSql)

        If Not rsMenuInduk.EOF Then

            rowCount(0) = getRecordCount(rsMenuInduk)

            For i = 1 To rowCount(0)

                Set cBar = setBarMenu(explorerBar, rsMenuInduk("menu_name").Value, rsMenuInduk("menu_caption").Value, 0)

                'menampilkan menu anak

                strSql = "SELECT menu_name, menu_caption " & _

                         "FROM menu_anak " & _

                         "WHERE menu_induk_id = " & rsMenuInduk("id").Value & " " & _

                         "ORDER BY id"

                Set rsMenuAnak = openRecordset(strSql)

                If Not rsMenuAnak.EOF Then

                    rowCount(1) = getRecordCount(rsMenuAnak)

                    For x = 1 To rowCount(1)

                        Call setItemMenu(cBar, rsMenuAnak("menu_name").Value, rsMenuAnak("menu_caption").Value, 0)

                        rsMenuAnak.MoveNext

                    Next x

                End If

                Call closeRecordset(rsMenuAnak)

                rsMenuInduk.MoveNext

            Next i

        End If

        Call closeRecordset(rsMenuInduk)

        Set cBar = setBarMenu(explorerBar, "mnuKeluar", "Keluar", 1)

        Call setItemMenu(cBar, "mnuKeluarDrProgram", "Keluar dari Program", 0)

        .Redraw = True

    End With

End Sub

Dan terakhir source code untuk menghandle menu yang di klik :

Private Sub vbalExplorerBarCtl1_ItemClick(itm As vbalExplorerBarLib6.cExplorerBarItem)

    Select Case itm.Key

        Case "mnuBarang": 'TODO : tampilkan frmBarang disini

        Case "mnuCustomer"

        Case "mnuSupplier"

        Case "mnuPembelian"

        Case "mnuReturPembelian"

        Case "mnuPenjualan"

        Case "mnuBiayaOperasional"

        Case "mnuGajiKaryawan"

        Case "mnuLapPembelian"

        Case "mnuLapJthTempo"

        Case "mnuLapPenjualan"

    End Select

End Sub

Contoh source code langkap bisa didownload disini.
Selamat mencoba

Sumber : http://coding4ever.wordpress.com

Tag : Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar, membuat menu samping di vb 6, membuat menu samping, vbAccelerator VB6 Explorer Bar, mempercantik tampilan vb, mempercantik tampilan form di vb, trik membuat menu samping, membuat menu di vb 6, skin for vb

Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar

1 comment: