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

Верхний регистр - св-ва контрола Format = !
...
Рейтинг: 0 / 0
09.02.2006, 10:02
    #33533086
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена символов при вводе в TextBox
в 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
09.02.2006, 10:37
    #33533206
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена символов при вводе в TextBox
Можно и в событии 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
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / замена символов при вводе в TextBox / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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