textbox

[agamin]

سلام
با چه دستوری می شود متن text2 را پاراگراف دوم(جایی که اولین enter خورده) text1 کرد؟
یا در واقع چگونه می شه متوجه شیم کجای text1 به پاراگراف بعد رفته ( enter خورده)؟

[xxxxx_xxxxx]

یا در واقع چگونه می شه متوجه شیم کجای text1 به پاراگراف بعد رفته ( enter خورده)؟




For i = 1 To Len(txt.Text)
If Mid(txt.Text, i, 2) = vbCrLf Then MsgBox i
Next i


هر جا Enter خورده باشه مكانشو برميگردونه

[xxxxx_xxxxx]

با چه دستوری می شود متن text2 را پاراگراف دوم(جایی که اولین enter خورده) text1 کرد؟




For i = 1 To Len(txt1.Text)
If Mid(txt1.Text, i, 2) = vbCrLf Then
txt1.Text = Mid(txt1.Text, 1, i) & vbCrLf & txt2.Text & vbCrLf & Mid(txt1.Text, i + 2)
Exit For
End If
Next i