создание своего контрола (кнопка-меню)

Фесенко Олег
Дата: 07.09.2005 15:43:51
Access 97.
Я честно лазил целый час по форуму, но из-за сленга и неточного формульрования вопроса не смог найти что надо. Хотя уверен, что вопрос задаварся не раз.

Вопрос общий:
что написать (приблизительно) в процедуре нажатия кнопки, чтобы в результате от кнопки всплывало меню из 5 строк.
msn13
Дата: 07.09.2005 16:12:13
Фесенко Олег
Дата: 07.09.2005 16:42:55
ссылка не плохая, но она на контекстное меню показывает.

Я имею ввиду чтоб при простом нажатии на кнопку левой кнопкой
меню всплывать не хочет

Какая-то аналогия есть в типике здесь. Но у меня не вся форма, а только кнопка.
Фесенко Олег
Дата: 07.09.2005 16:44:56
а вообще-то кажется, что здесь код VBA писать не надо! Я правильно понял?
Пользователь2
Дата: 07.09.2005 17:00:54
Свойства кнопки -> вкладка "Другие" -> "Контекстное меню"

И уведись, чтобы в свойствах формы стояло "Контекстные меню" - Да.
ЛП
Дата: 07.09.2005 17:01:14
Фесенко Олег
Я имею ввиду чтоб при простом нажатии на кнопку левой кнопкой
меню всплывать не хочет

Сделайте свою форму безо всякого оформления (т.е. без шапки, кнопок, без изменения границ и прочего говна). Открывайте эту форму по нажатию на кнопку.
За примером можно сходить в топик про календарик
Владимир Саныч
Дата: 07.09.2005 17:05:48
На всякий случай:
http://sql.ru/forum/actualthread.aspx?tid=72876
Фесенко Олег
Дата: 08.09.2005 08:38:27
ЛП
Сделайте свою форму...Открывайте эту форму по нажатию на кнопку
.

Идея не плохая, и проста в реализации, но новая форма (которая от кнопки) всплывает не там, где нужно, а привязать к кнопки не возможно мне кажется. Ведь это разные формы!!

Вообще я имел ввиду что-то похожее на это:
Фесенко Олег
Дата: 08.09.2005 08:48:37
Пользователь2
И уведись, чтобы в свойствах формы стояло "Контекстные меню" - Да.


Это я сделал давно! Но во-первых --- это контекстное меню (правая кнопка актуальна), а хотелось бы от левого нажатия результат получить. Во-вторых --- даже если принять за "+" результат всё равно выскакивает:
Пользователь2
Дата: 08.09.2005 09:33:39
Фесенко Олег
Но во-первых --- это контекстное меню (правая кнопка актуальна), а хотелось бы от левого нажатия результат получить.

Сделай так

Private Sub Button1_Click()
    Dim cb As CommandBar

    Set cb = CommandBars("PopMenu")
    cb.ShowPopup
End Sub

Фесенко Олег
Во-вторых --- даже если принять за "+" результат всё равно выскакивает.

Што?