VB-VB-002144
и тут посмотри еще может чего найдешь...
http://forum.vingrad.ru/index.php?act=modu...nel§ion=615

Цитата(kulibin @ 16.10.2005, 22:12)

получить hwnd меню?

ты про hMenu?

С этим я уже разобрался - там ссылка была выше где-то в этой теме. Супер.

Добавлено @ 16:52
Туда бы ещё иконки . . .
Откопал примерчик - а он не работает. Или я дурак - или это шутка:

Положить картинку в меню:
Добавьте на форму 3 Image. Создайте меню с тремя подменю

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) 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
Private Const MF_BITMAP = &H4&
Private Sub Form_Load()
Dim hMenu&, hSubMenu&, hMenuItem& 'объявление переменых типом Long
hMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
hMenuItem = GetMenuItemID(hSubMenu, 0)
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image1.Picture, Image1.Picture
hMenuItem = GetMenuItemID(hSubMenu, 1)
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image2.Picture, Image2.Picture
hMenuItem = GetMenuItemID(hSubMenu, 2)
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image3.Picture, Image3.Picture
End Sub
Добавлено @ 16:54
Да - и ещё одно разочарование: контекстные меню красятся только если они вызваны щелчком по форме. А вот в трее(компонент MBTray) и на кнопке(Inovartis button) - нифига. Да и в текстбоксах стандартных - тоже не фурычит. А жаль.

Цитата(kulibin @ 17.10.2005, 17:50)

Да и в текстбоксах стандартных - тоже не фурычит.

и не будет. хочешь - субклассь их...

Цитата(kulibin @ 17.10.2005, 17:50)

Откопал примерчик - а он не работает

что именно?