ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пункта контекстного меню по кнопке
6 сообщений из 6, страница 1 из 1
Вызов пункта контекстного меню по кнопке
    #39944070
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Можно ли вызвать конкретный пункт контекстного меню по кнопке?

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

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


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

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

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

..Надо вставить туда фотографию...
По моему, это более удачное интерфейсное решение,чем вызывать диалог вставки файла и работа в нем-а впрочем, как Вам больше нравится
(или как хочет начальство,что не всегда оптимально)
...
Рейтинг: 0 / 0
05.04.2020, 15:00
| Ответить | Цитировать | Написать  
Вызов пункта контекстного меню по кнопке
    #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
05.04.2020, 16:04
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вызов пункта контекстного меню по кнопке
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39944119&tid=1610151]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 338ms
total:  577ms
созд. / загр.: 577ms
x
x
Закрыть


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