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

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

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

Итак создаем такое меню:
Вид(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