Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как добавить иконку в контекстное меню Access 2007 / 24 сообщений из 24, страница 1 из 1
20.10.2014, 14:35
    #38781859
Георгий_Тарен
Георгий_Тарен
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить иконку в контекстное меню Access 2007
Делаю пользовательское контекстное меню (через макросы).
Как в него добавить иконки как в стандартном контекстно меню?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.10.2014, 21:58
    #38782289
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить иконку в контекстное меню Access 2007
Георгий_Тарен,

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

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

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

Очень заинтересовал Ваш пример только я не могу понять как к пункту меню привязать функцию
если можно пример с выполнение какого либо действия
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2014, 08:27
    #38787162
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить иконку в контекстное меню Access 2007
Код: 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
| Ответить | Цитировать | Написать  
28.10.2014, 13:47
    #38789263
Георгий_Тарен
Георгий_Тарен
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить иконку в контекстное меню Access 2007
simply,

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

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

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

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

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

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

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

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

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



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


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