ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как добавить иконку в контекстное меню Access 2007
24 сообщений из 24, страница 1 из 1
Как добавить иконку в контекстное меню Access 2007
    #38781859
Георгий_Тарен
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Георгий_Тарен
Гость
Делаю пользовательское контекстное меню (через макросы).
Как в него добавить иконки как в стандартном контекстно меню?
...
Рейтинг: 0 / 0
20.10.2014, 14:35
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38782289
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Георгий_Тарен,

во встроенном help-е есть примеры :)

 

Example
The following example sets the image and mask of the first CommandBarButton that the code returns. To make this work, create a mask image and a button image and substitute the paths in the sample with the paths to your images.

Sub ChangeButtonImage()
Dim picPicture As IPictureDisp
Dim picMask As IPictureDisp

Set picPicture = stdole.StdFunctions.LoadPicture( _
"c:\images\picture.bmp")
Set picMask = stdole.StdFunctions.LoadPicture( _
"c:\images\mask.bmp")

'Reference the first button on the first command bar
'using a With...End With block.
With Application.CommandBars.FindControl(msoControlButton)
'Change the button image.
.Picture = picPicture

'Use the second image to define the area of the
'button that should be transparent.
.Mask = picMask
End With
End Sub

The following example gets the image and mask of the first CommandBarButton that the code returns and outputs each of them to a file. To make this work, specify a path for the output files.

Sub GetButtonImageAndMask()
Dim picPicture As IPictureDisp
Dim picMask As IPictureDisp

With Application.CommandBars.FindControl(msoControlButton)
'Get the button image and mask of this CommandBarButton object.
Set picPicture = .Picture
Set picMask = .Mask
End With

'Save the button image and mask in a folder.
stdole.SavePicture picPicture, "c:\image.bmp"
stdole.SavePicture picMask, "c:\mask.bmp"
End Sub


...
Рейтинг: 0 / 0
20.10.2014, 21:58
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38782449
Георгий_Тарен
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Георгий_Тарен
Гость
Георгий_ТаренДелаю пользовательское контекстное меню (через макросы).
Это мне ни как не помогает!
В макрос код не засунеш
...
Рейтинг: 0 / 0
21.10.2014, 08:48
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38782636
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Георгий_ТаренГеоргий_ТаренДелаю пользовательское контекстное меню (через макросы).
Это мне ни как не помогает!
В макрос код не засунеш

а примерчик не выложите, как вы контекстное меню макросами создаете?
...
Рейтинг: 0 / 0
21.10.2014, 11:51
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38783250
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Посмотри, может подойдет......
Reference почисть только.
...
Рейтинг: 0 / 0
21.10.2014, 17:08
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38783254
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
...
Рейтинг: 0 / 0
21.10.2014, 17:11
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38783535
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Георгий_ТаренГеоргий_ТаренДелаю пользовательское контекстное меню (через макросы).
Это мне ни как не помогает!
В макрос код не засунеш

можно и "через макросы" (может уже simply такое и предложил ... accdb смотреть нечем) - см. контекстное меню формы
...
Рейтинг: 0 / 0
22.10.2014, 00:58
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38786486
Георгий_Тарен
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Георгий_Тарен
Гость
simply,

Очень заинтересовал Ваш пример только я не могу понять как к пункту меню привязать функцию
если можно пример с выполнение какого либо действия
...
Рейтинг: 0 / 0
24.10.2014, 11:48
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38787162
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Код: 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.
Option Compare Database
Option Explicit

Private WithEvents cbb As Office.CommandBarButton
Private WithEvents cbb2 As Office.CommandBarButton
Private cb As Office.CommandBar

Private Sub Form_Open(Cancel As Integer)
'Контекстное меню
 Set cb = Application.CommandBars.Add("CONTEXTMENU" & Me.hWnd, 5, , True)
 Set cbb = cb.Controls.Add(1, , , , True) '
     cbb.Caption = "RunTest"
     cbb.FaceId = 1660
 Set cbb2 = cb.Controls.Add(1, , , , True) '
     cbb2.Caption = "RunTest2"
     cbb2.FaceId = 1661
 Me.Form.ShortcutMenuBar = cb.Name
 End Sub

 'Здесь Ваша команда
  Private Sub cbb_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    MsgBox "Test OK"
End Sub

 ' Здесь Ваша команда
Private Sub cbb2_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    MsgBox "Test2 OK"
End Sub

Private Sub Form_Close()
    Set cbb = Nothing
    Set cbb2 = Nothing
    cb.Delete
    Set cb = Nothing
End Sub
...
Рейтинг: 0 / 0
25.10.2014, 08:27
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #38789263
Георгий_Тарен
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Георгий_Тарен
Гость
simply,

Огромное СПАСИБО!!!
...
Рейтинг: 0 / 0
28.10.2014, 13:47
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как добавить иконку в контекстное меню Access 2007
    #39137104
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
simply,

Добрый день!
В форме есть "Список", и должно контекстное меню появится на только на списке. В других областях не должно появится!
Скажите пожалуйста как это реализовать? или измененный пример выложите?
За ранее спасибо!
...
Рейтинг: 0 / 0
24.12.2015, 14:03
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39137300
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Посмотрите этот пример.Нажмите кнопку "изменение дерева" и выделите любой узел в дереве на СПИСКЕ.
...
Рейтинг: 0 / 0
24.12.2015, 16:04
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39137465
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
simply,

Спасибо за ответ, но это не то что ине нужно(

Смотрите на картинку тут если нажимаете правой кнопки мыши (везде в форме) то появится контекстное меню.
Мне нужно если я правой кнопки мыши нажимаю на "поле0" (Допустим есть поле0) должно появится, если на пустую форму нет.
Надеюсь Вы мне поняли.
...
Рейтинг: 0 / 0
24.12.2015, 18:00
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39137681
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Abisma2008В форме есть "Список", и должно контекстное меню появится на только на списке. В других областях не должно появится!
Скажите пожалуйста как это реализовать? или измененный пример выложите?
За ранее спасибо!
У контрола "список" есть свойство "Контекстное меню", его и надо использовать в вашем случае.
...
Рейтинг: 0 / 0
24.12.2015, 22:26
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39137832
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
guest_rusimportAbisma2008В форме есть "Список", и должно контекстное меню появится на только на списке. В других областях не должно появится!
Скажите пожалуйста как это реализовать? или измененный пример выложите?
За ранее спасибо!
У контрола "список" есть свойство "Контекстное меню", его и надо использовать в вашем случае.

Доброе утро!
Ваш пример с макросами, мне нужно в VB
Вот мой код:
Код: 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.
Option Compare Database
Option Explicit

Private WithEvents cbb1 As Office.CommandBarButton
Private WithEvents cbb2 As Office.CommandBarButton
Private WithEvents cbb3 As Office.CommandBarButton
Private WithEvents cbb4 As Office.CommandBarButton
Private cb As Office.CommandBar
Private Sub cbb1_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    MsgBox "Директор"
End Sub
Private Sub cbb2_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    MsgBox "Начальник"
End Sub
Private Sub cbb3_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    MsgBox "Менеджер"
End Sub
Private Sub cbb4_Click(ByVal ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    MsgBox "Просчетчик"
End Sub
Private Sub Form_Close()
    Set cbb1 = Nothing
    Set cbb2 = Nothing
    Set cbb3 = Nothing
    Set cbb4 = Nothing
    cb.Delete
    Set cb = Nothing
End Sub
Private Sub Form_Open(Cancel As Integer)
'Контекстное меню
 Set cb = Application.CommandBars.Add("CONTEXTMENU" & Me.Hwnd, 5, , True)
 Set cbb1 = cb.Controls.Add(1, , , , True)
     cbb1.Caption = "Ген. Директор (В. Анатолевич)"
     cbb1.FaceId = 607
 Set cbb2 = cb.Controls.Add(1, , , , True)
     cbb2.Caption = "Нач. производство (Джазгулья)"
     cbb2.FaceId = 362
 Set cbb3 = cb.Controls.Add(1, , , , True)
     cbb3.Caption = "Менеджер (Юлия)"
     cbb3.FaceId = 275
 Set cbb4 = cb.Controls.Add(1, , , , True)
     cbb4.Caption = "Просчетчик (Искандар)"
     cbb4.FaceId = 960
 Me.Form.ShortcutMenuBar = cb.Name
End Sub


И этот меню должно появится только на "Список0"
Спасибо!
...
Рейтинг: 0 / 0
25.12.2015, 10:05
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39138170
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Abisma2008,

Есть кто? помогите пожалуйста!
...
Рейтинг: 0 / 0
25.12.2015, 14:02
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39138200
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
Abisma2008, а что конкретно у вас не работает?
Нормальный код.
...
Рейтинг: 0 / 0
25.12.2015, 14:34
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39138203
непоймучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
непоймучка
Гость
Abisma2008И этот меню должно появится только на "Список0"

Код: vbnet
1.
2.
3.
4.
5.
'вместо строки
Me.Form.ShortcutMenuBar = cb.Name

'пишите строку
Me.Список0.ShortcutMenuBar = cb.Name
...
Рейтинг: 0 / 0
25.12.2015, 14:36
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39138207
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
непоймучка,
 
Не вынесла душа поэта... (с) :)
...
Рейтинг: 0 / 0
25.12.2015, 14:41
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39138378
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
непоймучкаAbisma2008И этот меню должно появится только на "Список0"

Код: vbnet
1.
2.
3.
4.
5.
'вместо строки
Me.Form.ShortcutMenuBar = cb.Name

'пишите строку
Me.Список0.ShortcutMenuBar = cb.Name



Спасибо Огромное!
Я понял где моя ошибка)
Всем остальным тоже благодарю за участия и помощь!
...
Рейтинг: 0 / 0
25.12.2015, 17:49
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как добавить иконку в контекстное меню Access 2007
    #39798244
SergeantTLT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeantTLT
Гость
Подскажите пожалуйста, а где можно ознакомиться с полным перечнем иконок? А то методом перебора шибко утомительно ознакамливаться))
Заранее спасибо за ответ.
...
Рейтинг: 0 / 0
08.04.2019, 16:14
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39798386
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
SergeantTLT,
тынц
...
Рейтинг: 0 / 0
08.04.2019, 19:33
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39798388
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
полнее списка не встречал
...
Рейтинг: 0 / 0
08.04.2019, 19:41
| Ответить | Цитировать | Написать  
Как добавить иконку в контекстное меню Access 2007
    #39798448
SergeantTLT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeantTLT
Гость
sdku,
Огромное спасибо!
...
Рейтинг: 0 / 0
08.04.2019, 23:52
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как добавить иконку в контекстное меню Access 2007
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39138378&tid=1610764]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 324ms
total:  461ms
созд. / загр.: 461ms
x
x
Закрыть


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