Уместить текст на заданную ширину -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.133.160.156]

Модераторы: SCINER, B.V.

Уместить текст на заданную ширину , Как на кнопках панели задач Windows

SCINER

Сообщ. #1 , 11.04.04, 23:30

Moderator

Рейтинг (т): 228

Function TextToRect(ByVal Txt As String, txtWidth As Long, ToForm As Form) As String

Dim Tmp As String, L As Long

Const Dot As String = "..."

If ToForm.TextWidth(Txt) >= txtWidth Then

Tmp = vbNullString

L = 0

For i = 1 To Len(Txt)

L = Len(Txt) - i

If ToForm.TextWidth(Left(Txt, L) & Dot) <= txtWidth Then Exit For

If L > 0 Then TextToRect = Left(Txt, L) & Dot

Else

TextToRect = Txt

End If

End Function

'Пример

Print TextToRect("Created by SCINER: lenar2003@mail.ru", 500, Form1)

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0250 ] [ 16 queries used ] [ Generated: 27.04.24, 12:14 GMT ]