VPF::Переключатели в меню - Форум программистов

efedron

Дата 14.4.2005, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: 4
Всего: 4

amt
че-то ты напортачил..у меня код прекрасно работает...лучше пробуй..внимательнее smile

--------------------

Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.

amt

Дата 15.4.2005, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3

efedron
smile

А как ты создаешь меню: с помощью конструктора (у меня именно так) или программно? Можа в этом дело? Может чего дополнительно подключить надо?
На форме я разместил три имиджа.
Имеет ли значение их размер, положение и тип подключенной картинки (.ico, .bmp)?
И еще

Цитата

'здесь мы определяем, что работать хотим с первым пунктом меню, т.к. индекс равен 0
'здесь мы определяем, что работать хотим со вторым пунктом меню, т.к. индекс равен 1
'здесь мы определяем, что работать хотим с третьим пунктом меню, т.к. индекс равен 2

О каких индексах идет речь: индексах пуктов меню (типа Файл, Правка, Вид...) или команд в пункте (типа Вырезать, Копировать, Вставить...)?
Если первое, то какже привязывать картинки к командам в меню?
smile

Это сообщение отредактировал(а) amt - 15.4.2005, 09:30

--------------------

С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.

Exception

Дата 15.4.2005, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186

Сначала делаем меню в конструкторе.
Потом GetSubMenu - индекс это порядковый номер (Файл-0, Прака-1)
GetMenuItemID - индекс самой менюхи (0-Создать.., 1-открыть...)

amt

Дата 18.4.2005, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3

Может я конкретно тормажу, но с индексами у меня совсем другая картина.
Файл -1
Открыть -2
Создать -3
Правка - 4
копировать -5
вставить -6
и т.д.
И код у меня такой:

Код


Private Sub Form_Load()
Dim hMenu&, hSubMenu&, hMenuItem&
hMenu = GetMenu(Me.hwnd)
SetMenuItemBitmaps hMenu, 2, MF_BITMAP, Image1.Picture, Image1.Picture
SetMenuItemBitmaps hMenu, 3, MF_BITMAP, Image2.Picture, Image2.Picture
SetMenuItemBitmaps hMenu, 5, MF_BITMAP, Image3.Picture, Image3.Picture
SetMenuItemBitmaps hMenu, 6, MF_BITMAP, Image4.Picture, Image4.Picture
End Sub

И вроде бы все ничего, но картинки не умещяються в строках меню (видны не целиком)
Как увеличить по высоте строки команд в меню ?

Это сообщение отредактировал(а) amt - 18.4.2005, 08:20

--------------------

Exception

Дата 18.4.2005, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186

Цитата(amt @ 18.4.2005, 09:14)

Может я конкретно тормажу, но с индексами у меня совсем другая картина

Код


hMenu = GetMenu(Me.hwnd)

. Потом мы берем хэндл меню верх. уровня (к примеру Файл на моей картинке - 0, Правка - 1, Вид - 2).
То есть не индекс, а порядковый номер.
Вот мы взяли хэндл "Файл"а.
Берем хэндл субменю "Новый"

Код


hMenuItem = GetMenuItemID(hSubMenu, 0)

По порядку он первый поэтому мы пишем "0".
Когда нам известен хэндл субменю, мы клеим картинку:

Код


SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image1.Picture, Image1.Picture

Размер картинок вроде должен быть 16x16. Если надо больше, смотри как это сделано в CoolVBMenu. smile

Это сообщение отредактировал(а) Run-time error - 18.4.2005, 12:36

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »