Menambahkan menu baru di system menu

Posted by Kamarudin • less than 1 minute read • Comments

Lihat system menu yang ada form berikut :

dan kita menginginkan system menunya menjadi seperti berikut :

Untuk memudahkan kita dalam memprogramnya download dulu komponen vbAccelerator VB6 PopMenu Control disini, ubah nama filenya menjadi cPopMenu6.rar extract kemudian jalankan file install.cmd

Jika gagal registrasikan komponen secara manual dengan cara klik tombol Start -> Run. Kemudian ketik : regsvr32 cPopMenu6.ocx

Langkah berikutnya adalah membuat project baru kemudian tambahkan komponen (CTRL + T) vbAccelerator VB6 PopMenu Control jangan lupa langsung dimasukan ke form

copy paste kode berikut :

Option Explicit

Private mMenuSeparator  As Long
Private mMenuAbout      As Long
Private mMenuBantuan    As Long

Private Sub Form_Load()
    With PopMenu1
        mMenuSeparator = .SystemMenuAppendItem("-")
        mMenuBantuan = .SystemMenuAppendItem("&Bantuan")
        mMenuAbout = .SystemMenuAppendItem("&Info Program")
    End With
End Sub

Private Sub PopMenu1_SystemMenuClick(ItemNumber As Long)
    Select Case ItemNumber
        Case mMenuAbout
            'todo : panggil frmAbout disini

        Case mMenuBantuan
            'todo : panggil file help disini
    End Select
End Sub

Selamat mencoba :blush:

Comments