powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / замена символов при вводе в TextBox
5 сообщений из 5, страница 1 из 1
замена символов при вводе в TextBox
    #33533069
АлександрV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите пожалуйста, как мне заменить символы при вводе в TextBox на русские, то есть при нажатии клавиши в любом регистре и раскладке (где есть русские буквы), мне необходимо отображение в поле TexBox значений русских букв в верхнем регистре (например если набираю букву q тут же должно отображаться Й, если нажимаю на W или w или ц должно соответственно отображаться Ц и т.д). Пробовал использовать метод keypress, но наверное что-то в нем не доделываю, так как отображения либо нет, либо появляется, но указатель переходит на начало в строке TextBox. Понимаю, что решение где-то близко, но что-то не выходит. Если не трудно помогите.
...
Рейтинг: 0 / 0
замена символов при вводе в TextBox
    #33533075
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Переключай раскладку клавы при входе в контрол.
Как? Смотри тут .
...
Рейтинг: 0 / 0
замена символов при вводе в TextBox
    #33533077
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посмотри здесь, как автоматически переключить раскладку http://forum.foxclub.ru/read.php?32,177177,177206#msg-177206

Верхний регистр - св-ва контрола Format = !
...
Рейтинг: 0 / 0
замена символов при вводе в TextBox
    #33533086
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в txt.InteractiveChange()
Код: plaintext
1.
2.
3.
4.
cLat='QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>'
cLat=cLat+LOWER(cLat)
cRus='ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ'
cRus=cRus+LOWER(cRus)
this.Value=CHRTRAN(this.Value, cLat, cRus)
соотв cLat & cRus можешь вынести как проперти объекта или формы, кот тока один раз определить, а не каждый раз перещитывать

ЗЫ а если те нужно тока заглавные буквы - то txt.Format='!'
...
Рейтинг: 0 / 0
замена символов при вводе в TextBox
    #33533206
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно и в событии KeyPress. Примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL lcCharsEng, lcCharsRus
lcCharsEng = "qwertyuiop[]asdfghjkl;'zxcvbnm,."
lcCharsRus = "йцукенгшщзхъфывапролджэячсмитьбю"
IF CHR(m.nKeyCode) $ m.lcCharsEng
	NODEFAULT  
	KeyBoard ChrTran(CHR(m.nKeyCode),m.lcCharsEng,UPPER(m.lcCharsRus)) PLAIN CLEAR  
ENDIF
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / замена символов при вводе в TextBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]