Проблемы в TextBox

[Sun07]

В процедуре Change простого текстбокса пишу textbox1.text=UCASE(textbox1.text). При вводе букв курсор в текстбоксе всегда остаётся в начале строки, а надо чтобы был в конце. Как решить проблему?

[tyomitch]

textbox1.selstart=len(textbox1.text)

[Sun07]

Спасибо. Странно, что установка курсора происходит через установку выделения текста...

[GSerg]

Сделай так, чтобы курсор в текстбоксе не принадлежал выделенной области, и я признаю, что действительно, странно, что установка курсора происходит через установку выделения текста.

[Хакер]

tyomitch, а что если человек вписывает символы в середину строки?

Надо так

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


Dim tempSelStart   As Long
Dim tempSelLength As Long

tempSelStart  = TextBox1.SelStart
tempSelLength = TextBox1.SelLength

Text1.Text = UCase(Text1.Text) ' Тут также может быть любой код для
                                                 'обработки строки

TextBox1.SelStart  = tempSelStart
TextBox1.SelLength = tempSelLength

'Unset tempSelStart
'Unset tempSelLength



[alibek]

Спасибо. Странно, что установка курсора происходит через установку выделения текста...

Ну сэкономили немного на свойствах.

[Ennor]

Ну сэкономили немного на свойствах.

Это не экономия, это нормализация. Иначе избыточность получается, а где избыточность, там неоднозначность.

[Sun07]

Спасибо Хакеру!

[alibek]

Это не экономия, это нормализация.

Не согласен
Например, я хочу выделить фрагмент текста в текстовом поле, и при этом хочу, чтобы курсор был в начале фрагмента.
Вручную это сделать можно -- надо начинать выделение с конца (например, Shift+Left). Из кода этого не сделать.

[Andrey Fedorov]

Спасибо Хакеру!

И можешь это оформить в отдельной процедуре:

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


Private Sub Text1_Change()
'    TextBoxFormat Text1, "#,##0.00"
    TextBoxFormat Text1, ">"
End Sub

Private Sub TextBoxFormat(tx As TextBox, sFmt As String)
    Dim i As Integer, j As Integer, s As String
   
    s = Format$(tx.Text, sFmt)
    If s = tx.Text Then Exit Sub
    i = tx.SelStart
    j = tx.SelLength
    tx.Text = s
    tx.SelStart = i
    tx.SelLength = j
End Sub