TreeView
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- Chuvak
- Продвинутый пользователь
- Сообщения: 102
- Зарегистрирован: 11.03.2003 (Вт) 8:39
- Откуда: Russia, Ozёrsk
- Chuvak
- Продвинутый пользователь
- Сообщения: 102
- Зарегистрирован: 11.03.2003 (Вт) 8:39
- Откуда: Russia, Ozёrsk
- alibek
- Большой Человек
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 01.04.2003 (Вт) 14:40
Можно, например, так:
- Код: Выделить всё
Dim C As Long, N As Node
Set N = tvwMain.Nodes(...)
C = 0
Do Until N.Parent Is Nothing
Set N = N.Parent
C = C + 1
Loop
Set N = Nothing
MsgBox "Число 'родителей' - " & C
Lasciate ogni speranza, voi ch'entrate.
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот, Yandex-бот и гости: 9