Principales respuestas
ayuda con treeview y richtextbox

Pregunta
-
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.NodeMouseClickIf (e.Node.Name) = "Nodo0" Then RichTextBox1.Text = "Selecione alguna opción" ElseIf (e.Node.Name) = "Nodo1" Then RichTextBox1.Text = "(Articulo)Alfombras orientales-Alfombras orientales" ElseIf (e.Node.Name) = "Nodo2" Then RichTextBox1.Text = "(Articulo)Moquetas-Moquetas" ElseIf (e.Node.Name) = "Nodo3" Then RichTextBox1.Text = "(Articulo)Alfombras de lana-Alfombras de lana" ElseIf (e.Node.Name) = "Nodo4" Then RichTextBox1.Text = "(Articulo)Alfombras de motion-Alfombras de alodón" Else
Respuestas
-
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.
- Marcado como respuesta Enrique M. MontejoModerator miércoles, 16 de mayo de 2018 15:25
Todas las respuestas
-
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.
- Marcado como respuesta Enrique M. MontejoModerator miércoles, 16 de mayo de 2018 15:25
-
-
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
-