Курсор в TextBox'е

[Wassago]

Всем привет!Хочу сделать TextBox, в котором пишеш пароль и после каждых 5 букв появляется "-"!

Делаю так:

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

Dim Sum As Long

Private Sub Text1_Change()

If Text1.Text <> А Then Sum = Sum + 1

If Sum = 5 Then Text1.Text = Text1.Text & "-": Sum = 0

End Sub

Но после введения 5 букв,курсор возвращается в начало.

Кто знает как это сделать,объясните пожалуста.Спасибо!

[Alec]

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

Text1.SelStart = Len(Text1.Text)


[SLIM]

Кто знает как это сделать,объясните пожалуста.Спасибо!

Подразумеваю что нужно обрабатывать количество введенных символов в самом событии. Например в событии KeyPress. Для этого объявить переменную соответствующего уровня. Когда достигнем 5 символов - добавляем пробел. Код пока не приведу, чуть позже...

[Wassago]

Alec
Это не совсем то.Но тоже полезная вещь.

[Wassago]

SLIM
Очень интересно,буду ждать!

[iGrok]

Alec
Это не совсем то.Но тоже полезная вещь.

Вставь это в свой код в конце процедуры - и получишь то, что требовалось.

[alibek]

Лучше в KeyAscii делай SendKeys.

[Wassago]

Ыыыыыы!Получилось,спасибо всем за внимание.