VPF::Подскажите (дерево объектов) - Форум программистов

Naghual

Дата 29.6.2006, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Возьми за пример Коллекцию Nodes того-же TreeView.
Создай такую-же, но с небольшими изменениями для отличия Папок от Файлов.

--------------------

Я желаю всем Счастья!

WildS

Дата 29.6.2006, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 28.6.2006

Репутация: нет
Всего: нет

Цитата(Naghual @ 29.6.2006, 15:22)

Ты знаеш что такое коллекция вообще?

Нет, увы ...
Я сам учился basic'у и многого не знаю ... smile

Обьяснишь ?

Naghual

Дата 29.6.2006, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Тогда сначала изучи коллекции.

Добавлено @ 17:52
В твоей задаче без них никак не обойтись.

--------------------

Я желаю всем Счастья!

WildS

Дата 2.7.2006, 21:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 28.6.2006

Репутация: нет
Всего: нет

Почти сделал ...

Получается список файлов с помощью UnRar Control for VB6 (с сайта WinRAR) ...

Все файлы и папки добавляются в дерево с помощью кода :

Код


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 = ""100
        Else
            NewItem = NewItem & c
        End If
    Next i
End Sub

'Использование:

AddPathToTree TreeView1, _
        "RootLevel\Child1\Child2\Child3\Child4"

Осталось кое-что доделать и норм.
Всем спасибо .

mihanik

Дата 3.7.2006, 07:23 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Посмотри здесь...

На страничке искать

Цитата

dirview.zip
Внесение имен файлов в TreeView

Там же...

Цитата

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

Это сообщение отредактировал(а) mihanik - 3.7.2006, 07:29

--------------------

Программистами не рождаются, - это родовая травма...

WildS

Дата 3.7.2006, 13:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 28.6.2006

Репутация: нет
Всего: нет

Спасибо, а ещё не подскажите, как сделать тоже самое, только используя ListView ?
т.е. чтобы папки, файлы там отобращались ...

Naghual

Дата 3.7.2006, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

WildS, ну ты блин даеш...

--------------------

Я желаю всем Счастья!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »