Форматирование текста в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
