Форматирование текста в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы