Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
24.11.2003, 14:36
|
|||
|---|---|---|---|
|
|||
Прочитать меню |
|||
|
#18+
Всем привет! Есть интересный вопрос У меня есть меню созданное стандартным способом в конструкторе. Например, Справочники > Клиенты > Фирмы Документы > Счета > Договора и т.д. Вопрос как можно в VBA Прочитать названия меню, т.е. я должен получить названия: Клиенты, Фирмы, Счета, Договора (каждое название вношу в отдельные строки таблици)? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.11.2003, 15:16
|
|||
|---|---|---|---|
Прочитать меню |
|||
|
#18+
к концу недели Hummer обещал написать приложение или Ассеss -ADDON для управления менюхами и тулбарами а также выборочный импорт и экспорт в другие проекты ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.11.2003, 15:17
|
|||
|---|---|---|---|
|
|||
Прочитать меню |
|||
|
#18+
А в чем собственно проблема? Название меню знаете? Примерно так (возможны ошибки) Function GetMenuControls(mctl As Object) Dim ctl As Object Static lngLevel As Long On Error Resume Next lngLevel = lngLevel + 1 For Each ctl In mctl.Controls Debug.Print String(lngLevel, " ") & ctl.Caption If ctl.Controls.Count > 0 Then MenuControlsCaption ctl Next ctl lngLevel = lngLevel - 1 End Function Вызов: GetMenuControls application.CommandBars("Имя меню") ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&tablet=1&tid=1678061]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
39ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
29ms |
get tp. blocked users: |
1ms |
| others: | 245ms |
| total: | 350ms |
| 0 / 0 |
