| |
автор: Maxik (09.07.2006 в 00:00) |
|
| | Народ подскажите, как заблокировать некоторые пункты меню.
Раньше я так делал: CommandBars("МоеМеню").Controls("Журналы").Enabled = False
А как сделать если меню имеет вид «Журналы» => «Пользователей».. И мне надо заблокировать пункт Пользователи, а остальные элементы в «Журнале» не затронуть! | |
| |
| |
| |
автор: cherniy_komunar (09.07.2006 в 00:00) |
|
| | Re: Опять МЕНЮ CommandBars("МоеМеню").Controls(2).Enabled = False
CommandBars("МоеМеню").Controls(2).Enabled = True | |
| |
| |
| |
|
|
| | Привет!
А как заблокировать одно или две подменю в отдельно взятом меню?
Ничего стоящего не нашёл. Да и время торопит...
Спасибо заранее! | |
| |
| |
| |
|
|
| | CommandBars("МоеМеню").Controls("ИмяПодМеню").Enabled = False | |
| |
| |
| |
|
|
| | Привет!
Спасибо за участие! Нр это не совсем то-такой конструкцией я давно пользуюсь.
Есть меню подназванием "Каталог", у него есть 7 пунктов подменю, а у пунктов подменю есть свои подпункты. Так вот некоторые подпункты необходимо заблокировать. Типа как в это окне в пункте меню "Файл" заблокированы подпункты "Правка" и "Сохранить" | |
| |
| |
| |
|
|
| | CommandBars("Каталог").Controls("ПодпунктМеню").Controls("ПодпунктПодпунктаМеню").Enabled=False
Вот функция, которая распечатает в окне отладки цепочки для всех контролов в CommandBar:
'Примеры вызова из окна отладки: funPrintControls CommandBars("Каталог")
' funPrintControls CommandBars("Menu Bar")
' funPrintControls CommandBars(4)
Public Function funPrintControls(obj As Object, Optional strParent As String)
On Error Resume Next
Dim ctrl As Object
Dim strPath As String
If Len(strParent) = 0 Then
strPath = "CommandBars(" & Chr(34) & obj.Name & Chr(34) & ")."
Else
strPath = strParent & "Controls(" & Chr(34) & obj.Caption & Chr(34) & ")."
End If
For Each ctrl In obj.Controls
Debug.Print strPath & "Controls(" & Chr(34) & ctrl.Caption & Chr(34) & ").Enabled = True ' False"
If ctrl.Controls.Count > 0 Then
funPrintControls ctrl, strPath
End If
Next
End Function
|
Вам остается только выбрать нужную строчку и скопировать в код. | |
| |
| |
| |
|
|
| | SалюТ!!!
Спасибо огромное, щас поробую. | |
| |
| |
| |
автор: Romiras (10.07.2006 в 00:00) |
|
| | Re: Опять МЕНЮ это из поиска на портале:
Результаты поиска Статей по выражению: Меню
http://hiprog.com/access/article.asp?id=11
http://hiprog.com/access/article.asp?id=61
http://hiprog.com/access/article.asp?id=60 | |
| |
| |
