Главная страницаОбратная связьКарта сайта

Режим замены (текстовые окна работают в режиме вставки) в текстовом окне



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 - "Режим замены (текстовые окна работают в режиме вставки) в текстовом окне", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info