ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Контекстное меню для поля RTF
35 сообщений из 35, показаны все 2 страниц
  все  
Контекстное меню для поля RTF
    #39831772
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
Приветствую всех, кто обратил внимание на мой пост.
Помогите разобраться, не могу понять какой тип кнопок должен быть для:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
'-------------- ошибка
    .Controls.Add msoControlSplitButtonPopup, 3076, , , True 'Цвет текста
    .Controls.Item(10).BeginGroup = True
    .Controls.Add msoControlSplitButtonPopup, 3077, , , True 'Цвет заливки фона
    .Controls.Add msoControlSplitButtonPopup, 14205, , , True 'Изменить цвет заливки/фона
    .Controls.Add 14, 1769, , , True 'Оформление -> под вопросом
'-------------- ошибка
    .Controls.Add msoControlComboBox, 1728, , , True 'Шрифт
    .Controls.Add msoControlComboBox, 1731, , , True 'Размер


Пример прилагается.
___________________________________
Использую Microsoft Access 2010, 64 бит.

Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать.
...
Рейтинг: 0 / 0
28.06.2019, 18:47
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831805
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23,
А2010 это хорошо,но в 2007 не могу посмотреть даже в режиме ограниченного функционала. Мне кажется что после добавления элемента надо задать свойства именно ему-ведь при добавлении Вы должны присвоить эл-ту какое-то имя. Посмотрите это
...
Рейтинг: 0 / 0
28.06.2019, 20:27
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831811
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuМне кажется что после добавления элемента надо задать свойства именно ему-ведь при добавлении Вы должны присвоить эл-ту какое-то имя
Чета не въеду, какое свойство?
Я же не свои кнопки разрабатываю, а использую майкрософтские по их id-кам. С другими то кнопками все ок.
sdkuА2010 это хорошо,но в 2007 не могу посмотреть даже в режиме ограниченного функционала.
Попробовала пересохранить в 2002-2003 свой пример.
...
Рейтинг: 0 / 0
28.06.2019, 21:01
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831824
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23,
поясните,пожалуйста,следующее:
при открытии формы Form1 её полю(какому-имя)назначается контекстное меню такого-то вида
...
Рейтинг: 0 / 0
28.06.2019, 23:00
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831827
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
тынц
...
Рейтинг: 0 / 0
28.06.2019, 23:16
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831848
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkunataxa23,
поясните,пожалуйста,следующее:
при открытии формы Form1 её полю(какому-имя)назначается контекстное меню такого-то вида
sdku тынц
спс за ссылку, но именно так я и делала контекстное меню. Видимо пример с версией 2002-2003 вам так же не удалось просмотреть код:
 

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
Option Compare Database
Option Explicit

Sub MyShortcutMenuForControlFormatRTF(frm As Form, ctl As Control)
  Dim MenuName As String
  Dim CB As CommandBar

On Error GoTo ErrNumber
  MenuName = "vbaShortCutMenuControlFormatRTF"
On Error Resume Next
  Application.CommandBars(MenuName).Delete
On Error GoTo 0
  Set CB = Application.CommandBars.Add(MenuName, msoBarPopup, False, False)
  
  With CB
    .Controls.Add msoControlButton, 21, , , True 'Вырезать
    .Controls.Add msoControlButton, 19, , , True 'Копировать
    .Controls.Add msoControlButton, 22, , , True 'Вставить
'--------------
    .Controls.Add msoControlButton, 113, , , True 'Полужирный
    .Controls.Item(4).BeginGroup = True
    .Controls.Add msoControlButton, 114, , , True 'Курсив
    .Controls.Add msoControlButton, 115, , , True 'Подчеркнутый
'--------------
    .Controls.Add msoControlButton, 120, , , True 'Текст по левому краю
    .Controls.Item(7).BeginGroup = True
    .Controls.Add msoControlButton, 122, , , True 'Текст по центру
    .Controls.Add msoControlButton, 121, , , True 'Текст по правому краю


'-------------- ошибка
    .Controls.Add msoControlButton, 3076, , , True 'Цвет текста
    .Controls.Item(10).BeginGroup = True
    .Controls.Add msoControlSplitButtonPopup, 3077, , , True 'Цвет заливки фона
    .Controls.Add msoControlSplitButtonPopup, 14205, , , True 'Изменить цвет заливки/фона
    .Controls.Add 14, 1769, , , True 'Оформление -> под вопросом
'-------------- ошибка
    .Controls.Add msoControlComboBox, 1728, , , True 'Шрифт
    .Controls.Add msoControlComboBox, 1731, , , True 'Размер


'--------------
    .Controls.Add msoControlButton, 12, , , True 'Маркеры
    .Controls.Item(10).BeginGroup = True
    .Controls.Add msoControlButton, 11, , , True 'Нумерация
'--------------
    .Controls.Add msoControlButton, 3507, , , True 'Увеличить отступ
    .Controls.Item(12).BeginGroup = True
    .Controls.Add msoControlButton, 3508, , , True 'Уменьшить отступ
  End With
  
  
  frm.Controls.Item(ctl.Name).ShortcutMenuBar = MenuName
  
ExitHeare:
  Set CB = Nothing
Exit Sub

ErrNumber:
  If Error <> 0 Then
    MsgBox Err.Description, , _
      "№ " & Err.Number & ". Процедура: MyShortcutMenuForControlFormatRTF. Модуль: Module1"
    Resume ExitHeare
  End If
End Sub


...
Рейтинг: 0 / 0
29.06.2019, 10:03
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831849
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
Бли, забыла выложить как я делаю код в форме:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Compare Database
Option Explicit

Private Sub Form_Load()
  Dim i As Control
  
  For Each i In Me.Controls
    Select Case i.Name
      Case "fldTxt"
        Call MyShortcutMenuForControlFormatRTF(Me, i)
'      Case Else
'        MsgBox i.Name
      End Select
  Next i
  
End Sub
...
Рейтинг: 0 / 0
29.06.2019, 10:12
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831864
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
1.Вы так и не ответили на ворос:
sdku...при открытии формы Form1 её полю назначается контекстное меню такого-то видаКак оно должно выглядеть
2. В With по CB .Controls.Add msoControlButton-встречается 14 раз + ComboBox несколько раз-Вы хотите добавить столько элементов?
Должно быть так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
..................
With CB
   Set cbb = .Controls.Add(1) 'добавление элемента управления в CB-1 это кнопка
     cbb.Caption = "копировать" 'надпись  на добавляемом элементе
     cbb.FaceId = 9996       'иконка на нем
     cbb.OnAction = "Fname"  ' назначение функции
'другие доступные свойства
'и т.д по другим добавляемым элементам-можно применять блок With по каждому элементу
End With
...............


В своей практике не задавал другие свойства (кроме BeginGroup и Visible)-вполне устраивали "умолчательные"
При написании кода,ввода имени элемента и точки(".") раскроется список в котором перечислены доступные свойства (считаю задавать цвет текста и фона,шрифт,его размер и т.д излишней "красивостью")
И еще, стесняюсь спросить: а зачем цикл For(перебор ВСЕХ элементов формы)если процедура назначена конкретному элементу и имя его известно?
...
Рейтинг: 0 / 0
29.06.2019, 13:24
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831887
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuДолжно быть так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
..................
With CB
   Set cbb = .Controls.Add(1) 'добавление элемента управления в CB-1 это кнопка
     cbb.Caption = "копировать" 'надпись  на добавляемом элементе
     cbb.FaceId = 9996       'иконка на нем
     cbb.OnAction = "Fname"  ' назначение функции
'другие доступные свойства
'и т.д по другим добавляемым элементам-можно применять блок With по каждому элементу
End With
...............


Вы же сами дали ссылку, где приводится пример того как я делала, только разница лишь в применении .BeginGroup = True. Кстати приняла к сведению и сделала по той же аналогии.



sdkuВ своей практике не задавал другие свойства (кроме BeginGroup и Visible)-вполне устраивали "умолчательные"
Так а я и делаю "умолчательные".

sdku2. В With по CB .Controls.Add msoControlButton-встречается 14 раз + ComboBox несколько раз-Вы хотите добавить столько элементов?


sdkuПри написании кода,ввода имени элемента и точки(".") раскроется список в котором перечислены доступные свойства
Речь идет не о свойствах типа Caption, FaceId, и т.д., а о типе контрола: Button, comboBox, toggleButton, splitButton, gallery и т.д.
Есть файл екселевский с ID-ными контролами. Брала по ссылке из темы опубликованной где то здесь на форуме.

sdku(считаю задавать цвет текста и фона,шрифт,его размер и т.д излишней "красивостью")
Ну это на ваш взгляд так. А я хочу вывести в контекстное меню все кнопки для форматирования текста, по причине того, что форма всплывающая и в акссесе 2010 кнопки на панеле управления становятся не активными, если форма создана всплывающим окном. Возможно в 2007 это не так и с этим проблемы нет.

sdkuИ еще, стесняюсь спросить: а зачем цикл For(перебор ВСЕХ элементов формы)если процедура назначена конкретному элементу и имя его известно?
Я перебираю контролы на форме, чтобы контекстное меню применялось только к определенному полю RTF. К другим полям, и же к самой форме я хочу применять другое контекстное меню.
Или вы хотите сказать что я просто что то делаю не правильно?

sdku1.Вы так и не ответили на ворос:
sdku...при открытии формы Form1 её полю назначается контекстное меню такого-то вида
Сорри... Вот для этого я и перебираю контролы, чтобы для нужного поля назначить свое контекстное меню.
...
Рейтинг: 0 / 0
29.06.2019, 16:31
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831889
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
Блин картинки не загрузились.
nataxa23Вы же сами дали ссылку, где приводится пример того как я делала, только разница лишь в применении .BeginGroup = True. Кстати приняла к сведению и сделала по той же аналогии.

картинка1

nataxa23sdku2. В With по CB .Controls.Add msoControlButton-встречается 14 раз + ComboBox несколько раз-Вы хотите добавить столько элементов?
картинка2
...
Рейтинг: 0 / 0
29.06.2019, 16:36
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831915
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuДолжно быть так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
..................
With CB
   Set cbb = .Controls.Add(1) 'добавление элемента управления в CB-1 это кнопка
     cbb.Caption = "копировать" 'надпись  на добавляемом элементе
     cbb.FaceId = 9996       'иконка на нем
     cbb.OnAction = "Fname"  ' назначение функции
'другие доступные свойства
'и т.д по другим добавляемым элементам-можно применять блок With по каждому элементу
End With
...............



 
Решила последовать вашему примеру и сделать так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
Option Compare Database
Option Explicit

Sub MyShortcutMenuForControlFormatRTF(frm As Form, ctl As Control)
  Dim MenuName As String
  Dim CB As CommandBar
  Dim CBB As CommandBarButton

On Error GoTo ErrNumber
  MenuName = "vbaShortCutMenuControlFormatRTF"
On Error Resume Next
  Application.CommandBars(MenuName).Delete
On Error GoTo 0
  Set CB = Application.CommandBars.Add(MenuName, msoBarPopup, False, False)
  
  Set CBB = CB.Controls.Add(msoControlButton, 21, , , True) 'Вырезать
  Set CBB = CB.Controls.Add(msoControlButton, 19, , , True) 'Копировать
  Set CBB = CB.Controls.Add(msoControlButton, 22, , , True) 'Вставить
'--------------
  Set CBB = CB.Controls.Add(msoControlButton, 113, , , True) 'Полужирный
      CBB.BeginGroup = True
  Set CBB = CB.Controls.Add(msoControlButton, 114, , , True) 'Курсив
  Set CBB = CB.Controls.Add(msoControlButton, 115, , , True) 'Подчеркнутый
'--------------
  Set CBB = CB.Controls.Add(msoControlButton, 120, , , True) 'Текст по левому краю
      CBB.BeginGroup = True
  Set CBB = CB.Controls.Add(msoControlButton, 122, , , True) 'Текст по центру
  Set CBB = CB.Controls.Add(msoControlButton, 121, , , True) 'Текст по правому краю


'-------------- ошибка
  Set CBB = CB.Controls.Add(msoControlSplitButtonPopup, 3076, , , True) 'Цвет текста
      CBB.BeginGroup = True
  Set CBB = CB.Controls.Add(msoControlSplitButtonPopup, 3077, , , True) 'Цвет заливки фона
  Set CBB = CB.Controls.Add(msoControlSplitButtonPopup, 14205, , , True) 'Изменить цвет заливки/фона
'-------------- ошибка
  Set CBB = CB.Controls.Add(msoControlComboBox, 1728, , , True) 'Шрифт
  Set CBB = CB.Controls.Add(msoControlComboBox, 1731, , , True) 'Размер


'--------------
  Set CBB = CB.Controls.Add(msoControlButton, 12, , , True) 'Маркеры
      CBB.BeginGroup = True
  Set CBB = CB.Controls.Add(msoControlButton, 11, , , True) 'Нумерация
'--------------
  Set CBB = CB.Controls.Add(msoControlButton, 3507, , , True) 'Увеличить отступ
      CBB.BeginGroup = True
  Set CBB = CB.Controls.Add(msoControlButton, 3508, , , True) 'Уменьшить отступ
  
  
  frm.Controls.Item(ctl.Name).ShortcutMenuBar = MenuName
  
ExitHeare:
  Set CB = Nothing
  Set CBB = Nothing
Exit Sub

ErrNumber:
  If Error <> 0 Then
    MsgBox Err.Description, , _
      "№ " & Err.Number & ". Процедура: MyShortcutMenuForControlFormatRTF. Модуль: Module1"
    Resume ExitHeare
  End If
End Sub



Результат нулевой, в чем ошибка то???
...
Рейтинг: 0 / 0
29.06.2019, 18:10
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831921
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23,
...
Рейтинг: 0 / 0
29.06.2019, 18:28
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831923
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
проверьте подключение библиотеки Office и каждый добавляемый элемент должен иметь свое имя и быть объявлен DIMом в процедуре,а само меню в разделе описаний модуля
...
Рейтинг: 0 / 0
29.06.2019, 18:33
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831945
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuпроверьте подключение библиотеки Office
Библиотека Office подключена.
sdkuа само меню в разделе описаний модуля
Объявлять «CB As Office.CommandBar» в разделе описаний модуля тоже не вижу смысла, все равно выдается ошибка в процедуре на тех же строках.

Вы в своем примере, спасибо за потраченное время, но вы приводите кнопки, которые у меня уже и так выводятся без ошибок и прекрасно работают - я выкладывала скриншот. Я не знаю как еще сказать?
Я не могу определить тип для добавляемого элемента такого как: шрифт, размер шрифта, цвет текста, фон заливки. Это должны быть не « msoControlButton », а какой-то другой тип – это и вызывает ошибку.
sdkuкаждый добавляемый элемент должен иметь свое имя и быть объявлен DIMом
Если я правильно понимаю примеры, приведенные по вашей же ссылке, то совсем не обязательно объявлять Dim-мами такое количество переменных, достаточно одной переменной « CBB As CommandBarButton » для « msoControlButton ».
Код: vbnet
1.
2.
3.
  Set CBB = CB.Controls.Add(msoControlButton, 21, , , True) 'Вырезать
  Set CBB = CB.Controls.Add(msoControlButton, 19, , , True) 'Копировать
  Set CBB = CB.Controls.Add(msoControlButton, 22, , , True) 'Вставить


Другое дело объявить, например переменную « CBC As CommandBarComboBox » для такого типа как « msoControlComboBox ».
Код: vbnet
1.
2.
  Set CBB = CB.Controls.Add(msoControlComboBox, 1728, , , True) 'Шрифт
  Set CBB = CB.Controls.Add(msoControlComboBox, 1731, , , True) 'Размер


Правда пробовала делать так, ошибки не возникает, элементы отображаются в КонтМеню, но например, при попытке раскрыть список размера шрифта, тогда виснет акссес или вообще падает.

Так же я не знаю какой определить тип для: Цвет текста, Цвет заливки фона, Изменить цвет заливки/фона?
Они явно не « msoControlButton ». Но нигде примеров для этих элементов я не могу никак найти.
...
Рейтинг: 0 / 0
29.06.2019, 20:01
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831954
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
nataxa23 Другое дело объявить, например переменную «CBC As CommandBarComboBox»....
Но затем у Вас идет Set CBB = ...., а не Set CBC = ....

Опечатка?
...
Рейтинг: 0 / 0
29.06.2019, 20:51
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831958
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
__MichelleНо затем у Вас идет Set CBB = ...., а не Set CBC = ....

Опечатка?
Нет не опечатка. Просто я не выкладывала уже код, где пыталась использовать «CBC As CommandBarComboBox» для такого типа как «msoControlComboBox». Мне достаточно было просто протестить поэкспериментировав.
...
Рейтинг: 0 / 0
29.06.2019, 21:05
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831960
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23Объявлять «CB As Office.CommandBar» в разделе описаний модуля тоже не вижу смысла, все равно выдается ошибка в процедуре на тех же строках.особенно если учесть что переменная СВ фигурирует в обработке закрытия формы
nataxa23Я не могу определить тип для добавляемого элемента такого как: шрифт, размер шрифта, цвет текста, фон заливки. Это должны быть не « msoControlButton », а какой-то другой тип – это и вызывает ошибку.В меню,даже если и выглядит строкой, это кнопка (msoControlButton) с надписью (свойство caption). A свойство OnAction назначает кнопке некую процедуру которая выполнит какое-то действие. У меня сложилось впечатление что вот этот момент Вы недопонимаете.
nataxa23Если я правильно понимаю примеры, приведенные по вашей же ссылке, то совсем не обязательно объявлять Dim-мами такое количество переменных, достаточно одной переменной « CBB As CommandBarButton » для « msoControlButton ».Очень самоуверенно.
Стесняюсь спросить: а какой СВВ,какую и как Вы будете назначать процедуру
Вывод меню с рядом кнопок для которых не назначены действия-зачем такое меню? Создать и вывести меню это пол дела-вторая половина это "научить" его выполнять какие-то действия. Какой бы Вы не задали тип эл.управления без назначения ему процедуры(функции) при щелчке мышом на нем ничего не произойдет(разве что меню закроется).Этот момент Вы упорно не хотите понять.nataxa23Правда пробовала делать так, ошибки не возникает, элементы отображаются в КонтМеню, но например, при попытке раскрыть список размера шрифта, тогда виснет акссес или вообще падает.Список размеров шрифта-это просто подменю
В сети море материала по меню-изучайте
"Не все так просто,как кажется"
...
Рейтинг: 0 / 0
29.06.2019, 21:24
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831961
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
Да, на счет ошибки, какая вылазиет:
ссылка
...
Рейтинг: 0 / 0
29.06.2019, 21:25
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831965
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuСтесняюсь спросить: а какой СВВ,какую и как Вы будете назначать процедуру
Я не собираюсь назначать свою процедуру на кнопку уже существующую от майкрософта по умолчанию. Она уже им создана, я указываю в строке ее ID, например 21 по умолчанию эта кнопка срабатывает как команда вырезать выделенный кусок текста:
Set CBB = CB.Controls.Add(msoControlButton, 21, , , True) 'Вырезать

sdkuВывод меню с рядом кнопок для которых не назначены действия-зачем такое меню? Создать и вывести меню это пол дела-вторая половина это "научить" его выполнять какие-то действия. Какой бы Вы не задали тип эл.управления без назначения ему процедуры(функции) при щелчке мышом на нем ничего не произойдет(разве что меню закроется).Этот момент Вы упорно не хотите понять.
Так подождите, я вывожу ряд кнопок, с ID-ами по умолчанию от майкрософта: жирный, курсив и т.д. Они же работают и св-во «OnAction» я им не назначаю. Все работает так же как если бы нажимали кнопки на панеле управления, сделанные майкрософтом.
Если я правильно понимаю, это свойство (OnAction) я бы назначала, если бы у меня была своя процедура и мне требовалось чтобы код отработал непосредственно в ней.

sdkuВ меню,даже если и выглядит строкой, это кнопка (msoControlButton) с надписью (свойство caption). A свойство OnAction назначает кнопке некую процедуру которая выполнит какое-то действие. У меня сложилось впечатление что вот этот момент Вы недопонимаете.
Св-во «OnAction» работает, если Вы хотите именно свою процедуру повесить на свою же кнопку - не на майкрософтскую.
 
Вот пример, где я создавала контекстное меню для отчета свою кнопку - не майкрософтскую
Код: vbnet
1.
2.
3.
4.
5.
    Set CBB = CB.Controls.Add(1) 'Экспорт в PDF
    CBB.BeginGroup = True
    CBB.Caption = "Экспорт в PDF"
    CBB.FaceId = 362 'стандартная пиктограмка 12951
    CBB.OnAction = "ОткрытьОтчетВ_pdf"


...
Рейтинг: 0 / 0
29.06.2019, 21:55
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831967
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23,
посмотрите весь топик 15209146
так что ACCESS "непрерывно улучшается" и в последних версиях я не вижу вариантов кроме создания пользовательского (лично для меня qwerty 112 авторитет)
И вопрос:а зачем нам "не местным" ACCESS аж 64 разрядный? (в программировании возникают проблемы. WIN 64 понимаю,но OFFICE....)
...
Рейтинг: 0 / 0
29.06.2019, 22:04
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831972
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuСписок размеров шрифта-это просто подменю
Не совсем согласна с вами.
Есть у меня один примерчик, который я тоже нарыла здесь на форуме, но разобраться не совсем смогла, не могу понять почему у меня 2 кнопки (шрифт и размер) не получается реализовать, а там все работает.
Выкладываю в разных версиях.
...
Рейтинг: 0 / 0
29.06.2019, 22:13
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831978
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23,
а Вы посмотрите,в примере, на значение по умолчанию группы
...
Рейтинг: 0 / 0
29.06.2019, 23:10
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831981
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
И как бы "разжиться" ID
...
Рейтинг: 0 / 0
29.06.2019, 23:23
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39831983
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
вдогонку:а группу можно и убрать,оставив строку myBar.ShowPopup и удалить блок Select
...
Рейтинг: 0 / 0
29.06.2019, 23:34
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832012
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkunataxa23,
а Вы посмотрите,в примере, на значение по умолчанию группы
Давайте так, если вы хотите помочь, приведите пример текста на что смотреть, на какую строку и т.д. А так это не помощь, а обычная переписка туда-сюда – динамо – помочь не помогаю, но и в помощи не отказываю. Я со своей стороны предоставила все что могла, а вы ходите наводящими предложениями вокруг да около. Пытаетесь умничать, а помочь не помогаете.
sdkuИ как бы "разжиться" ID
Что подразумевается по этой фразой, я не понимаю – без комментариев.
sdkuвдогонку:а группу можно и убрать,оставив строку myBar.ShowPopup и удалить блок Select
В моем случае строку «myBar.ShowPopup» я не знаю как применить, потому что я делаю процедуру в отдельном модуле который загружается не в момент клика правой мышки на поле rtf а один раз в событии Form_Load. Лично мне не понятно к чему ее прикручивать?
Выкладываю пример с кнопками, которых не хватает. В примере в моей версии 2010 акса видно, что 2 кнопки: цвет текста и фон заливки недоступны, а 2 кнопки: шрифт и размер работают косячно. Пример сделан по образу и подобию примера, который я выложила в посте ранее.
Вывод, что в моем коде, что в коде на основе выложенного примера, 4 кнопки, так и не реализованы. Кто может помочь разобраться жду помощи.
...
Рейтинг: 0 / 0
30.06.2019, 11:26
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832021
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
-свойство поля формат текста-формат RTF
-если меню выводится командой отличной от myBar.ShowPopup combo не отразится(а в примере значение по умолчанию 2)
...
Рейтинг: 0 / 0
30.06.2019, 13:27
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832022
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
...
Рейтинг: 0 / 0
30.06.2019, 13:28
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832029
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdku https://www.sql.ru/forum/actualfile.aspx?id=21917740] Приложенный файл (Безымянный.jpg - 17Kb)
Теперь понятно, ну а с кнопками цвет текста, цвет заливки я так понимаю вообще не судьба.

Теперь еще такой момент заметила, что в вашем примере, а так же у себя, если использовать ShowPopup, то при нажатии правым кликом несколько раз кон.меню то работает нормально, то отображает кнопки неактивными. Не знаю почему, но в примере, который скачанный здесь на форуме такого нет.
...
Рейтинг: 0 / 0
30.06.2019, 14:28
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832051
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23Теперь понятно, ну а с кнопками цвет текста, цвет заливки я так понимаю вообще не судьба.А Вы знаете ID этих команд (именно это я имел ввиду говоря "разжиться"-как узнать)-добавление кнопок,по моему,не вызовет проблем.nataxa23Теперь еще такой момент заметила, что в вашем примере, а так же у себя, если использовать ShowPopup, то при нажатии правым кликом несколько раз кон.меню то работает нормально, то отображает кнопки неактивными. На моем компьютере такого не наблюдается.
Если в поле набрать текст,а затем выделить его мышом, то по окончании действия появляется малоконтрастная панелька при наведении на которую курсора она нормально отображается-может она Вас устроит (без какого либо кода)
...
Рейтинг: 0 / 0
30.06.2019, 15:45
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832055
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Цвет шрифта в тбл. хранится, а вот цвет заливки....
...
Рейтинг: 0 / 0
30.06.2019, 16:02
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832072
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuА Вы знаете ID этих команд (именно это я имел ввиду говоря "разжиться"-как узнать)-добавление кнопок,по моему,не вызовет проблем.
Я выкладывала екселевский файл «AccessControls.xlsx» 21917504 - это список всех ID, брала здесь 15211644
sdkuНа моем компьютере такого не наблюдается.
А вы попробуйте несколько раз понажимать правым кликом в поле.
Мне кажется это связано с тем, что при каждом клике мышом происходит отработка процедуры удаления затем создания конт.меню согласно коду в процедуре. Кода я использовала «ShortcutMenuBar» и вешала в событие «Form_Load», такого эффекта не было, потому что в этом случае кон.меню загружается только один раз при открытии формы. А здесь происходит постоянное удаление потом создание кон.меню каждый раз как только кликаешь мышью.
sdkuЕсли в поле набрать текст,а затем выделить его мышом, то по окончании действия появляется малоконтрастная панелька при наведении на которую курсора она нормально отображается-может она Вас устроит (без какого либо кода)
Вы имеете ввиду мини-панель инструментов форматирования? См.скрин.
Честно говоря для меня она ОЧЕНЬ неудобна. Она всплывает, когда выделяется текст и лично мне всегда только лишь мешается.
Вообще, честно говоря, в идеале хочется на форме сделать кнопки (хотя бы минимальные типа Ж / К / Ч , текст слева/по центру/справа) и пользоваться ими, но в аксесе я сомневаюсь что такое возможно.
sdkuЦвет шрифта в тбл. хранится, а вот цвет заливки....
Не знаю, мне казалось, что ID контролы майкрософта отвечают за уже "готовые" кнопки так сказать. Используя эти id-ки мы отображаем майкрософтские кнопки по умолчанию.
...
Рейтинг: 0 / 0
30.06.2019, 17:33
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832075
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkuНа моем компьютере такого не наблюдается.
Я разобралась почему кон.меню то с доступными кнопками, то нет. Хочу убедиться на вашем акссесе.
В примере в Параметрах Access -> Текущая база данных -> Параметры окна документа выбрано " Перекрывание окон ". А в свойствах формы на вкладке "Другие" всплывающее окно установлено - " Нет ".
Я обычно использую " Вкладки " в параметрах для текущей базы и если требуется чтобы форма была всплывающая, я обычно пользуюсь свойством формы Всплывающее окно - " Да ".

sdku, Вы можете проверить на вашем же последнем примере, установите в свойствах формы на вкладке другие - "Да". Запустите форму и попробуте пощелкать пару раз правым кликом мышки в поле даже если текст выделен.
...
Рейтинг: 0 / 0
30.06.2019, 18:55
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832080
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nataxa23,
А если окно модальное,то такого не наблюдается
И еще мне вспоминается фраза,которую слышал не помню где и когда:"Создай программу которой сможет пользоваться даже дурак и только он и будет ей пользоваться"
(любой программный продукт(или изделие сложней счетных палочек) это компромис между множеством факторов-создать что-то идеальное не удастся:считаю что штатных средств вполне достаточно и с небольшими неудобствами(по Вашему)можно вполне смирится предпочтя мощь сравнительно простой и очень доступной СУБД)
За сим позвольте откланяться.
Успехов в воплощении всех Ваших "хотелок"
...
Рейтинг: 0 / 0
30.06.2019, 19:33
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832086
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdkunataxa23,
А если окно модальное,то такого не наблюдается
И еще мне вспоминается фраза,которую слышал не помню где и когда:"Создай программу которой сможет пользоваться даже дурак и только он и будет ей пользоваться"
(любой программный продукт(или изделие сложней счетных палочек) это компромис между множеством факторов-создать что-то идеальное не удастся:считаю что штатных средств вполне достаточно и с небольшими неудобствами(по Вашему)можно вполне смирится предпочтя мощь сравнительно простой и очень доступной СУБД)
За сим позвольте откланяться.
Успехов в воплощении всех Ваших "хотелок"
Мда, вот и проси после этого человека просто проверить свою догадку. Вместо этого услышишь кучу непонятной критики в свой адрес. Не хотите разобраться и понять ну и не надо.
...
Рейтинг: 0 / 0
30.06.2019, 19:59
| Ответить | Цитировать | Написать  
Контекстное меню для поля RTF
    #39832088
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
sdku, я надеюсь моя просьба задела вас не по причине того, что я попросила вас проверить свою догадку на вашем примере?
Я свою догадку обнаружила на примере, который выложила здесь в посте, взятого с этого же форума. Т.е. дело не в вашем примере конкретно, а в настройках самого Access, я надеюсь это понятно. И мне было интересно это проверить именно на вашей 2007 версии.
А по сему раз нет, так нет.
...
Рейтинг: 0 / 0
30.06.2019, 20:10
| Ответить | Цитировать | Написать  
35 сообщений из 35, показаны все 2 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Контекстное меню для поля RTF
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1610626]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 13ms
total:  156ms
созд. / загр.: 156ms
x
x
Закрыть


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