SelStart и SelLength

[Sun07]

Написал я однажды:
text1.SelLength=3
text1.SelStart=1
длина текста была достаточной (есть где разгуляться), но выделения я не увидел.

Помучавшись, порывшись в книге, решил написать:
text1.SelStart=1
text1.SelLength=3
появилось выделение. Почему так? Ведь в первом варианте SelLength не обнуляется после установки SelStart?

[Хакер]

Потому что здравый смысл.

Потому что не начертить циркулем круг если
сначала провернуть его, а только потом поставить иглой в центр окружности.

[Viper]

В цитаты!!!!

[Sun07]

я так понимаю, после установки SelStart ожидается новая установка SelLength, не взирая на ранее установленную эту величину. По моему, это странно.

[lister]

Ничего странного. Сначала старт, потом финишь. Но не наоборот.
Выделение идет слева направо.

[Viper]

Для осмысления можно попробовать поэкспериментировать с таким вот кодом:

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

Text1.SelStart = 5
Text1.SelLength = 5
Text1.SelLength = 10

устанавливая комменты на разные строки. Естественно длина текста должна быть достаточной

[Sun07]

Ничего странного. Сначала старт, потом финишь. Но не наоборот.
Выделение идет слева направо.

Почему ты решил, что не было старта перед SelLength? Ведь SelStart был установлен в некую величину перед моей установкой SelLength. Т.е. выделение должно по идее появиться сперва, а потом должно просто переопределиться с установкой нового SelStart

[Sun07]

а почему так происходит - выделение просто снимается перед установкой нового SelStart, т.к. при этом происходит перемещение курсора, а при простом перемещении курсора выделение снимается. Вот что я рад был бы от вас услышать, но пришлось самому догадаться.

[lister]

Почему ты решил, что не было старта перед SelLength? Ведь SelStart был установлен в некую величину перед моей установкой SelLength.

Изначально SelStart=0 и SelLength=0. Устанавливая SelLength = 3, ты выделяешь первые 3 символа. Затем ты ставишь SelStart=1 и тут же отменяешь выделение.

Т.е. выделение должно по идее появиться сперва, а потом должно просто переопределиться с установкой нового SelStart

У тебя получилось старт, финишь, снова старт, которым ты отменил выделение. Опять же повторюсь, выделение идет слева направо.

[vvs_adm]

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

Private Sub Text1_Click()
    Text1.SelStart = 1
    Text1.SelLength = 5
    Text1.SelStart = 1
    Debug.Print Text1.SelLength
End Sub