Komutlara Resim Eklemek
VB 3'de bazı API fonksiyonlarını kullanarak her menü komutunun kenarına
bir resim yerleştirebiliyorduk. VB4'te ise bu işlem çok daha kolay bir
hale getirilmiş. Program ile birlikte bilgisayarınıza kurulan fakat siz
onu bulmadıkça gizlenen ImageList kontrolü sayesinde bir kaç satır kodla
bu işi gerçekleştirebiliyorsunuz. Programı çalıştırdığınız anda ImageList
içindeki küçük simgeler menü seçeneklerine yerleştirilecek ve program sonlanana
kadar orada kalacaktır.
Private Sub Form_Load()
Dim i%
Dim hMenu, hSubMenu, menuID, x
hMenu = GetMenu(hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
For i = 1 To 4
menuID = GetMenuItemID(hSubMenu, i - 1)
x = SetMenuItemBitmaps(hMenu, menuID, &H4, img.ListImages(i).Picture,
img.ListImages(i).Picture)
Next
menuID = GetMenuItemID(hSubMenu, 5)
x = SetMenuItemBitmaps(hMenu, menuID, 0, img.ListImages(5).Picture, 0&)
End Sub