TreeView в офисе 2010 64 bit , Разбираюсь с самодельным контролом TreeViewNEW

[SV()]

С Новым Годом!

Полгода никто кроме меня новых тем не создаёт
Хотя и я последнюю тему создавал квартал назад...
Грустно

Ковыряюсь сейчас с TreeView.
Наверно рано или поздно разгребу сам, но ведь есть повод попытаться вдохнуть сюда жизнь.


Итак, есть проект с контролом TreeView.
Всё прекрасно работало в офисе 2003.
Потом пришёл офис 2010 64bit, в котором TreeView нету

Скачал здесь самодельный TreeView.
Мне весь суперфункцонал не нужен. Так что взял простой ВАРИАНТ1.

Собственно проблема: в моей программе правый клик по узлу дерева отображал меню, а левый добавлял команду.
Т.е. программа различала какой клик сделан.
см. вложение №1
Там два TreeView на одной форме: ВАРИАНТ1 от Сергей Кр и оригинальный от Microsoft. Первый реагирует только на левый клик мыши (правый - игнорится). У второго реально реализовать определение, какой клик мыши был: правый или левый. Покликайте, снизу будет написано что как.

Далее запустил ВАРИАНТ2 от Сергей Кр и оппа: он понимает правый клик, отличает его и показывает своё меню. См. вложение №2.

Как бы мне доработать ВАРИАНТ1, чтобы он тоже начал реагировать на правый клик?


Я что-то пока туплю. Не отошёл ещё от НГ


Прикреплённый файлTreeView.rar (258,46 Кбайт, скачиваний: 82)

[SV()]

Как обычно сам спрашиваю, сам отвечаю

Давно не делал, совсем забыл как класс выглядит
В данном случае

'в заголовок класса TreeViewNew
Public Event NodeRightClick(Node As NodeNEW)
'в том-же классе, функция "Uknown" в первый select case строчку
Case "NodeEventRightClick":    RaiseEvent NodeRightClick(oNode)
'в классе NodeNEW, в функции myLabel_MouseUp добавить ветвление для Button=2
ElseIf Button = 2 Then
  Callback.Unknown PropertyLet:="NodeEventRightClick", oNode:=Me
End if
 
'и вуаля, можно в коде формы писать
Private Sub TreeView1_NodeRightClick(Node As NodeNEW)
Label5.Caption = "Правый клик на узле " & Node.Text
End Sub

Куда все подевались?
Прикреплённый файлTreeViewNEW.rar (69,63 Кбайт, скачиваний: 161)

[mottura]

Спасибо.
Это находка для office х64