Как задать узлу дерева одну картинку, а его дочерням веткам другую (причем мы не знаем сколько их будет и не можем обратиться к каждой п имени).
У меня получается только задать всем элементам сразу, что меня не устраивает
Может кто подскажет
Dim di As System.IO.DirectoryInfo
Dim fsi() As System.IO.FileSystemInfo
Dim str As String
Me.FolderBrowserDialog1.ShowNewFolderButton = False
If Not Me.FolderBrowserDialog1.ShowDialog = DialogResult.Cancel Then
str = Me.FolderBrowserDialog1.SelectedPath()
Try
di = New System.IO.DirectoryInfo(str)
fsi = di.GetFileSystemInfos("*.jpg") 'В папке смотрим только картини
Catch s As System.IO.DirectoryNotFoundException
MsgBox("Каталог не существует")
Exit Sub
End Try
Dim folder As TreeNode = New TreeNode(di.FullName) 'Создаем ветку название папки
Dim info As System.IO.FileSystemInfo
For Each info In fsi
folder.Nodes.Add(info.Name) 'Имена файлов как отростки
Next
Me.TreeView1.Nodes.Add(folder) ' Выводим на экран
End If
...
Dim tmpNode as TreeNode
For Each info In fsi
tmpNode = New TreeNode(info.Name)
tmpNode.ImageIndex = jpgImageIndex
folder.Nodes.Add(tmpNode) 'Имена файлов как отростки
Next
...
Array.Sort(fsi)
TreeView1.SelectedNode = TreeView1.Nodes(k)
Array.Sort(fsi)
TreeView1.SelectedNode = TreeView1.Nodes(k)
TreeView1.SelectedNode = TreeView1.Nodes(0).Nodes(k)
Сейчас этот форум просматривают: Google-бот и гости: 17