VPF::скроллирование текста - Форум программистов

ROLAND

Дата 21.7.2008, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 21.7.2008

Репутация: нет
Всего: нет

Подскажите пожалуйста как решить проблему: есть 2 textbox'a, в одном содержится текст в другом он же набирается (тот же текст), как добиться синхронного перевода строк в обоих textbox'ах? (multiline=true)

Akina

Дата 21.7.2008, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Код

'draft code
Sub TextBox2_Click
TextBox1.SelStart = TextBox2.SelStart 
End Sub

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

ROLAND

Дата 23.7.2008, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 21.7.2008

Репутация: нет
Всего: нет

спасибо, это был один из первых моих вариантов, но он работает только при multiline=false, когда текстовое поле многострочное вертикального скроллирования не происходит, к сожалению. Событие в процедуре должно быть TextChanged, я правильно понял?

Akina

Дата 23.7.2008, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(ROLAND @ 23.7.2008, 20:27

)

Событие в процедуре должно быть TextChanged, я правильно понял?

Полагаете, что

Цитата(Akina @ 22.7.2008, 00:46

)

Sub TextBox2_Click

обрабатывает событие OnChange?

--------------------

ROLAND

Дата 23.7.2008, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 21.7.2008

Репутация: нет
Всего: нет

да не, я имел ввиду что вместо Private Sub TextBox1_Click вроде должно быть Private Sub TextBox1_TextChanged

ROLAND

Дата 23.7.2008, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 21.7.2008

Репутация: нет
Всего: нет

странная закономерность обнаружена

Код


    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged
        RichTextBox.SelectionStart = Len(RichTextBox2.Text)
        RichTextBox.Focus()
        RichTextBox2.SelectionStart = Len(RichTextBox2.Text)
        RichTextBox2.Focus()
    End Sub

в RichTextBox эта конструкция работает(может предложите более элегантный способ решения?).
а в TextBox

Код


    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox1.SelectionStart = Len(TextBox2.Text)
        TextBox1.Focus()
        TextBox2.SelectionStart = Len(TextBox2.Text)
        TextBox2.Focus()
    End Sub

тоже самое не работает. А хотелось бы, так как же добиться желаемого?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »