Thêm icon vào menu VB và button

Thêm icon vào menu VB và button

Help me

Thành Nam.

1. Thờm icon v?o Button khỏ don gi?n
- é?t thu?c tớnh Style th?nh Graphical
- é?t thu?c tớnh Picture l? Icon nhu mỡnh mu?n.
2. Mu?n thờm Icon v?o VB menu ph?i khai bỏo v? g?i m?t s? h?m API:
- Trong Form cú menu dua v?o di?u khi?n Image List. é? cú éK n?y ph?i v?o Components d? thờm v?o Comclt32.OCX (Microsoft Windown Common Control 5.0 (SP2).
- Thờm cỏc Image mỡnh mu?n v?o éK n?y
- Trong ph?n General c?a Form dua v?o 3 khai bỏo sau:
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As String) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
- Trong s? ki?n Form Load dua v?o cỏc l?nh sau:
Dim i%
Dim hMenu, hSubMenu, menuID, x
hMenu = GetMenu(hwnd)
hSubMenu = GetSubMenu(hMenu, 0) '1 for "Other" menu etcetera
For i = 1 To 10 (so luong menu)
menuID = GetMenuItemID(hSubMenu, i - 1)

aa = SetMenuItemBitmaps(hMenu, menuID, &H4, img.ListImages(i).Picture, img.ListImages(i).Picture)

Next
menuID = GetMenuItemID(hSubMenu, 5)
aa = SetMenuItemBitmaps(hMenu, menuID, 0, img.ListImages(i).Picture, 0&)
chỳc b?n th?nh cụng!
Thõn
Linh gia