none
ayuda con treeview y richtextbox RRS feed

  • 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.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

    lunes, 14 de mayo de 2018 16:48

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.

    lunes, 14 de mayo de 2018 18:49

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.

    lunes, 14 de mayo de 2018 18:49
  • 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


    • Editado manzas miércoles, 16 de mayo de 2018 16:14
    miércoles, 16 de mayo de 2018 16:13
  • 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

    miércoles, 16 de mayo de 2018 16:55
  • gracias hermano te ganastes mi admiracion
    miércoles, 16 de mayo de 2018 18:31