VBNet - Форум - Менюшки???

Вопрос: Менюшки??? Добавлено: 08.10.04 07:36

Автор вопроса: Piton_4m

Народ есть маленькая проблемка со вставкой картинок в менюшки...

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&
    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

Вроде всё есть,,, но картинка выглядит не естественно т.е. цвета не полные, вставлять мона только JPG или BMP, но ведь в других программах картинки выглядят красиво... МОжет кто знает как исправить этот глюк....????? Исходник взят из библиотеки кодов......
Ответить

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

Номер ответа: 1 Автор ответа: RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147	Профиль \| \| #1	Добавлено: 08.10.04 10:31
	Так... Ответить

Номер ответа: 2 Автор ответа: RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147	Профиль \| \| #2	Добавлено: 08.10.04 10:32
	Она и не должна нормально выглядеть Ответить

Номер ответа: 3 Автор ответа: RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147	Профиль \| \| #3	Добавлено: 08.10.04 10:32
	У меня было, как-то исправил Ответить

Номер ответа: 4 Автор ответа: RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147	Профиль \| \| #4	Добавлено: 08.10.04 10:33
	Навероное те надо использовать преобразование картинки в черно-белую, а потом обратно - в цветную Ответить

Номер ответа: 5 Автор ответа: RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147	Профиль \| \| #5	Добавлено: 08.10.04 10:33
	Это шо то типа коректа цветов Ответить

Номер ответа: 6 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #6	Добавлено: 08.10.04 11:53
	Люди, смешно... не по тому пути идете Всем искать пример на этом сайте... Там все прикрасно выглядит, но одна проблемма, все это в разы сложнее чем тут написано... Т.ч. смотрите, изучайте, и делайте выводы, а надо-ли оно вам Ответить

Номер ответа: 7 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919	Профиль \| \| #7	Добавлено: 08.10.04 12:56
	sne, скажи что за пример? RomaVis, ну не фига ты разотвечался... И почему не пишешь? Ответить

Номер ответа: 8 Автор ответа: Piton_4m Вопросов: 10 Ответов: 26	Профиль \| \| #8	Добавлено: 08.10.04 13:00
	А помоему ентот констант MF_BITMAP... Ответить

Номер ответа: 9 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #9	Добавлено: 08.10.04 20:18
	На сайте искать не буду, все равно, не найду А найти его в течении 7 дней мона будет тут: ftp://crts.ru/sne/VB/Menu.rar Ответить

Номер ответа: 10 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #10	Добавлено: 09.10.04 11:32
	2RomaVis: очень похоже на накрутку рейтинга... Будь аккуратнее! Ответить

Номер ответа: 11 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686	Web-сайт: barsik.newmail.ru Профиль \| \| #11	Добавлено: 11.10.04 20:42
	чуваки я пример вылажил смотрите.... CoolMenu sne спасибо за сотрудничество!!! Ответить

Страница: 1 |