Форматирование текста в TextBoxе без изменения размера его - VB
Формулировка задачи:
Люди, помогите.
В TextBoxe 10 строк по 60 символов на строке. Надо без изменения размера TextBox вывести в нем эти же строки, но по 40 символов на каждую строку.
Пыталась преобразовать строку в массив символов - не идет.
Пыталась сделать процедуру Chr (032) - перевод каретки, тоже глухо.
Сижу и кукую.
Решение задачи: «Форматирование текста в TextBoxе без изменения размера его»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д