Выравнивание текста по ширине в TextBox

[Sun07]

В TextBox существует 3 варианта выравнивания текста, но нет выравнивания текста по ширине. Как его сделать?

[Viper]

Только вручную. Получать ширину символов строки, добавлять при необходимости пробелы и так далее. Вещчь довольно нудная.

[Antonariy]

Не такая уж и нудная

Код: Выделить всё

Function ExpandLine(TextLine as String, WidthNeed as Single) as String
Dim s() as String
Dim TextWidth, SpacesNeed, SpacesReplace, SpacesRest
Dim ret as String

s = Split(Trim(TextLine)," ")
TextWidth = Form.TextWidth(Trim(TextLine))
SpacesNeed = (WidthNeed - TextWidth)/Form.TextWidth(" ")
SpacesReplace = Fix(SpacesNeed / (UBound(s) + 1))
SpacesRest = SpacesNeed Mod (UBound(s) + 1)
If SpacesReplace>1 then
    ret = Replace(Trim(TextLine)," ",Space(SpacesReplace))
Else
    ret = Trim(TextLine)
End If
If SpacesRest > 0 Then
    y = 1
    For x=1 to SpacesRest
        y = Instr(y, ret, Space(SpacesReplace))
        ret = Replace(ret, Space(SpacesReplace), Space(SpacesReplace + 1), y, 1)
        y = y + SpacesReplace + 1
    Next x
End If
ExpandLine = ret
End Function

Вот как-то так. Естественно накатал не проверив Но идея, я думаю, ясна.

[Sun07]

Ха, только хотел спросить, как Antonariy уже дал код. Сейчас посмотрим, как он работает. А у меня уже были такие мысли:

1. Для выравнивания текста по ширине достаточно подставить нужное число пробелов в строку или такое выравнивание осуществляется прорисовкой символов со смещением до пиксела?
2. Может, для выравнивания существуют пустые символы шириной в 1 пиксел?
3. Может, для выравнивания существуют спец. символы форматирования (в Юникоде, например)?

[Sun07]

хорошо, а как получить TextLine из TextBox c MultiLine=True?

[Sun07]

что такое Form.TextWidth?

[GSerg]

Sun07, я почти уверен, что тебе уже говорили о том, что бывает с постящими подряд с интервалом в две минуты, вместо того, что использовать кнопку Правка.

[Debugger]

Возможно, надо сплитить по строкам, делать то, что написано вверху, склеивать и выводить?

[Viper]

1. Для выравнивания текста по ширине достаточно подставить нужное число пробелов в строку или такое выравнивание осуществляется прорисовкой символов со смещением до пиксела?
2. Может, для выравнивания существуют пустые символы шириной в 1 пиксел?
3. Может, для выравнивания существуют спец. символы форматирования (в Юникоде, например)?

1. Нужное число пробелов
2. Нет.
3. Нет

Form.TextWidth - функция, определяющая ширину строки, выводимой шрифтом формы.

[Sun07]

Form.TextWidth - функция, определяющая ширину строки, выводимой шрифтом формы.

.
а зачем мне шрифт формы, мне нужен шрифт текстбокса, хотя, можно перед вызовом этой функции присвоить форме шрифт текстбокса, а после - сразу восстановить прежний шрифт. А шрифт формы отражается в заголовке формы или это просто шрифт по умолчанию для всех контролов на форме?

[tyomitch]

Шрифт формы отражается при печати на ней текста (оператором Print).
К шрифту заголовка он не имеет никакого отношения.