Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

User LoL

[Resolvido] Como mover do richtextbox para um treeview?

Mensagens Recomendadas

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Editado por Andrepereira9

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

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Editado por cdaniel.marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.