Ну почему?..

[xqz_me]

Обяснините, Бога ради, мне глупому, почему при включённом таймере каретка в richtextbox (имя - tmp) перескакивает в конец текста! Я хочу что бы
1. если пользователь начал выделять текст, то каретка не перескакивала ни при каком условии,
2. если пользователь установил каретку в любом месте и в контрол не поступило новых данных (mscomm1.input=""), то она там и осталась
3. если пользователь не выделяет, а текст изменился (len(mscomm.input)>0) то каретка перескачила в конец текста.

Собственно, все условия есть в моём коде, но он почему-то не работает... Плдскажите, в чём я не прав.

[tyomitch]

Слишком много буков!
Нельзя ли урезать пример до минимально глючного варианта?

[xqz_me]

Смотри событие таймера. Если выключить таймер проблемы нет.

[xqz_me]

Кно-нибудь подскажет?

[JumpingJack]

Замени на:

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

Private Sub Timer1_Timer()
On Error GoTo error
If MSComm1.PortOpen = True Then val = CStr(MSComm1.Input)

If val <> "" And MSComm1.PortOpen = True Then
   tmp.Text = tmp.Text + val

   If Len(tmp.SelText) = 0 Then
   'tmp.SelStart = Len(tmp.Text)
   End If
End If
val = ""
Exit Sub 'Этого небыло
error: geterror

End Sub

У тебя обработчик ошибок даже без ошибок выполнялся. А в нем курсор в конец ставился

[xqz_me]

Понял. спасибо.

[GSerg]

Два раза xqz_me делал топик-ап, и два раза я его удалял. Видимо, намёков товарищ не понимает, раз сделал это в третий.
Строгое замечание.

[xqz_me]

Два раза xqz_me делал топик-ап, и два раза я его удалял. Видимо, намёков товарищ не понимает, раз сделал это в третий.

Если честно, я думал, что форум глючит.