| |
|
|
| | Напомните - как создавать своё контекстное меню и за одно строчку - как вырубить встроенное контекстное меню. | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=60 | |
| |
| |
| |
|
|
| | Спасибо!  | |
| |
| |
| |
|
|
| | Создал контекстное меню... A 2003
А остальные что то не скрываются...
http://www.realcoding.net/article/view/2188#10 | |
| |
| |
| |
|
|
| | Как это остальные меню (контекстные) не скрываются?
Где не скрываются???
Ты создал кон.меню.
Привязал к форме.
(Если) Форма открыта.
По правой кнопке появляется твое меню.
Не так? | |
| |
| |
| |
|
|
| | Спасибо - извини , отвлёкся........
ХЗ - пока не понял......
--------------------------------------
Ничё себе - ко всем формам прописивать........
А скрыть родное, что бы только моё вылазило везде - такое возможно? | |
| |
| |
| |
|
|
| | Можно перебрать коллекцию форм и присвоить типа
Public Sub tstShortMenu()
Dim frm As Form
For Each frm In Forms
Debug.Print frm.name
Debug.Print frm.ShortcutMenu
Debug.Print frm.ShortcutMenuBar
frm.ShortcutMenu=true
frm.ShortcutMenuBar = "MyMenu1"
Debug.Print frm.ShortcutMenuBar
Next
End Sub
|
Если надо не ковсем формам, то тут возможны варианты.
Например создать таблицу и записать туда имена форм, для которых нужно твое меню.
Ну дальше понятно. | |
| |
| |
| |
|
|
| | Да, спасибо!
Дальше понятно. 
Только обход по формам не работает почему то - только по одной форме и всё....... 
Потому как другие - наверное не загружены, ещё... | |
| |
| |
|
|
