ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > حذف فاصله ی عمودی در text box
نسخه‌ی کامل: حذف فاصله ی عمودی در text box
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

saeedvir

۲۷-دى-۱۳۸۸, ۱۵:۲۲:۳۱
سلام

چه طوری میشه همه ی فاصله های عمودی بین یه متن در text box را حذف کرد ؟
مثلا :
متن داخل text box به صورت زیر هست :
کد:
1

2
3


5
6

می خواهم به
کد:
1
2
3
4
5
6

تبدیل کنم


لطفا کمک کنید

CRazYFULL

۲۷-دى-۱۳۸۸, ۱۶:۱۱:۰۵
کد:
Private Sub Command1_Click()
Text1 = Replace(Text1, vbNewLine & vbNewLine, vbNewLine)
If InStr(Text1, vbNewLine & vbNewLine) > 0 Then Command1_Click
End Sub
ايران ويج > برنامه نویسی > ويژوال بيسيك > حذف فاصله ی عمودی در text box