Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пункта контекстного меню по кнопке / 6 сообщений из 6, страница 1 из 1
05.04.2020, 10:42
    #39944070
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пункта контекстного меню по кнопке
Можно ли вызвать конкретный пункт контекстного меню по кнопке?

Поясняю ситуацию.
На форме есть присоединённая рамка объекта OLE.
Надо вставить туда фотографию.
Стандартно - правая кнопка мыши на поле, пункт "Вставить объект", переключаешь на "Создать из файла" Ну и выбираешь файл.

А начальство хочет, чтобы по кнопке сразу вызывался пункт контекстного меню "Вставить объект".
Вроде это можно сделать. Что-то в голове крутится, но никак не соображается.


-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2020, 11:38
    #39944077
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пункта контекстного меню по кнопке
Посмотрите это,форма "сотрудники"(обязательно распаковать архив)
https://yadi.sk/d/Uoy6GBPsmtKBIg
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2020, 12:10
    #39944083
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пункта контекстного меню по кнопке
Вдогонку:
в А-2003 только *.bmp
но в более новых версиях "проглотит" любой графический файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2020, 13:14
    #39944091
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пункта контекстного меню по кнопке
Спасибо, но это не совсем то. Здесь запоминается путь к файлу, а мне надо загрузить сам файл как OLE объект.

Тут мне подсказали, что можно попробовать сделать вот так
Код: vbnet
1.
docmd.RunCommand acCmdInsertObject

при этом фокус должен быть в OLE поле.
Ещё не проверял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2020, 15:00
    #39944106
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пункта контекстного меню по кнопке
Joss

..Надо вставить туда фотографию...
По моему, это более удачное интерфейсное решение,чем вызывать диалог вставки файла и работа в нем-а впрочем, как Вам больше нравится
(или как хочет начальство,что не всегда оптимально)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2020, 16:04
    #39944119
Predeclared
Predeclared
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов пункта контекстного меню по кнопке
В бэк-модуле формы:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private cb As Office.CommandBar
Private cbc As Office.CommandBarButton

Private Sub Form_Close()
    Set cbc = Nothing
    cb.Delete
    Set cb = Nothing
End Sub

Private Sub Form_Open(Cancel As Integer)
    Set cb = CommandBars.Add(, 5&, , True) '4&
    Set cbc = cb.Controls.Add(1, 2995&)
    cbc.Style = msoButtonCaption
End Sub

Private Sub ole_GotFocus()
'    cb.Visible = True
    cb.ShowPopup
End Sub
'
'Private Sub ole_LostFocus()
'    cb.Visible = False
'End Sub



Заточено под контекстное меню. Зеленым оставлено для варианта панели.
И можно на позднее связывание съехать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пункта контекстного меню по кнопке / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 176ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1610151]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 14ms
total:  176ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]