Конференция VBStreets

**Viper** » 28.02.2006 (Вт) 17:58

Есть ли возможность реализации режима замены при вводе символов в TextBox при изменения настроек TextBox? Другими словами, есть ли у TextBox (а если шире, то у EDIT) такой режим? Или надо делать реализацию режима замены ручками?

**GSerg** » 28.02.2006 (Вт) 18:14

Вопрос неясен.

**Viper** » 28.02.2006 (Вт) 18:19

А какая часть вопроса непонятна? Может быть так спрошу: есть ли в TextBox встроенная реализация режимы замены текста? Т.е. режима при котором вводимый текст заменяет ранее введенный

**Amed** » 28.02.2006 (Вт) 18:49

Попробуй нажать клавишу Insert на клавиатуре и понабирать в TextBox поверх введенного.

**Ennor** » 28.02.2006 (Вт) 18:57

Оверпринт, то бишь. Офигеть, только сейчас заметил, что обычный текстбокс, оказывается, действительно этого не умеет.

Проверил апишки - пусто. Видимо, нужно как-то отслеживать состояние insert mode - оно глобально для процесса, наск. я помню...

**end3r** » 28.02.2006 (Вт) 20:59

Не совсем понятен вопрос.
Как я понял это

Код: Выделить всё: Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = 20 'сколько символов выделить End Sub

**Andrey Fedorov** » 01.03.2006 (Ср) 8:14

end3r писал(а):Не совсем понятен вопрос.
Как я понял это

Скорее по GotFocus и Change выделять первый SelStart символ.

А вообще - не припомню ни одной программы где бы TextBox так работал.
Это уже больше на MaskEdit смахивает...

**GAGArin** » 01.03.2006 (Ср) 8:31

А может не париться с выделением, а Insert нажать?

**tyomitch** » 01.03.2006 (Ср) 9:27

GAGArin писал(а):А может не париться с выделением, а Insert нажать?

А может читать топик, прежде чем постить? :evil:

**Twister** » 01.03.2006 (Ср) 9:46

Да, кажись только ручками.

зы: Вариант с эмуляцией клавиши Insert рассматривать категорически не советую.

**tyomitch** » 01.03.2006 (Ср) 10:14

Да как вы все собрались "эмулировать клавишу Insert", если даже реальная клавиша Insert не включает режим замены? :roll:

**Antonariy** » 01.03.2006 (Ср) 11:24

Разговоров-то... А делов:..

Код: Выделить всё: Private Sub Text1_KeyPress(KeyAscii As Integer) If Insert Then Text1.SelLength = 1 Text1.SelText = Chr(KeyAscii) KeyAscii = 0 End If End Sub

**Twister** » 01.03.2006 (Ср) 11:38

Ты забыл про BackSpace. Надо так

Код: Выделить всё: If Insert And KeyAscii <> 8 Then Text1.SelLength = 1 Text1.SelText = Chr(KeyAscii) KeyAscii = 0 End If

**Viper** » 01.03.2006 (Ср) 11:42

Похоже действительно только ручками... Ни API соответствующей нет, ни сообщения, дающего возможность установить TextBox'у такой режим нет... Кстати, и Блокнот тоже не реализует режим вставки...

Сделаем ручками, благо это не так уж и сложно...

Всем Спасибо!

**Twister** » 01.03.2006 (Ср) 11:43

Да как вы все собрались "эмулировать клавишу Insert", если даже реальная клавиша Insert не включает режим замены?

Век живи - век учись! Чесслово, только сейчас заметил что это действительно так. tyomitch, спасибо... :lol:

**Viper** » 01.03.2006 (Ср) 11:49

Как я понял "режим замены" как таковой не включается клавишей Insert. Если он необходим, его надо реализовывать самому, отслеживая состояние клавиши Insert (при помощи GetKeyState например) и отлавливая вводимые символы

Конференция VBStreets

Режим замены в TextBox

Режим замены в TextBox

Кто сейчас на конференции