Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Дерево  [new]
molly_o
Member

Откуда:
Сообщений: 133
Добрый день! Подскажите пожалуйста, как обрабатывать событие клика по ветке? И ещё как кроме ключа можно запомнить id (например, ветри из базы) ветви для дальнейшего использования?
3 май 06, 13:00    [2624520]     Ответить | Цитировать Сообщить модератору
 Re: Дерево  [new]
MsDatabaseru
Member

Откуда: Hobby.MsDatabase.ru
Сообщений: 10938
в свойстве tag ноды можно хранить инфу. если надо несколько полей данных сохранять то можно черех текстовый разделитель а извлекать через сплит
3 май 06, 13:03    [2624538]     Ответить | Цитировать Сообщить модератору
 Re: Дерево  [new]
molly_o
Member

Откуда:
Сообщений: 133
Спасибо, а маленький примерчик в одну строку можно попросить? Как занести инфу и как извлечь.
3 май 06, 13:07    [2624570]     Ответить | Цитировать Сообщить модератору
 Re: Дерево  [new]
MsDatabaseru
Member

Откуда: Hobby.MsDatabase.ru
Сообщений: 10938
Set nodx = TV.Nodes.Add(IdParent, nodetype, "id" & rs("idnode"), rs("linkcaption")) ', RS!icon_num & "a")
nodx.tag = rs("idnode")


Private Sub Treeview1_NodeClick(ByVal Node As Object)
msgbox Node.tag
end sub

соответсвенно если надо несколько:
nodx.tag = rs("idnode") & ";" & rs("nodetype")

а извлекаем:
dim t
t = spit(nodx.tag , ";", , vbTextCompare)
ID = t(0)
Ntype = t(1)

разумеется необходимо выбрать такй разделитель который не может быть частью одного из перечисляемых полей
3 май 06, 14:16    [2624989]     Ответить | Цитировать Сообщить модератору
 Re: Дерево  [new]
molly_o
Member

Откуда:
Сообщений: 133
Большое спасибо, MSDatabaseru, вы не первый раз меня выручаете. А ещё вопрос: достаточно ли будет написать Private Sub Treeview1_NodeClick(ByVal Node As Object), чтобы обрабатывался клик, а то я не нашла в свойствах дерева события, на которое его повесить.
3 май 06, 16:45    [2625983]     Ответить | Цитировать Сообщить модератору
 Re: Дерево  [new]
MsDatabaseru
Member

Откуда: Hobby.MsDatabase.ru
Сообщений: 10938
ищите не в свойствах дерева а в VBE - сверху слева выпадающий список объектов формы (когда открыт модуль формы) а справа список событий
3 май 06, 16:48    [2626007]     Ответить | Цитировать Сообщить модератору
 Re: Дерево  [new]
molly_o
Member

Откуда:
Сообщений: 133
Спасибо, Вам ещё раз за помощь, а я об этом и не знала!!! Но я не прощаюсь, ещё приду за советами и подсказками.
3 май 06, 16:55    [2626070]     Ответить | Цитировать Сообщить модератору
 Re: Дерево  [new]
MsDatabaseru
Member

Откуда: Hobby.MsDatabase.ru
Сообщений: 10938
Картинка с другого сайта.
3 май 06, 17:27    [2626304]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить