Элемент формы (ActiveX) не поддерживает контекстное меню
Автор Administrator
24.08.2001 г.
Есть способ. Всем пиво :))
igor 11.07.2001
Контекстное меню Я использую компонент ActiveX-TreeView. Мне необходимо на нем активировать контекстное меню. А у него нет свойства ShortcutMenuBar. Может посоветуете что-нибудь, как активировать контекстное меню. Заранее спасибо.
silich 11.07.2001
ShowPopup ... для того, чтобы вывести контекстное меню для элемента управления, не имеющего этого свойства (например ActiveX TreeView) можно воспользоваться методом
ShowPopup
сам ещё не пробовал :)) сделаешь - расскажешь о результатх?
Marat 12.07.2001
Силич, твой ShowPopup прекрасно работает. Надо делать событие на клик левой клавишей, даю пример:
Private Sub tvCompanies_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long) Dim myBar As CommandBar
If Button = acRightButton Then
Set myBar = CommandBars("tvpopup") myBar.ShowPopup End If End Sub
Надо только подключить библиотеку: Microsoft Office 8.0 Object Library (для 97-go).
Ольга 12.07.2001
А вам c Silich`ем спасибо за ShowPopup :-) Я даже не нашла, где про него написано, но работает ;-)
А вот Access у меня ругался на отсутствие типа CommandBar (почему-то). Правда, с успехом прошло