Страница: 1 |
Страница: 1 |
Вопрос: Вставка картинок в меню вторго уровня
Добавлено: 19.08.08 09:51
Автор вопроса: werber | Web-сайт:
Вопрос вот какой: как вставять картинки в меню второго уровня (там где происходит разветление) пользуясь следующим кодом:
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public 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 Sub Form_Load()
hMenu = GetMenu(Me.hWnd) 'получение идентификатора основного меню
hSubMenu = GetSubMenu(hMenu, 1) 'получение идентификатора меню первого уровня (Типа, "Файл", "Помощь" и т.д.)
hMenuItem = GetMenuItemID(hSubMenu, 1) 'получение идентификатора меню второго уровня уровня (типа, номер идентификации этого под меню в гланом меню (по порядку 0,1,2...n))
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image7.Picture, Image7.Picture
End Sub
Я просто не врублюсь как работать с подменю, так как получается я обращаюсь и к основному (первому) уровню, и одновременно изменяю картинку на втором уровне.
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
werber
Вопросов: 71
Ответов: 112
Web-сайт:
Профиль | | #1
Добавлено: 19.08.08 15:18
Блин! Кто нибудь будет помогать?! Или это нерешимая задача?
Номер ответа: 2
Автор ответа:
Серёга
ICQ: 262809473
Вопросов: 17
Ответов: 561
Web-сайт:
Профиль | | #2
Добавлено: 19.08.08 19:38
Если тебе надо в подменю картинку засунуть - получи hSubMenu от hSubMenu.
Как то так наверное.
Номер ответа: 3
Автор ответа:
Smith
ICQ: adamis@list.ru
Вопросов: 153
Ответов: 3632
Профиль | | #3
Добавлено: 20.08.08 08:37
Тут же на сайте есть примеры, незнаю что там внутри но что мешает попробовать?
http://www.vbnet.ru/samples/zip/MenunFoto.rar