|
|
|
Прочитать меню
|
|||
|---|---|---|---|
|
#18+
Всем привет! Есть интересный вопрос У меня есть меню созданное стандартным способом в конструкторе. Например, Справочники > Клиенты > Фирмы Документы > Счета > Договора и т.д. Вопрос как можно в VBA Прочитать названия меню, т.е. я должен получить названия: Клиенты, Фирмы, Счета, Договора (каждое название вношу в отдельные строки таблици)? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2003, 14:36 |
|
||
|
Прочитать меню
|
|||
|---|---|---|---|
|
#18+
к концу недели Hummer обещал написать приложение или Ассеss -ADDON для управления менюхами и тулбарами а также выборочный импорт и экспорт в другие проекты ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2003, 15:16 |
|
||
|
Прочитать меню
|
|||
|---|---|---|---|
|
#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("Имя меню") ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2003, 15:17 |
|
||
|
|
start [/forum/topic.php?fid=45&tid=1678061]: |
0ms |
get settings: |
10ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
35ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 257ms |
| total: | 375ms |
| 0 / 0 |
