ayuda con treeview y richtextbox

Question

hola amigos estoy empezando a programar y tengo un problemilla el cual tengo un treeview y un richtextbox y cuando yo seleciono un nodo del treeview se ma pasa al richtextbox hasta hay todo ok pero si yo quiero selecionar un segunda linea del treeview en el richtext se me reemplaza la linea y necesito poder meter en el rich 2 o 3 o 4 o5 lineas

pongo la linea de mi codigo

Private Sub TreeView1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick

        If (e.Node.Name) = "Nodo0" Then RichTextBox1.Text = "Selecione alguna opción" Else

        If (e.Node.Name) = "Nodo1" Then RichTextBox1.Text = "(Articulo)Alfombras orientales-Alfombras orientales" Else

            If (e.Node.Name) = "Nodo2" Then RichTextBox1.Text = "(Articulo)Moquetas-Moquetas" Else

            If (e.Node.Name) = "Nodo3" Then RichTextBox1.Text = "(Articulo)Alfombras de lana-Alfombras de lana" Else

            If (e.Node.Name) = "Nodo4" Then RichTextBox1.Text = "(Articulo)Alfombras de motion-Alfombras de alodón" Else

Answer 1

La solución más sencilla es cambiar el = por &=.

Por ejemplo, si pones esto:

 If (e.Node.Name) = "Nodo3" Then RichTextBox1.Text &= "(Articulo)Alfombras de lana-Alfombras de lana"

entonces el texto se añade al richtextbox1, mientras que el "=" que tenías lo que hace es sustituir el texto del richtextbox1.

Answer 2

gracias hermano y que le puedo poner para que encima  me haga un enter en cada uno y me baje a la linea de abajo

Answer 3

Para que cambie de línea al concatenar el texto, concatena al final del texto un salto de línea. Puedes poner Chr(10), o usar la constante predefinida VbLf o VbCrLf.

If (e.Node.Name) = "Nodo3" Then RichTextBox1.Text &= "(Articulo)Alfombras de lana-Alfombras de lana" & VbCrLf

Answer 4

gracias hermano te ganastes mi admiracion