получить значение комбобокса пользовательской панели инструментов

uu_vano

Дата: 07.03.2008 19:58:48

Тема вроде заезженная, но...

Нужно присвоить переменной значение комбобокса пользовательской панели инструментов

а = Application.CommandBars("TestCommandBar").Controls("Filial").Text
- ошибку выдаёт вроде объект не поддерживает данное свойство...

если наоборот - нет проблем :-)
Application.CommandBars("TestCommandBar").Controls("Filial").Text = a
- работает прекрасно

Может, кто решал подобные проблемы?

mds_world

Дата: 07.03.2008 21:51:53

ToolTipText не подойдет?

а = Application.CommandBars("TestCommandBar").Controls("Filial").ToolTipText

Ламер Ламерович

Дата: 07.03.2008 23:04:56

uu_vano

а = Application.CommandBars("TestCommandBar").Controls("Filial").Text
- ошибку выдаёт вроде объект не поддерживает данное свойство...

А если обратиться к контролу по индексу?
Вы используете символ & в подписи для быстрого доступа?

Karfaqen

Дата: 07.03.2008 23:12:48

2mds_world:
Автор читает текущее значение комбобокса, ему подсказка не нужна.
Точнее, она ему конечно нужна, раз спрашивает, но какая-то другая

Я не понимаю, в чем у автора проблема. Использую комбики в тулбаре, правда я оттуда читаю CommandBars.ActionControl.ListIndex, но сейчас смотрю - text у него тоже читается без проблем.
Может автор все же Сaption не тот указывает?

uu_vano

Дата: 07.03.2008 23:52:57

Karfaqen

2mds_world:
CommandBars.ActionControl.ListIndex

Конечно! Фокус нужно было на комбобокс перевести!
Заработался...
Вопрос закрыт. Спасибо всем, кто откликнулся :-)

uu_vano

Дата: 07.03.2008 23:58:12

Karfaqen

2mds_world:
CommandBars.ActionControl.ListIndex