Привет всем
Кто знает - подскажите.
Как сделать группу переключателей в меню формы, например как в Проводнике:
в меню Вид есть группа команд:
Значки
Список
Таблица
и т.д.

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

Во первых скажу что стандартной обработки группы элементов в меню нет. Нужно делать это самому. Но все это делается легко.
Для упрощения действий, лично я, рекомендую все элементы группы сделать массивом. Тоесть все элементы имеют одно Имя но разные Индекс и Капшион.

Итак создаем такое меню:
Вид(mnuView)
---Значки(mnuViewMode,0)
---Список(mnuViewMode,1)
---Таблица(mnuViewMode,2)

В скобках указаны Имя и Индекс элементов.
Элементу mnuViewMode(0) такжу устанавливаем начальное значение Checked=True (изначально отмеченный элемент. может быть иной).

Теперь перейдем к написанию кода.
В режиме разработки, щелкнем по готовому подменю Значки в меню Вид, и попадем к его коду:

Код

Private Sub mnuViewMode_Click(Index As Integer) End Sub

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

В итоге получим что-то подобное:

Код

Private Sub mnuViewMode_Click(Index As Integer)    Dim SelectedItem As Integer        SelectedItem = Index    Me.mnuViewMode(0).Checked = False    Me.mnuViewMode(1).Checked = False    Me.mnuViewMode(2).Checked = False    Me.mnuViewMode(SelectedItem).Checked = True        Select Case SelectedItem        Case 0 'Значки            ' Some Code        Case 1 'Список            ' Some Code        Case 2 'Таблица            ' Some Code    End Select End Sub

Одна разница. В проводнике там кружочки, а тут галочки. А коль хочица кружки пиши на апи. Тока на простоту не расчитывай

Run-time error
А ты это к чему?

Просто я обычно всю работу с меню на апи делаю. Всякие картинки слева от надписи и т.п.

Но на 6.0 это немного каряво получается.

Цитата

А коль хочица кружки пиши на апи. Тока на простоту не расчитывай.

Не так сложно, как каряво.

Это сообщение отредактировал(а) Mephisto - 17.2.2005, 19:28

По моему изначальный вопрос был не про крухочки, галочки, картинки.
Но тоже вариант.

Цитата(Mephisto @ 17.2.2005, 20:27)

Но на 6.0 это немного каряво получается

Написал класс инкапсулирующий работу с апи и все

Я имею в виду сама работа. Картинки отображаются немного каряво, сама работа меню не впечатляет. Без картинок лучше. А вообще лучше продублировать меню панелью. Так будет лучше. Или всплывающим меню в статусбаре, там же отображать выделеный компонент. Как в ёкселе.

Это сообщение отредактировал(а) Mephisto - 17.2.2005, 19:40

Цитата(Mephisto @ 17.2.2005, 20:39)

Картинки отображаются немного каряво

Ну не знаю, у меня вроде ничего выходит.
Насчет остального - дело вкуса

Naghual, спасибо, но такой вариант я и сам уже продумал.
Мне не хочется работать со свойством Checked.
Но все равно спасибо.
Run-time error, можно по-подробнее про кружочки и картинки напротив команд меню?

Сейчас дам небольшой (ну это как сказать:) примерчик кода (автор - Анатолий Жуков):
CoolVBMenu
Если постараешься - поймешь

Run-time error
Решил вернуться к старой теме. Ссылка, которую ты мне дал просто классная,

Цитата

Сейчас дам небольшой (ну это как сказать примерчик кода (автор - Анатолий Жуков): CoolVBMenu Если постараешься - поймешь

Но для меня там большая часть информации - темный лес. Кто-нибудь еще занимался этим вопросом.
Как засунуть в меню картинку (без XP-ных наворотов)?

Код

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) 'определяем заголовок, если у Вас есть, например File и Edit, то индексом задаёте нужный hSubMenu = GetSubMenu(hMenu, 0) 'здесь мы определяем, что работать хотим с первым пунктом меню, т.к. индекс равен 0 hMenuItem = GetMenuItemID(hSubMenu, 0) '"клеим" картинку к первому пункту SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image1.Picture, Image1.Picture 'здесь мы определяем, что работать хотим со вторым пунктом меню, т.к. индекс равен 1 hMenuItem = GetMenuItemID(hSubMenu, 1) '"клеим" картинку ко второму пункту SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image2.Picture, Image2.Picture 'здесь мы определяем, что работать хотим с третьим пунктом меню, т.к. индекс равен 2 hMenuItem = GetMenuItemID(hSubMenu, 2) '"клеим" картинку к третьему пункту SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image3.Picture, Image3.Picture End Sub

вроде так

Run-time error
Попробовал твой код. Но он у меня не вяжется к моему меню. Все команды выполняются без ошибок и ничего не происходит.
При пошаговом выполнении проги выячняется что после выполнения строки
hMenuItem = GetMenuItemID(hSubMenu, 0)
переменной hMenuItem присваивается значение -1, т.е. никакого меню ненаходит.
Может я че не так делаю?
Помогите плиз!

Это сообщение отредактировал(а) amt - 14.4.2005, 07:38

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

efedron

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

Цитата

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

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


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

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

Может я конкретно тормажу, но с индексами у меня совсем другая картина.
Файл -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

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

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

Индексы, не встроенные в vb я имею в виду, а порядковые номера элементов.
|Файл|Правка|Вид...
|Новый |
|Открыть|
Сначала мы берем handle строки меню формы:

Код

hMenu = GetMenu(Me.hwnd)

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

Код

hMenuItem = GetMenuItemID(hSubMenu, 0)

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

Код

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

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

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