[Resolvido] Como mover do richtextbox para um treeview?

[User LoL]

Eu tenho cerca de 4 mil palavras em um richtextbox, uma em cada linha, como eu faço pra mover para um treeview? ele aceita tantas palavras?

Tentei assim mas não deu certo:

TreeView1.Nodes.Add("A", "A")

    For Each linha As String In RichTextBox1.Lines
          TreeView1.Nodes("A").Nodes.Add(RichTextBox1.Text, vbCrLf)
    Next linha

[nelsonr]

Então isso não é seguimento deste outro topico?

https://www.portugal-a-programar.pt/topic/62000-como-controlar-o-scrollbar-de-um-richtextbox/

[User LoL]

Estou tentando dois métodos diferentes, não sei se seria acessível colocar no mesmo tópico.

[nelsonr]

Experimentaste o que lá coloquei?

[Andrepereira9]

Explica lá melhor o que queres fazer aqui.

Tens um node com o nome de A, e queres meter o que esta dentro do richtext, como sub-nivel de A? ou queres criar um node novo para cada linha?

[User LoL]

Criar um nó A, e colocar as palavras do rich no subnivel de A, cada linha do rich deverá ser um nó

[User LoL]

Oque eu não estou conseguindo, é adicionar os sub-nós, e ainda, o treeview irá suportar tantas palavras?

[Andrepereira9]

'Verifica se já existe o Node. Se não existir cria
If TreeView1.Nodes.Contains(TreeView1.Nodes("A")) <> True Then
    TreeView1.Nodes.Add("A").Name = "A"
End If

'Cópia cada linha para o sub-nivel do Node 'A'
For Each linha In RichTextBox1.Lines
    TreeView1.Nodes("A").Nodes.Add(linha)
Next

Edited August 8, 2013 at 11:44 AM by Andrepereira9

[cdaniel.marques]

'Texto a dividir
Dim String As String = richtextbox1.text

'Divide a string em palavras baseadas no espaço
Dim palavras As String() = String.Split(New Char() {" "c})

'Loop para percorrer todas as palavras da String
Dim Palavra As String
'Percorre todas as palavras, e adiciona a letra à TreeView se não existir
For Each Palavra In Palavras
  'Recolhe primeira letra
  Dim LetraPalavraActual as String = Palavra.Substring(0, 1)
  'Verifica se o Node com a letra de palavra atual já existe, adiciona se não existir
  If TreeView.FindNode(LetraPalavraActual) = Nothing Then
  TreeView1.Nodes.Add(LetraPalavraActual, LetraPalavraActual)
  End If
Next

Edited August 8, 2013 at 11:52 AM by cdaniel.marques

[User LoL]

Obrigado pela ajuda, eu estava quebrando a cabeça por uma coisa simples, apenas estava errado o for each, assim funcionou

For Each linha In RichTextBox1.Lines
 TreeView1.Nodes("A").Nodes.Add(linha)
Next