Форматирование текста в TextBoxе без изменения размера его - VB

Формулировка задачи:

Люди, помогите. В TextBoxe 10 строк по 60 символов на строке. Надо без изменения размера TextBox вывести в нем эти же строки, но по 40 символов на каждую строку. Пыталась преобразовать строку в массив символов - не идет. Пыталась сделать процедуру Chr (032) - перевод каретки, тоже глухо. Сижу и кукую.

Код к задаче: «Форматирование текста в TextBoxе без изменения размера его - VB»

textual
sub reorder2()
 Dim a() as string,i as long,j as long,s1 as string,s2 as string
 s1=text1.text
 s1=trim(replace(s1,vbCrLf," "))
 a=split(s1," ")
 j=0: s2=""
 for i=0 to ubound(a)
  if j+len(a(i))>41 then 
   j=len(a(i))
   s2=s2 & vbcrlf & a(i)
  else
   j=j+len(a(i))
   s2=s2 & " " & a(i)
  end if
 next i
 text1.text=s2
end sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 3.909 из 5


СДЕЛАЙТЕ РЕПОСТ