LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: раскладка...
 Тема: раскладка клавиатуры
 
 15.06.2007 21:03:54
All
4316 сообщения
1-ый


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


P.S. Общий раздел по формам
Автор: Ольга от 0:00:00 Источник ...
 15.06.2007 21:03:54
All
4316 сообщения
1-ый


RE: раскладка клавиатуры
1. Пример для 3 букв афавита дан ниже. Остается добавить в масив остальные буквы.
2. Коды символов (Unicode) можно получить через debug или см. 7 пример la_form.mdb

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Field0_KeyPress(KeyAscii As Integer)
Const Eng = "ABC"
Dim Rus, i As Long
Rus = Array(1040, 1041, 1062)
If KeyAscii < 128 Then
i = InStr(1, Eng, Chr(KeyAscii))
If i Then KeyAscii = Rus(i - 1)
End If
End Sub



P.S. Общий раздел по формам
Автор: Expert от 0:00:00 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: раскладка...
ПоискПоиск  Список форумовСписок форумов  
right