Test Foro de elhacker.net SMF 2.1

estoy haciendo un mini programa y en una form y dos cajas de texto y un boton.

se supone que cuando en la caja "texto1" este escrito algo y se presione el boton lo escrito en la caja de "texto1" se pase a la caja  "texto2" pero otra linea ya que son "multiline" pero no se borre lo que estaba escrito antes en la "texto2".
por ejemplo en la "texto2" esta:
-______________
hola



________________
y tecleo bye en la text1  y sucede lo siguiente:
__________________
holabye


___________________
y lo k yo keria es k kedara asi:

_____________________
hola
bye

_____________________

cual seria el codigo o simbolo parea que seuceda esto???

yo tengo asi el codigo de el boton:

Citarprivate sub press_click()
t1=text1.text
t2=text2.text
text2.text= t2 & t1
end sub

Joder seguramente me estoy equivocando pero si no recuerdo mal con vbctrlf puedes hacer un salto de línea... Algo as:

private sub press_click()
t1=text1.text
t2=text2.text
text2.text= t2 & vbctrlf & t1
end sub

Salu2!

jejje gracias lo probare y creo k si me entendiste..
bye

Cita de: -Riven-Ward- en  5 Agosto 2006, 19:37 PM
Joder seguramente me estoy equivocando pero si no recuerdo mal con vbctrlf puedes hacer un salto de línea... Algo as:

Código [Seleccionar] Expandir

private sub press_click()
t1=text1.text
t2=text2.text
text2.text= t2 & vbctrlf & t1
end sub

Salu2!

Esta perfecto ese codigo, pero no uses variables temproales, hacelo directamente, y quizas necesites la funcion Trim$ para quitarle los espacios al Text1

Saludos

CitarEsta perfecto ese codigo,

Esta mal el codigo no es vbctrlf es vbcrlf
Private Sub Form_Load()
MsgBox "Hola" & vbCrLf & "Adios"
End Sub


el programa que tu necesitas es
Private Sub Command1_Click()
Text3.Text = Text1.Text & vbCrLf & Text2.Text
End Sub


Pero recuerda ponerle al textbox3 la propiedad multiline si no devuelve caracteres extraños y no hace el salto de linea

Cita de: Robokop en  5 Agosto 2006, 20:14 PM

CitarEsta perfecto ese codigo,

Esta mal el codigo no es vbctrlf es vbcrlf

Código [Seleccionar] Expandir

Private Sub Form_Load()
MsgBox "Hola" & vbCrLf & "Adios"
End Sub


el programa que tu necesitas es

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Text3.Text = Text1.Text & vbCrLf & Text2.Text
End Sub


Pero recuerda ponerle al textbox3 la propiedad multiline si no devuelve caracteres extraños y no hace el salto de linea

yo siempre uso vbnewline