ورود

View Full Version : سوال: textbox


agamin
یک شنبه 22 دی 1387, 13:14 عصر
سلام
با چه دستوری می شود متن text2 را پاراگراف دوم(جایی که اولین enter خورده) text1 کرد؟
یا در واقع چگونه می شه متوجه شیم کجای text1 به پاراگراف بعد رفته ( enter خورده)؟
xxxxx_xxxxx
یک شنبه 22 دی 1387, 13:43 عصر
یا در واقع چگونه می شه متوجه شیم کجای text1 به پاراگراف بعد رفته ( enter خورده)؟




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


هر جا Enter خورده باشه مكانشو برميگردونه
xxxxx_xxxxx
یک شنبه 22 دی 1387, 13:51 عصر
با چه دستوری می شود متن 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