Nama domain www.web-buya.com diganti dengan nama www.arofat.com



Indonesian Arabic English
Jum'at, September 19, 2014

Menambahkan Icon Pada Menu Visual Basic

menuvb3kalimat menu sudah tidak asing lagi kita dengar, ada menu makan, menu minuman ( intermezo ) Laughing, tapi disini kita bukan membahas menu yang saya sebutkan tadi, melainkan kita akan membahas menu editor pada visual basic. disini kita akan mencoba customizing menu editor yang biasa default bawaan vb, kali ini kita akan sedikit menghiasainya dengan menambahkan icon pada menu editor visual basic. dan harap diperhatikan tutorial ini saya coba dengan vb clasic atau vb6

Berikut tahap menambahkan icon pada menu editor di visual basic :

 

  • Download komponent VB6 pop up Menu Control klik disini
  • Tambahkan komponent Imagelist dan Pop up menu vb pada project anda, seperti capture berikut

 

menuvb4

 

  • Masukkan ke -2 komponent tersebut pada form anda,lihat contoh dibawah

 

menuvb1

 

  • Buat menu editor seperti biasa, atau anda bisa ikuti seperti gambar berikut

 

menuvb2

 

  • Selanjutnya masuk tahap pengkodean
  1. Masukkan kode berikut pada bagian General

 

Option Explicit
Private Function getIconIndex(ByVal key As String) As Long
    getIconIndex = ImageList1.ListImages.Item(key).Index - 1
End Function
Private Sub setIcon(ByVal key As String, ByVal menuName As String)
    Dim iconIndex As Long
     iconIndex = getIconIndex(key)
    PopMenu1.ItemIcon(menuName) = iconIndex
End Sub



b. dan masukkan kode berikut pada bagian form_load

 

Private Sub Form_Load()
    With PopMenu1
        .ImageList = ImageList1
        .OfficeXpStyle = True
        .SubClassMenu Me
        Call setIcon("new", "mnuFile")
        Call setIcon("open", "mnuOpen")
        Call setIcon("close", "mnuClose")
        Call setIcon("save", "mnuSave")
        Call setIcon("preview", "mnuPrintPreview")
        Call setIcon("print", "mnuPrint")
        Call setIcon("mail", "mnuMailRecipient")
        Call setIcon("fax", "mnuFaxRecipient")
        Call setIcon("powerpoint", "mnuMicrosoftPowerPoint")
     End With
End Sub

  • Sekarang coba jalankan programnya, kalu tidak ada masalah akan tampil seperti berikut

 

menuvb3

 

Bagaimana anda tertarik ?, silahkan mencobanya ( have fun ) Laughing

 

 

Link Download Sampel project

gif

 

 

Semoga bermanfaat

Salam Sukses

COMMENTS  

zulfikarqurni
Dikirim pada
Jul 31, 2012
Dikirim oleh
zulfikarqurni
zulfikarqurni
Dikirim pada
Jul 31, 2012
Dikirim oleh
zulfikarqurni
0 kalo boleh saranin pake idws aja serverx mz
Buya @Admin
Dikirim pada
Agus 01, 2012
Dikirim oleh
Buya @Admin
0 Quoting zulfikarqurni:
kalo boleh saranin pake idws aja serverx mz

Link sudah aktif lagi gan
Guest
Dikirim pada
Agus 01, 2012
Dikirim oleh
Guest
0 link ny masih blm bisa om
Buya @Admin
Dikirim pada
Agus 02, 2012
Dikirim oleh
Buya @Admin
0 Quoting Guest:
link ny masih blm bisa om

Udah dicek masih bisa ko om
nanti tunggu 6 detik di kanan paling atas browser, lalu klik skip




Silahkan mengkopi artikel pada website ini dengan mencantumkan sumbernya.
Jika menemukan link yang mati, silahkan kontak kami atau anda bisa mengirimkan komentar
Setelah membaca artikel diatas jangan lupa kirim Komentarnya....!!!

TINGGALKAN KOMENTAR

Mohon perhatian kepada komentator...1). Kami berhak mengedit, menyortir bahkan memblok IP anda jika dipandang tidak sesuai dengan visi dan misi kami tanpa pemberitahuan terlebih dahulu. 2). Jika anda telah mengeklik tombol send dan komentar anda belum muncul, coba dulu klik tombol 'Refresh Comments List', atau mungkin komentar anda sedang menunggu persetujuan kami untuk dipublish. 3). Jika ikon anda ingin ditampilkan di kolom komentar, silakan daftarkan email anda di Gravatar.com. Terima kasih atas komentar dan perhatian anda.

Security code
Refresh

eXTReMe Tracker
Weblog ini dibuat sebagai sarana pembelajaran... Kami berusaha untuk menyimpan seluruh catatan yang kami kumpulkan ke dalam penyimpan data online ini untuk dapat dipakai bersama. Meskipun dengan segala keterbatasan dan waktu yang ada, sehingga masih banyak yang harus dibenahi. Segala sumber data kami masukan ke dalamnya, namun ada beberapa file yang lupa sumbernya. Sehingga mohon maaf jika ada pihak yang tidak berkenan... Untuk itu segala masukan dan saran sangat kami harapkan. Semoga bermanfaat...