Komponen MDI Tab ( Membuat Menu Tab )

Pada postingan sebelumnya telah membahas tentang cara membuat menu samping, pada kesempatan kali ini saya akan menggabungkan menu samping dengan MDI Tab. Komponen ini digunakan untuk mengelompokan MDIChild form ke dalam tab-tab. Contoh :

Komponen yang di butuhkan adalah vbAccelerator VB6 MDI Tab Component Untuk komponen vbAccelerator VB6 MDI Tab Component membutuhkan library  vbAccelerator VB6 Subclassing and Timer Assistant seperti gambar berikut ini

Untuk membuatnya, sebagai menu utama (Form Utama) harus berupa MDI Form kemudian untuk form-form yang lain pada bagian properties MDICild nya di set menjadi True kemudian ControlBox nya silahkan di set menjadi False. Berikut koding nya :

Option Explicit
Public Sub closeChild(ByVal frmChild As Form)
    Unload frmChild
    m_cMDITabs.ForceRefresh
End Sub

Private Function formForHwnd(ByVal hWnd As Long) As Form
    Dim frmChild As Form
    For Each frmChild In Forms
        If (frmChild.hWnd = hWnd) Then
            Set formForHwnd = frmChild
            Exit For
        End If
    Next
    Exit Function
End Function

Private Sub m_cMDITabs_CloseWindow(ByVal hWnd As Long)
    Dim frm As Form
    Set frm = formForHwnd(hWnd)
    Unload frm
    m_cMDITabs.ForceRefresh
End Sub

koding diatas di ketik pada menu utama (yang bertindak sbg MDIParent). Selanjutnya untuk menutup MDIChild form, kita tinggal panggil public method closeChild miliknya MDIParent pada tombol keluar

Private Sub cmdSelesai_Click()
    Call frmMain.closeChild(Me)
End Sub

Selesai....Demikian tutorial saya yang singkat ini semoga dapat bermanfaat bagi anda semua. Jika anda menginginkan source code  lengkapnya dan komponennya silahkan download di link di akhir tulisan ini. Jika anda kurang jelas silahkan kasih komentar.

Download Link:

• Source Code MDI Tab
• Komponen MDI Tab 

Tags:
Membuat Menu Tab,Mengelompokan MDIChild form ke dalam tab-tab,Trik Membuat Tab-Tab Pada Form