Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 19.08.2011
Сообщений: 26
1

Access добавление нового подпункта в меню

16.03.2015, 12:13. Показов 781. Ответов 2
Метки нет (Все метки)

Если кто то сталкивался поделитесь информацией. Задача следующая создаётся панель на которой создаётся пункт контекстного меню, в этот пункт нужно создать подпункт. Подскажите как дальше обратиться чтоб его создать. Мой листинг:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
With Application.CommandBars
                    With .Add("PanelName1", msoBarTop, False, True)
                        .Visible = True
                        With .Controls
                            With .Add(msoControlPopup)
                                .Caption = "Пункт 1"
                                .TooltipText = "Пункт 1"
                            End With
                            With .Add(msoControlPopup)
                                .Caption = "Пункт 2"
                                .TooltipText = "Пункт 2"
                            End With
                            With .Add(msoControlPopup)
                                .Caption = "Пункт 3"
                                .TooltipText = "Пункт 3"
                            End With
                        End With
                    End With
                End With
                CommandBars(PanelName).Controls ("Пункт 1")?
Далее думаю как мне добавить в этот раздел подраздел курю интернет пока нет нечего толкового. Может кто знает куда далее обратиться чтобы создать.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2015, 12:13
Ответы с готовыми решениями:

Добавление подпункта в меню
.Net 4.6, C#, Windows Forms, VS 2015 Есть в форме строка меню mainMenu (MenuStrip) В строке есть...

Возврат назад в главное меню из подпункта меню
Добрый вечер, подскажите пожалуйста, как организовать многоуровневое меню? А конкретно, надо из...

Создание выпадающего подпункта в меню
Добрый день. Не получается реализовать выпадающий подпункт в меню. Памагите =D Туторы на ютубе и...

Одномоментное добавление нового поля и его значения в таблицу Access
Уважаемые форумчане, добрый вечер! Цель: иметь возможность из формы по необходимости создать...

2
1312 / 291 / 65
Регистрация: 13.11.2008
Сообщений: 604
16.03.2015, 14:52 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim cbPopup, cbSubPopup, cbSubPopup1
    With Application.CommandBars
        On Error Resume Next
        .Item("PanelName1").Delete
        On Error GoTo 0
        
        With .Add("PanelName1", msoBarTop, False, True)
            .Visible = True
            Set cbPopup = .Controls.Add(10)
            With cbPopup
                .Caption = "Главный пункт 1"
                .TooltipText = "Главный пункт"
            End With
            Set cbSubPopup = cbPopup.Controls.Add(Type:=10)
            cbSubPopup.Caption = "Подпункт Главноего Пункта 1"
            Set cbSubPopup1 = cbSubPopup.Controls.Add(10)
            cbSubPopup1.Caption = "Подпункт Подпункта Главноего Пункта 1"
            With cbSubPopup1.Controls.Add
                .Caption = "Подпункт ниже Подпункта Главноего Пункта 1"
            End With
        End With
    End With
0
0 / 0 / 0
Регистрация: 19.08.2011
Сообщений: 26
16.03.2015, 16:42  [ТС] 3
Интересный код поинтереснее моего
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
With Application.CommandBars("PanelName1", msoBarTop, False, True)
   .Visable = True
   With .Controls
      With .Add(msoControlPopup)
         .Caption = "1"
         .TooltipText = "1"
      End With
   End With
End With
Application.CommandBars("PanelName1").Controls(1).Controls.Add(msoControlButton).Style = msoButtonCaption
Application.CommandBars("PanelName1").Controls(1).Controls.Add(msoControlButton).Caption = "1.1"
Вот это получилось у меня таким макаром но код длинный и не удобный. Твой пример выше получьше и читабельность и описание проще =)

Добавлено через 1 минуту
Спасибо The_Prist за пример кода. Тема закрыта.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2015, 16:42

Изменение текста подпункта контекстного меню
Доброго времени суток, уважаемые форумчане! Столкнулся с необходимостью программного изменения...

Разворачивающееся меню с подпунктами и выделением активного пункта и подпункта
Никак не получается найти подобный скрипт, просто с выделением пункта есть, но нужно именно меню, с...

Можно ли сделать бат файл, в котором будет 3 подпункта и один из подпунктов тоже будет иметь свое меню?
Можно сделать бат файл, в котором будет 3 подпункта и один из подпунктов тоже будет иметь свое...

Создание нового меню в меню Файл в Excel
Небольшое вступление: я решил сделать надстройку для Excel, при ее установке в меню 'Файл' должен...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.