Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView / 4 сообщений из 4, страница 1 из 1
17.12.2005, 19:52:30
    #33442554
Angel-K
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
Друзья, помогите начинающему по Visual Basic 6.0 !
На форме имеется 2 элемента: DirListBox и TreeView .
Каким образом отобразить все содержимое DirListBox в ЭУ TreeView , учитывая иерархию и расположение папок ? Как осуществить операцию, когда щелкаешь мышом по элементу (с именем папки) в TreeView - при этом открыватся эта же папка в проводнике Windowsa?
Ну буду очень признателен за ответ (желательно с примером)?
Заранее благодарен!
...
Рейтинг: 0 / 0
17.12.2005, 21:59:31
    #33442622
Angel-K
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
Хм... ну кажется на первую часть вопроса я нашел ответ. Кому интересно:

Следующая функция позволяет добавлять пункты в TreeView используя полный путь вместо того, чтобы добавлять каждый элемент дерева в отдельности:

Public Sub AddPathToTree(Tree As TreeView, Path As String)
Dim PathItem As String
Dim NewItem As String
Dim PathLen As Integer
Dim c As String * 1
Dim i As Integer

'Добавляем обратный слэш в качестве разледителя
If Right$(Path, 1) <> "\" Then Path = Path & "\"

PathLen = Len(Path)

'Ищем в полном пути обратные слэши
For i = 1 To PathLen
c = Mid$(Path, i, 1)

If c = "\" Then
If PathItem = "" Then
'Добавляем корневую ветвь в дерево
On Error Resume Next
Tree.Nodes.Add , , "\" & NewItem, NewItem
PathItem = "\" & NewItem
Else
'Добавляем следующую дочернюю ветвь
Tree.Nodes.Add PathItem, tvwChild, PathItem _
& "\" & NewItem, NewItem
PathItem = PathItem & "\" & NewItem
End If
NewItem = ""
Else
NewItem = NewItem & c
End If
Next i
End Sub

Теперь при вызове этой функции достаточно в качестве параметра передать ей полный путь. Все необходимые ветви (если они ещё не существуют) будут добавлены автоматически:

AddPathToTree TreeView1, _
"RootLevel\Child1\Child2\Child3\Child4"
...
Рейтинг: 0 / 0
17.12.2005, 22:03:55
    #33442625
Angel-K
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
А вообще я вижу, что помощь сам нашел... все проблемы решились по аналогичному вопросу, смотрите сюда: http://]http://forum.sources.ru/index.php?showtopic=104275&view=showall&hl=treeview
...
Рейтинг: 0 / 0
17.12.2005, 22:06:28
    #33442628
Angel-K
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView
Всем огромнейшее спасибо за внимание и подсказки... !!! ;)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / TreeView / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]