Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2018, 12:07   #1
islan
Пользователь
 
Регистрация: 18.10.2018
Сообщений: 10
По умолчанию События элемента TreeView

Я использую на форме ACCESS элемент управления TreeView. Среди событий, которые можно выбрать в свойствах, только следующие:
При обновлении, Вход, Выход, Получение фокуса, Потеря фокуса.
Мне же нужно событие выбора узла (AfterSelect или NodeClick).
Помогите, пожалуйста.
islan вне форума Ответить с цитированием
Старый 16.11.2018, 19:05   #2
Eugene-LS
Пользователь
 
Аватар для Eugene-LS
 
Регистрация: 23.02.2018
Сообщений: 78
По умолчанию

Цитата:
Сообщение от islan Посмотреть сообщение
Мне же нужно событие выбора узла (AfterSelect или NodeClick).
Полагаю ручками нужно вписывать ...
Код:
Private Sub objTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
Ещё несколько событий, что сам пользую в одном из приложений ...
Код:
Private Sub objTreeView_Collapse(ByVal objNode As Object)
Private Sub objTreeView_dblClick()
Private Sub objTreeView_Expand(ByVal objNode As Object)
Private Sub objTreeView_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
Private Sub objTreeView_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
Private Sub objTreeView_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Private Sub objTreeView_OLEDragOver(Data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Вот сылла в помощь:
https://yandex.ru/search/?text=vba%2...3&clid=2186620
Eugene-LS вне форума Ответить с цитированием
Старый 20.11.2018, 09:45   #3
islan
Пользователь
 
Регистрация: 18.10.2018
Сообщений: 10
По умолчанию

[QUOTE=Eugene-LS;1758355]Полагаю ручками нужно вписывать ...
Код:
Private Sub objTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
После такой вставки выдается следующее сообщение:

Выражение NodeClick, введенное в поле свойства события, вызывает ошибку: Procedure declfration does not match description of event or procedure having the same name.

Что при этом делать, я не знаю.
islan вне форума Ответить с цитированием
Старый 20.11.2018, 10:24   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Там написано что не совпадает декларация с описанием события с таким же именем

У меня NodeClick так записан
Код:
Private Sub tvOrders_NodeClick(ByVal Node As Object)
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 20.11.2018, 10:35   #5
islan
Пользователь
 
Регистрация: 18.10.2018
Сообщений: 10
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Там написано что не совпадает декларация с описанием события с таким же именем

У меня NodeClick так записан
Код:
Private Sub tvOrders_NodeClick(ByVal Node As Object)
У меня NodeClick так записан
Код:


Private Sub tvOrders_NodeClick(ByVal Node As Object)

Последний раз редактировалось islan; 20.11.2018 в 10:37. Причина: Ошибка при цитировании
islan вне форума Ответить с цитированием
Старый 20.11.2018, 10:38   #6
islan
Пользователь
 
Регистрация: 18.10.2018
Сообщений: 10
По умолчанию

Спасибо. Заработало!
islan вне форума Ответить с цитированием
Старый 21.11.2018, 20:41   #7
Eugene-LS
Пользователь
 
Аватар для Eugene-LS
 
Регистрация: 23.02.2018
Сообщений: 78
По умолчанию

Цитата:
Сообщение от islan Посмотреть сообщение
После такой вставки выдается следующее сообщение:
Выражение NodeClick, введенное в поле свойства события, вызывает ошибку: Procedure declfration does not match description of event or procedure having the same name.
Что при этом делать, я не знаю.
Если библиотека MSComctlLib к приложению не подключена то используем "Позднее Связывание", объявляя как Object, в прочем, так и лучше.
Тогда:
Код:
Private Sub ...(ByVal objNode As Object ...)

Последний раз редактировалось Eugene-LS; 21.11.2018 в 20:44.
Eugene-LS вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавление элемента в treeView Maray C# (си шарп) 6 24.08.2016 20:17
TreeView выделение элемента lu_una Общие вопросы Delphi 16 07.12.2012 07:26
Перехват события OnClick элемента СheckBox Ayubkhon Общие вопросы Delphi 1 31.05.2010 12:44
treeview переименование элемента alco84 Microsoft Office Access 4 20.04.2010 13:28
Выделение элемента в TreeView pu4koff Общие вопросы .NET 2 06.10.2008 13:07