Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: передвигатся по веткам treeview? Добавлено: 16.06.09 23:38  

Автор вопроса:  chanchikela
Как программно можно передвигается по веткам treeview?
Допустим надо сразу перейти на ветку с индексом 10,

Заранее благодарю,

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
 Профиль | | #1 Добавлено: 16.06.09 23:55
Не совсем понятен вопрос, для чего передвигаться - для выделения определённого узла или развёртывания его или добавления. И критично какой ВБ стоит.
Вот для нет передвижение:
  1. Dim s = TreeView1.Nodes(10).Text
  2.         MsgBox(s)

Просто указал индекс в скобках и всё в ВБ6 тоже вроде индекс в скобках указал и всё и делай что надо с данным узлом.

Ответить

Номер ответа: 2
Автор ответа:
 chanchikela



Вопросов: 12
Ответов: 21
 Профиль | | #2 Добавлено: 17.06.09 01:20
Мне над выделит определенный узел в VB6

Ответить

Номер ответа: 3
Автор ответа:
 LEX1ERS



ICQ: 4204936 

Вопросов: 38
Ответов: 100
 Профиль | | #3 Добавлено: 17.06.09 02:26
как компонент называеться?фолдертрееviеw ....?если да то блин,он чёт у мну не пашет..

Ответить

Номер ответа: 4
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
 Профиль | | #4 Добавлено: 17.06.09 14:34
Вот кодик когда то это делал но давненько, потратил немного времени чтоб вспомнить :).
  1. Private Sub Form_Load()
  2. Dim i As Integer
  3. For i = 0 To 15
  4. TreeView1.Nodes.Add , , "Key" & i, "Yzel " & i + 1, 1, 2
  5. Next
  6. TreeView1.SelectedItem = TreeView1.Nodes(9)
  7. End Sub

Ответить

Номер ответа: 5
Автор ответа:
 chanchikela



Вопросов: 12
Ответов: 21
 Профиль | | #5 Добавлено: 17.06.09 23:02
Все отлично получился, просто в конце пришлось добавит TreeView1.SetFocus
В итого код такой
  1.  
  2. Private Sub Form_Load()
  3. Dim i As Integer
  4. For i = 0 To 15
  5. TreeView1.Nodes.Add , , "Key" & i, "Yzel " & i + 1, 1, 2
  6. Next
  7. TreeView1.SelectedItem = TreeView1.Nodes(9)
  8. TreeView1.SetFocus
  9. End Sub


Огромное Вас спасибо

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам