Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]
..........................................................................................................................



Как реализовать режим замены в текстовом окне.
Как вы знаете текстовые окна работают в режиме вставки.
Данный пример покажет, как можно реализовать режим замены.

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



..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]
..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic
Рассылка 'По страницам сайта Visaul Progs' >>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! >>>Если у вас есть статья которой нет на сайте
пришлите ее мне-------->
Послать статью
>>>Если вы хотите задать вопрос
пишите-------->
Мне нужна помощь


Рейтинг сайтов YandeG Rambler's Top100
Реклама:

...:::Design by Mystf0rse 2005-2010 year:::...