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

Фесенко Олег

Дата: 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

Фесенко Олег

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

Што?