Режим замены (текстовые окна работают в режиме вставки) в текстовом окне
Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 32 Then 'проверка, что вводится символ (буква или цифра) If Text1.SelLength = 0 Then 'проверка, что текст не выделен If Text1.SelStart < Len(Text1) Then Text1.SelLength = 1 'данным установлением включается режим замены End If End If End If End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Режим замены (текстовые окна работают в режиме вставки) в текстовом окне", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!