Как определить длинну строки незав. от введенных символов?

[GreenT]

Господа программисты, возникла такая проблемма.

Есть текстовое поле Text1.
Есть лейбл Lable1.
При наборе в текстбоксе, через событие change, текст в лейбле меняется и принимает значение текста введенного в текстбоксе.

Требуется: проконтролировать длинну введенной строки. Она не должна вылазить за пределый лейбла.

Просто ограничить количество введенных символов неполучается, поскольку 10 точек по длинне намного короче чем, например, 10 букв "X".

Что делать????

[GAGArin]

А что нельзя ограничить "По максинуму" влазит допустим 10 букв Ж вот и ограничить 10ю символами (10 точек по любому влезет)? Можно при введении каждой буквы сканировать критическую область на наличие черного цвета, и если есть то больше писать не давать. Это дубово, но первое что в башку пришло.

[GreenT]

А что нельзя ограничить "По максинуму" влазит допустим 10 букв Ж вот и ограничить 10ю символами (10 точек по любому влезет)?

Можно... но что получается... он введет 10 точек, строка еще не дойдет до конца, а уже будет запрет на ввод.

А нужно именно определить что больше символов в строку не входит.

[GAGArin]

Тогда вариант 2 , шучу лучше такую муру не делать. Работать то будет, но как Может есть какие нить свойства у текстбокса, но это не ко мне я VB запускал последний раз месяц назад и то на 2 дня.

[skiperski]

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

Option Explicit

Private Sub Form_Load()
    Set Me.Font = Label1.Font
End Sub

Private Sub Text1_Change()
    Label1.Caption = Text1.Text
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   
    Dim txt As String
   
    If (KeyAscii <> 8) Then 'BackSpace
       
        With Text1
            txt = Mid$(.Text, 1, .SelStart) & Chr$(KeyAscii) & Mid$(.Text, .SelStart + .SelLength + 1)
        End With
       
        If (TextWidth(txt) > Label1.Width) Then KeyAscii = 0
       
    End If
   
End Sub

[GreenT]

skiperski гениально =) спасибо. Все работает.