Изменение картинки в меню

[goro]

У меня такой вопрос.
Как сделать чтобы при наведении на меню, картинка ее менялась на другую.
Заранее спасибо.

[Emzari]

Помколку я знаю у стандартного меню в VB есть толко собитие Click а собитие типа MouseMove нету.
Надо зделать све совственное меню и витворять сним что угодно

[MEMBER]

Можно сабклассингом попробовать. Правда не знаю, получится, или нет.

[goro]

Можно сабклассингом попробовать. Правда не знаю, получится, или нет.

Можно попробовать, только как? Я кстати использую контрол От VBAccelerator - PopupMenu.
Поможете кодом?

[MEMBER]

Попробую.

[goro]

Попробую.

Спасибо. Буду ждать.

[MEMBER]

Как бы вот.
Чёрт, закачка не работает...
Ушло мылом.

[MEMBER]

Более "продвинутый" вариант.
Тоже в мыло.
Админы, ау-у!

[goro]

Ага, нашел..Жди исходняк который просил.
Кстати опять проблемы с закачкой файлов на форум.

[MEMBER]

Что нашёл?

[goro]

Что нашёл?

Пример твой нашел в почтовом ящике.

[MEMBER]

Тут такая фигня, чо то у меня не запускается этот PopUpMenu. Ругается, собака.
В общем, по моему примеру, мысль такова:
Код отслеживает перемещение мыши по меню, в SubClass модуле, в коде:

Код: Выделить всё

    Select Case Msg
        Case WM_MENUSELECT
            MenuText(0) = "Главное меню"
            MenuText(2) = "Этот пример демонстрирует способ"
            MenuText(3) = "с помощью которого можно менять картинки"
            MenuText(4) = "для каждого пункта меню."
            frmMain.Caption = MenuText(LowOrd(wParam))
    End Select


задаётся реакция на выделение определённого пункта меню. При наведении мыши на пункт меню(номер позиции), меняется Caption формы. Вместо этого, вы можете указать замену картинки. Я не знаю как это делается в контроле, ну что-то вроде:

Код: Выделить всё

    Select Case Msg
        Case WM_MENUSELECT
            MenuText(0) = "PicOne"
            MenuText(2) = "PicTwo"
            MenuText(3) = "PicThree"
            MenuText(4) = "PicFour"
            MenuText.Picture = MenuText(LowOrd(wParam))
    End Select


[goro]

Member!!!
Огрррромное спасибо! Получилось! Жил бы рядом пиво бы тебе поставил!

[MEMBER]

Здорово. Я рад.
За пиво спасибо, мы тут с сотоварищи за ваше здоровье и ваш проект водочки выпьем, ветчинкой закусим и пивом полирнём. Гарик, наливай!
Удачи.