Jump to content
User LoL

[Resolvido] Como mover do richtextbox para um treeview?

Recommended Posts

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

Share this post


Link to post
Share on other sites
User LoL

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

Share this post


Link to post
Share on other sites
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?


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
User LoL

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

Share this post


Link to post
Share on other sites
User LoL

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

Share this post


Link to post
Share on other sites
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 by Andrepereira9

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
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 by cdaniel.marques

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.