VBNet - Форум - Иконки в меню...

Вопрос: Иконки в меню... Добавлено: 18.04.04 12:22

Автор вопроса: Calhoon | Web-сайт: 4elovekssn.blog.ru | ICQ: 789764

На этом же сайте раскопал такой код, позволяющий засунуть в меню bmp-шку. Там есть место, объявляющее константу bmp. А как можно объявить константу иконок, чтоб положить иконку в меню, а не bmp? Возможно ли это?
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 Sub Form_Load()
Dim hMenu&, hSubMenu&, hMenuItem& 'объявление переменых типом Long
hMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
hMenuItem = GetMenuItemID(hSubMenu, 0)
SetMenuItemBitmaps hMenu, hMenuItem, &H4&, l1.Picture, Image1.Picture
hMenuItem = GetMenuItemID(hSubMenu, 1)
SetMenuItemBitmaps hMenu, hMenuItem, &H4&, Image2.Picture, Image2.Picture
hMenuItem = GetMenuItemID(hSubMenu, 2)
SetMenuItemBitmaps hMenu, hMenuItem, &H4&, Image3.Picture, Image3.Picture
End Sub

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #1

Добавлено: 18.04.04 14:21

Если хочешь получить нормальное меню с картинками, используй субклассинг и отрисовывай его сам (для иконок можно использовать DrawIcon). Пример http://www.vb.kiev.ua/code/gui/Office_menus.zip

Ответить

Номер ответа: 2
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #2

Добавлено: 19.04.04 00:02

Возможно! См. мой стааренький пример, тут же на этом сайте был, там все рисуется, из ресурсов, да и само меню берется и загружается оттуда же... правда я рисовал в обычном стиле меню, а не офисовское...

Ответить

Номер ответа: 3 Автор ответа: Calhoon ICQ: 789764 Вопросов: 90 Ответов: 230	Web-сайт: 4elovekssn.blog.ru Профиль \| \| #3	Добавлено: 21.04.04 04:20
	to sne: Не нашел я никакого стаааренького примера... Ответить

Номер ответа: 4
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #4

Добавлено: 21.04.04 18:37

Хм... возможно уже удалили... а может под др. именем... Я те отослал на почтовик...

Ответить

Страница: 1 |