синхронное написание в текстовых полях / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / синхронное написание в текстовых полях

6 сообщений из 6, страница 1 из 1

синхронное написание в текстовых полях

#39681937

assei

Гость

Ребята подскажите возможно ли синхронное написание данных в текстовых полях, т.е. заносим(набираем текст) в одном текстовом поле, и сразу видно как синхронно набирается в другом текстовои поле

...

Рейтинг:

0 / 0

01.08.2018, 12:16

| Ответить | Цитировать | Написать

синхронное написание в текстовых полях

#39681948

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Да, возможно. Вульгарное

Код: vbnet

1.
2.
3.

sub text1_change()
text2.text = text1.text
end sub

Главное - не устроить "карусель". Юзер топает в Text1, возникает Text1.Change, код меняет Text2.Text, возникает Text2.Change, он меняет Text1.Text, возникает Text1.Change, код меняет Text2.Text ... короче, всё зависло.

...

Рейтинг:

0 / 0

01.08.2018, 12:35

| Ответить | Цитировать | Написать

синхронное написание в текстовых полях

#39682007

Казанский

Гость

на этот случай

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Dim busy As Boolean

Private Sub Text1_Change()
  If busy Then Exit Sub
  busy = True
  Text2.Text = Text1.Text
  busy = False
End Sub

Private Sub Text2_Change()
  If busy Then Exit Sub
  busy = True
  Text1.Text = Text2.Text
  busy = False
End Sub

...

Рейтинг:

0 / 0

01.08.2018, 13:36

| Ответить | Цитировать | Написать

синхронное написание в текстовых полях

#39682089

Roman Mejtes

Участник

Откуда: г. Пермь

Сообщения: 4 264

Рейтинг: 0 / 0

Казанскийна этот случай

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Dim busy As Boolean

Private Sub Text1_Change()
  If busy Then Exit Sub
  busy = True
  Text2.Text = Text1.Text
  busy = False
End Sub

Private Sub Text2_Change()
  If busy Then Exit Sub
  busy = True
  Text1.Text = Text2.Text
  busy = False
End Sub

достаточно проверить, что значения не одинаковые, тогда цепочка будет разрываться всегда.
аля 'if (_variable == value) return'. Речь ведь про строки, поле бизи только добавит путаницы и полей таких может быть дофига

...

Рейтинг:

0 / 0

01.08.2018, 15:25

| Ответить | Цитировать | Написать

синхронное написание в текстовых полях

#39682096

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Roman Mejtesдостаточно проверить, что значения не одинаковые, тогда цепочка будет разрываться всегда.Хорошо, если там тупое копирование. А если значение одного поля только зависит от второго, но не равно ему, да ещё и соответствие неоднозначное?

...

Рейтинг:

0 / 0

01.08.2018, 15:39

| Ответить | Цитировать | Написать

синхронное написание в текстовых полях

#39682105

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Roman Mejtesполе бизи только добавит путаницыЭто же вроде флаг, что не надо применять код, если он вызван при изменении другого поля. Какая путаница? Без этого флага есть огромные шансы получить бесконечный цикл.

...

Рейтинг:

0 / 0

01.08.2018, 16:04

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / синхронное написание в текстовых полях

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

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

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39682089&tid=2155030]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	39ms
get topic data:	13ms
get forum data:	3ms
get page messages:	52ms
get tp. blocked users:	2ms
others:	273ms

total:	415ms