Sağol turkhacking.. kodları alalım arşive

İnternetim en sonunda bağlandığına göre forumdaki icraatlarıma kaldığım yerden devam edebilirim Menülere bitmap resim eklemek aslında kolay gibi birşey ama tabi işin kolayına kaçıp hep ocx kullandığımız için hiç öğrenme niyetine girmemiştim ama internette dolaşırken kod örneği gördüm ve burada da paylaşmak istedim. Kullanımı gayet kolay ama ben gene de tam bilmeyenler için açıklamasını yaptım yanına siz de işi kapın diye Öncelikle formunuza bir menü yaratın daha sonra bir adet alt menü yaratın ve form üzerine 1 adet picturebox koyun ve içine de bi resim atın. Daha sonra aşağıdaki kodları aynen modül içine kopyalayın Kod: Public Declare Function GetMenu Lib "user32" As Long Public Declare Function GetSubMenu Lib "user32" As Long Public Declare Function GetMenuItemID Lib "user32" As Long Public Declare Function SetMenuItemBitmaps Lib "user32" As Long Public Const MF_BITMAP = &H4& Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type Public Declare Function GetMenuItemCount Lib "user32" As Long Public Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" As Boolean Public Const MIIM_ID = &H2 Public Const MIIM_TYPE = &H10 Public Const MFT_STRING = &H0& Daha sonra aşağıdaki kodları da forma kopyalayın... Kod: Private Sub Form_Load '0. index nolu menünün içindeki 0. cı index nolu submenünün yanına resim ekleyecek kodlar hMenu& = GetMenu(Form1. hwnd) 'Burada menünün hangi form içinde olduğunu bildiriyoruz. hSubMenu& = GetSubMenu(hMenu&, 0) ' Burada Hangi anamenü olduğunu bildiriyoruz hID& = GetMenuItemID(hSubMenu&, 0) ' Burada ise yukarıda bildirilen anamenünün alt menüsünü bildiriyoruz SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1. Picture, Picture1. Picture ' Burada da apiyi çağırıp eklenecek resmin nerede olduğunu bildirip menüye resmi ekliyoruz... '0. index nolu menünün içindeki 1. cı index nolu submenünün yanına resim ekleyecek kodlar hMenu& = GetMenu(Form1. hwnd) hSubMenu& = GetSubMenu(hMenu&, 0) hID& = GetMenuItemID(hSubMenu&, 1) SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1. Picture, Picture1. Picture '0. index nolu menünün içindeki 2. cı index nolu submenünün yanına resim ekleyecek kodlar hMenu& = GetMenu(Form1. hwnd) hSubMenu& = GetSubMenu(hMenu&, 0) hID& = GetMenuItemID(hSubMenu&, 2) SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1. Picture, Picture1. Picture '1. index nolu menünün içindeki 0. cı index nolu submenünün yanına resim ekleyecek kodlar hMenu& = GetMenu(Form1. hwnd) hSubMenu& = GetSubMenu(hMenu&, 1) hID& = GetMenuItemID(hSubMenu&, 0) SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1. Picture, Picture1. Picture '1. index nolu menünün içindeki 1. cı index nolu submenünün yanına resim ekleyecek kodlar hMenu& = GetMenu(Form1. hwnd) hSubMenu& = GetSubMenu(hMenu&, 1) hID& = GetMenuItemID(hSubMenu&, 1) SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1. Picture, Picture1. Picture End Sub Ben örnek kullanımını bilerek çoğalttım anlamayanlar veya takılanlar olabilir diye. 2 adet anamenü ve 1. menüye 3 adet, 2. menüye 2 adet alt menü yerleştirdim. Bu kodlar da ona göredir. Uyarı:Bu kodlar işinize yarar da teşekkür etmezseniz klavyeniz kırılsın

eminimki bircok kisinin isine yaracaktir eline saglik kolay gelsin...

Saol dostum Aslında daha önemli olanı menulere textbox veya optionbox eklenmesini çözmek benim için ama lanet olası visual basic tam olarak nesneye hakim bir dil olmadığı için bu tür şeyleri araştırıp kodlama zorunluluğu bırakıyor bırakıyor bize. Ama bu işlemlerin genel olarak çoğu. NET ile verilmiş ve kodlama yapmak yerine sadece forma çizip bildiriyorsun nesneyi o kadar. NET ya da delphiye geçeceğim sırf bu yüzden ama askerden geldiğimde yaparım bu işi de malesef