Элемент формы (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 (почему-то).
Правда, с успехом прошло

Dim myBar As Object



Просмотров: 6720

  Коментарии (1)
 1 Написал(а) den, в 12:15 29.07.2008
спасиибоооооо!!!!!!!!!! :) :) :) :) :) :) :) :) :) :)

Добавить коментарий
Имя:
E-mail
Коментарий:



Код:* Code