Menambahkan menu baru di system menu
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
Comments