VB.NET - RICHTEXTBOX E TREEVIEW

GIOVANYNOGUEIRA 16/11/2012 09:21:31
#414313
E ai pessoal.

1. Como eu posso converter os nodes de uma [txt-color=#e80000]treeview[/txt-color] para texto. Ou seja colocar o texto no [txt-color=#e80000]richtextbox[/txt-color] após conversão. Cada node uma linha no [txt-color=#e80000]richtextbox[/txt-color].
2. Como eu posso converter texto para nodes de uma [b[txt-color=#e80000]]treeview[/txt-color][/b]. Ou seja agora ao contrario da primeira. Cada linha um node na [txt-color=#e80000]treeview[/txt-color].

Agradeço desde já...
F001E 16/11/2012 10:38:15
#414319 Resposta escolhida
pode fazer assim

Dim ItemSelecionado As String = Tree.SelectedNode.ToString
ItemSelecionado = ItemSelecionado.Replace([Ô]TreeNode: [Ô], [Ô][Ô])
GIOVANYNOGUEIRA 16/11/2012 15:33:07
#414345
Citação:

:
pode fazer assim

Dim ItemSelecionado As String = Tree.SelectedNode.ToString
ItemSelecionado = ItemSelecionado.Replace([Ô]TreeNode: [Ô], [Ô][Ô])



Valeu F001E
O primeiro item foi resolvido agora só falta o segundo.

1. Como eu posso converter os nodes de uma treeview para texto. Ou seja colocar o texto no richtextbox após conversão. Cada node uma linha no richtextbox.
[txt-color=#e80000]2. Como eu posso converter texto para nodes de uma [b]treeview. Ou seja agora ao contrario da primeira. Cada linha um node na treeview.[/txt-color][/b]
NILSONTRES 16/11/2012 17:13:14
#414354
Sei que não é isso que vc perguntou, mas vou passar minha experiencia em 10 anos de vb sobre o treeview.
Muito legal a visualização e tals, mas a manutenção vai te deixar louquinho, eu sugiro utilizar outro controle.
F001E 16/11/2012 17:49:38
#414357
o Segundo Item ficaria assim...vou explicar....
NoRaiz é a primeira node do Tree...voce pode colocar qualquer coisa...
NoPrincipal...filho do NoRaiz....
NoFilho....filho do NoPrincipal
NoFilho1...é filho do NoFilho
NoFilho2...é filho do NoFilho1
NoFilho3...é filho do NoFilho2
NoFilho4...é filho do NoFilho3
NoFilho5...é filho do NoFilho4

Logo sua Tree ficaria assim....
1 = NoRaiz
1 = No Principal
1 = NoFilho
1 = NoFilho1
1 = NoFilho2
1 = NoFilho3
1 = NoFilho4
1 = NoFilho5

Exemplo para montar a Tree...

If RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 1 Then
TipoConta = oDataRow([Ô]DESCRICAO[Ô])
NoRaiz = Tree.Nodes.Add(key:=[Ô]Root[Ô], text:=TipoConta, imageIndex:=1, selectedImageIndex:=1)
End If
Conta = oDataRow([Ô]CONTA[Ô]) & [Ô] - [Ô] & oDataRow([Ô]DESCRICAO[Ô]) & [Ô] | [Ô] & oDataRow([Ô]CODIGOREDUZIDO[Ô]) & [Ô] |[Ô]
NomeFilho = Conta
ContaKey = oDataRow([Ô]CONTA[Ô])
Desativada = oDataRow([Ô]DESATIVADO[Ô])
If RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 1 Then
Dim nomeTabela As String = Conta
NoPrincipal = NoRaiz.Nodes.Add(key:=ContaKey, text:=nomeTabela, imageIndex:=IIf(Desativada = 0, 1, 5), selectedImageIndex:=IIf(Desativada = 0, 1, 5))
ElseIf RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 3 Then
NoFilho = NoPrincipal.Nodes.Add(key:=ContaKey, text:=NomeFilho, imageIndex:=IIf(Desativada = 0, 2, 5), selectedImageIndex:=IIf(Desativada = 0, 2, 5))
ElseIf RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 5 Then
NoFilho1 = NoFilho.Nodes.Add(key:=ContaKey, text:=NomeFilho, imageIndex:=IIf(Desativada = 0, 2, 5), selectedImageIndex:=IIf(Desativada = 0, 2, 5))
ElseIf RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 7 Then
NoFilho2 = NoFilho1.Nodes.Add(key:=ContaKey, text:=NomeFilho, imageIndex:=IIf(Desativada = 0, 2, 5), selectedImageIndex:=IIf(Desativada = 0, 2, 5))
ElseIf RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 9 Then
NoFilho3 = NoFilho2.Nodes.Add(key:=ContaKey, text:=NomeFilho, imageIndex:=IIf(Desativada = 0, 3, 5), selectedImageIndex:=IIf(Desativada = 0, 3, 5))
ElseIf RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 11 Then
NoFilho4 = NoFilho3.Nodes.Add(key:=ContaKey, text:=NomeFilho, imageIndex:=IIf(Desativada = 0, 3, 5), selectedImageIndex:=IIf(Desativada = 0, 3, 5))
ElseIf RetornaTamanhoCampo(oDataRow([Ô]CONTA[Ô]), 0) = 15 Then
NoFilho5 = NoFilho4.Nodes.Add(key:=ContaKey, text:=NomeFilho, imageIndex:=IIf(Desativada = 0, 4, 5), selectedImageIndex:=IIf(Desativada = 0, 4, 5))
End If
GIOVANYNOGUEIRA 16/11/2012 21:40:40
#414367
Eu crie um sistema aqui que funcionou certinho valeu pelas respostas.
Tópico encerrado , respostas não são mais permitidas
Voltar