Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.145.156.46] |
|
Сообщ.
#1
,
|
|
|
С Новым Годом!
Полгода никто кроме меня новых тем не создаёт Хотя и я последнюю тему создавал квартал назад... Грустно Ковыряюсь сейчас с TreeView. Наверно рано или поздно разгребу сам, но ведь есть повод попытаться вдохнуть сюда жизнь. Итак, есть проект с контролом TreeView. Всё прекрасно работало в офисе 2003. Потом пришёл офис 2010 64bit, в котором TreeView нету Скачал здесь самодельный TreeView. Мне весь суперфункцонал не нужен. Так что взял простой ВАРИАНТ1. Собственно проблема: в моей программе правый клик по узлу дерева отображал меню, а левый добавлял команду. Т.е. программа различала какой клик сделан. см. вложение №1 Там два TreeView на одной форме: ВАРИАНТ1 от Сергей Кр и оригинальный от Microsoft. Первый реагирует только на левый клик мыши (правый - игнорится). У второго реально реализовать определение, какой клик мыши был: правый или левый. Покликайте, снизу будет написано что как. Далее запустил ВАРИАНТ2 от Сергей Кр и оппа: он понимает правый клик, отличает его и показывает своё меню. См. вложение №2. Как бы мне доработать ВАРИАНТ1, чтобы он тоже начал реагировать на правый клик? Я что-то пока туплю. Не отошёл ещё от НГ Прикреплённый файлTreeView.rar (258,46 Кбайт, скачиваний: 82) |
Сообщ.
#2
,
|
|
|
Как обычно сам спрашиваю, сам отвечаю
Давно не делал, совсем забыл как класс выглядит В данном случае 'в заголовок класса 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) |
Сообщ.
#3
,
|
|
|
Спасибо.
Это находка для office х64 |