Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.191.5.239] |
|
Сообщ.
#1
,
|
|
|
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 Next 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) |