Menambahkan Icon pada Menubar
https://carakuvb6.blogspot.com/2017/11/menambahkan-icon-pada-menubar.html
Icon merupakan suatu file berformat image dan berekstensi ico, ini sering digunakan khususnya programmer dalam pembuatan aplikasi apapun untuk mempercantik interface dari suatu aplikasi baik pada menubar, button, ribbon dan masih banyak yang lainnya.
 |
| Menubar dengan penambahan icon |
Gambar diatas merupakan hasil modifikasi menubar (menu editor) pada Ms. Visual Basic 6.0 (VB6) dengan menambahkan icon-icon sebelum caption menu. Terlihat sangat berbeda dengan menubar standar (tanpa dilengkapi icon-icon). Icon-icon tersebut dapat diubah atau dimodifikasi sesuai dengan selera.
Bagi yang berminat untuk mengembangkan lebih baik lagi atau hanya untuk referensi pembelajaran admin persilahkan download source code Menambahkan Icon pada Menubar secara free pada LINK INI
Bagi yang berminat untuk mengembangkan lebih baik lagi atau hanya untuk referensi pembelajaran admin persilahkan download source code Menambahkan Icon pada Menubar secara free pada LINK INI
maaf gan, saya coba gunakan untuk MDIForm dan SDIform, terjadi bug alias runtime error code "5" mohon solusinya gan..
ReplyDeleteMenambahkan Icon Pada Menubar >>>>> Download Now
Delete>>>>> Download Full
Menambahkan Icon Pada Menubar >>>>> Download LINK
>>>>> Download Now
Menambahkan Icon Pada Menubar >>>>> Download Full
>>>>> Download LINK rj
coba agan kirim ke ane link ss errornya, biar ane coba bantu
ReplyDeleteRun-time error '457'
ReplyDeleteThis key is already associated with an element of this collection.
error di class module (CMyItemDatas):
Public Function Add(Optional sMenuText As String, Optional fType As Long, Optional iButton As Integer, Optional sKey As String) As CMyItemData
Dim objNewMember As CMyItemData
Set objNewMember = New CMyItemData
objNewMember.sMenuText = sMenuText
objNewMember.fType = fType
objNewMember.iButton = iButton
If Len(sKey) = 0 Then
mCol.Add objNewMember
Else
mCol.Add objNewMember, sKey ----------> Posisi ini Debug.
End If
Set Add = objNewMember
Set objNewMember = Nothing
End Function
Mohon Pencerahannya.
Berarti Type mscomctl.ocx ver Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0; mscomctl.ocx
DeleteGini gan caranya klik kanan prjMenu.vbp kemudian OpenWith... pilih Notepad kmeudian cari
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0; mscomctl.ocx
rubah menjadi
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
angka 2.1 menjadi 2.0
oke gan thank informasinya, saya coba dulu.
Deletesama2 gan, terima kasih atas kunjungannya
DeleteDah saya coba, tetap nggak bisa gan, malah hang aplikasi vb6.0 nya.
Deletelooo kok malah hang, komponen2 mscomctl.ocx sudah teregistrasi blm gan ?
DeleteSudah gan, hang dalam keadaan debug. Mau kita ubah/edit codenya pun nggak bisa malah visual Basicnya not responding.
DeleteCoba agan buat menu tersebut, di MDI form dan child formnya. Kemudian run F5, sesering mungkin minimize dan maximize child form. Ntar bakal muncul debug tersebut gan. Bahkan sesekali tulisan menu cut, copy, paste hilang. Jadi blank tanpa tulisan.
Deletepadahal disini ok, ok aja gan, kalo ada teamviewer ato anydesk bsa deh ane bantu
DeleteMenambahkan Icon Pada Menubar >>>>> Download Now
ReplyDelete>>>>> Download Full
Menambahkan Icon Pada Menubar >>>>> Download LINK
>>>>> Download Now
Menambahkan Icon Pada Menubar >>>>> Download Full
>>>>> Download LINK nZ