|
|
|
TreeView
|
|||
|---|---|---|---|
|
#18+
Друзья, помогите начинающему по Visual Basic 6.0 ! На форме имеется 2 элемента: DirListBox и TreeView . Каким образом отобразить все содержимое DirListBox в ЭУ TreeView , учитывая иерархию и расположение папок ? Как осуществить операцию, когда щелкаешь мышом по элементу (с именем папки) в TreeView - при этом открыватся эта же папка в проводнике Windowsa? Ну буду очень признателен за ответ (желательно с примером)? Заранее благодарен! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.12.2005, 19:52:30 |
|
||
|
TreeView
|
|||
|---|---|---|---|
|
#18+
Хм... ну кажется на первую часть вопроса я нашел ответ. Кому интересно: Следующая функция позволяет добавлять пункты в 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" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.12.2005, 21:59:31 |
|
||
|
TreeView
|
|||
|---|---|---|---|
|
#18+
А вообще я вижу, что помощь сам нашел... все проблемы решились по аналогичному вопросу, смотрите сюда: http://]http://forum.sources.ru/index.php?showtopic=104275&view=showall&hl=treeview ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.12.2005, 22:03:55 |
|
||
|
|

start [/forum/topic.php?fid=60&gotonew=1&tid=2166672]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
196ms |
get topic data: |
9ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 216ms |
| total: | 491ms |

| 0 / 0 |
