ayuda con text box

[David_erh]

Hola soy nuevo en visual basic y quiero un poco de ayuda.
Tengo dos controles un cuadro combinado(nombres) y una caja de texto(lista_nombres);lo que quiero es que cada vez que hago un click sobre cualquier dato del cuador combinado es decir un nombre de la lista, estos se añadan uno bajo el otro en la caja de texto (lista_nombres); esto es lo que he hecho,previamente he puesto en TRUE la propiedad multilinea de la caja de texto:

Private Sub nombres_Click()
lista_nombres.Text = servicios.Text & Chr$(13) & Chr$(10)
End Sub

pero cuando lo pruebo no funciona, ya que sobre escribe los nombres selecionados,es como si no hiciera caso al salto de linea y retorno de carro.
espero su ayuda Gracias

[VisualGuallabo]

Mira este me funciona.

lista_nombres.SelStart = Len(lista_nombres.Text)
lista_nombres.SelText = servicios.Text & vbCrLf

[MaxExtreme]

Según tu explicación, esto te debería bastar...

Código:

Private Sub Form_Load()
    Label1.Caption = ""
    Text1.Text = ""
    List1.AddItem "Paco"
    List1.AddItem "Pedro"
    List1.AddItem "María"
    Combo1.AddItem "Paco"
    Combo1.AddItem "Pedro"
    Combo1.AddItem "María"
End Sub

Private Sub List1_Click()
    Label1.Caption = Label1.Caption & vbCrLf & List1.Text
    Text1.Text = Text1.Text & vbCrLf & List1.Text
End Sub

Private Sub Combo1_Click()
    Label1.Caption = Label1.Caption & vbCrLf & Combo1.Text
    Text1.Text = Text1.Text & vbCrLf & Combo1.Text
End Sub

Puedes probarlo añadiendo los 4 controles y viendo el resultado (multiline a true del Text1).

[MaxExtreme]

Iniciado por VisualGuallabo

Mira este me funciona.

lista_nombres.SelStart = Len(lista_nombres.Text)
lista_nombres.SelText = servicios.Text & vbCrLf

Así que sigues vivo pero no respondistes en el post en que me atacastes...

[David_erh]

Gracias a ambos y , max probe lo que me dijiste y funciono my bien, de seguro volveré a molestarlos con mas preguntas.
David

[MaxExtreme]

Iniciado por David_erh

Gracias a ambos y , max probe lo que me dijiste y funciono my bien, de seguro volveré a molestarlos con mas preguntas.
David

De nada ;)

[VisualGuallabo]

Max te dige que no quiero mas broncas contigo.
Por nada David aqui estamos para ayudarnos

[MaxExtreme]

Iniciado por VisualGuallabo

Max te dige que no quiero mas broncas contigo.
Por nada David aqui estamos para ayudarnos

No... Tú me atacastes públicamente en un post diciendo que mis respuestas sobre el tal evento OnClose del control WinSock eran incorrectas, que era un cretino y demás insultos.

Te respondí dejándote por los suelos puesto que no habías dicho nada correcto, te "retirastes" sin contestar... ¿y ahora me vienes con que no quieres broncas?

Has empezado tú... Haberlo pensado mejor antes de insultarme públicamente... No tires la piedra y escondas la mano.

[Developer9]

Ya no discutan cosas que no vienen al caso