تقسیم لاین های تکستباکس

[niksalehi]

سلام به دوستان
من یک تکستباکس دارم به فرض 150 تا لاین داره..
چطوری میتونم این تکستباکس رو به 3 تا تکستباکسی که هر کدوم 50 تا لاین داره تقسیم کنم؟

[محسن واژدی]

سلام علیکم

ضمیمه زیر را بررسی کنید

موفق باشید

[niksalehi]

سلام دوستان...
نمونه ای که اقای واژدی قرار دادن عالی کار میکنه اما برای متن های فارسی جواب نمیده! یعنی متن های فارسی ناخوانا هستن..
مشکل کجاست دقیقا؟!

[Veteran]

با اجازه اقا محسن
من کار با api رو بیشتر میپسندم.بهتره.
اما
با این کد هم میشه این کارو کرد.
Private Sub Command1_Click()
On Error Resume Next
Dim SpliTer
SpliTer = Split(Text1, Chr(13) & Chr(10))
For i = 0 To 49
Text2 = Text2 & SpliTer(i) & vbCrLf
Next
For i = 50 To 99
Text3 = Text3 & SpliTer(i) & vbCrLf
Next
For i = 100 To 150
Text4 = Text4 & SpliTer(i) & vbCrLf
Next
End Sub

Private Sub Form_Load()
Text1 = ""
For i = 1 To 150
Text1.SelText = "برنامه نویس" & i & vbCrLf
Next
End Sub
مشکل فارسی هم نداره

[niksalehi]

ممنون دوست عزیز کارم رها افتاد
میشه درباره این قسمت کد توضیح بدین؟

SpliTer = Split(Text1, Chr(13) & Chr(10))

[Veteran]

تابع split یک رشته میگیره که اینجا Text1 هست.و بر اساس پارامتر دوم Chr(13) & Chr(10) رشته رو به قسمت های جدا تقسیم میکنه و در یک ارایه قرار میده.
اگر اشتباه نکنم Chr(13) & Chr(10) شروع یک خط رو تشخیص میده.
حالا با این میشه تکست باکس رو خط به خط جدا و در ارایه قرار داد که در خونه از ارایه یک خط از تکست باکس قرار داره.